Fix scanning of "use aliased;" with no import arguments

Without this fix, scanning that code would result in: Can't call method "isa" on an undefined value at .../Perl/PrereqScanner/Scanner.pm line 32.
rjbs · Dec 24, 2014 · ab0ec2c · ab0ec2c
1 parent a92cb87
commit ab0ec2c
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 0 deletions.
diff --git a/lib/Perl/PrereqScanner/Scanner/Aliased.pm b/lib/Perl/PrereqScanner/Scanner/Aliased.pm
@@ -32,6 +32,7 @@ sub scan_for_prereqs {
         || $_->isa('PPI::Token::Quote')
         } $node->arguments;
 
+      next unless @args;
       my ($module) = $self->_q_contents($args[0]);
       $req->add_minimum($module => 0);
     }

diff --git a/t/autoprereq.t b/t/autoprereq.t
@@ -659,6 +659,13 @@ prereq_is(
   },
 );
 
+prereq_is(
+  q{use aliased;},
+  {
+    'aliased' => 0,
+  },
+);
+
 # rolsky says this is a problem case
 prereq_is(
   q{use Test::Requires 'Foo'},