Support filtering by version in App::NAOdash

[nethack-naodash.git] / lib / App / NAOdash.pm

diff --git a/lib/App/NAOdash.pm b/lib/App/NAOdash.pm
index 85a52709b034e372002af8b01c908f4cd5270ec1..d6df6bef999c6238b71c7a65bff732aa4d436912 100644 (file)
--- a/lib/App/NAOdash.pm
+++ b/lib/App/NAOdash.pm
@@ -94,12 +94,12 @@ EOF
 }
 
 sub run {
-       my ($user_or_path) = @_;
+       my ($args, $user_or_path) = @_;
        my $stats;
        if ($user_or_path =~ /^\w+$/) { # Looks like a user
-               $stats = naodash_user $user_or_path
+               $stats = naodash_user $args, $user_or_path
        } else {
-               $stats = naodash_xlog read_file $user_or_path
+               $stats = naodash_xlog $args, read_file $user_or_path
        }
        print encode 'UTF-8', naodash_to_ansi $stats ## no critic (RequireCheckedSyscalls)
 }