Subject: | Warning: Exiting subroutine via next ... |
using Module-ScanDeps-0.48
with perl v5.8.3 built for i586-linux-thread-multi
on SuSE-Linux 9.1 kernel 2.6.4-52-default
calling
my $rv_ref = Module::ScanDeps::scan_deps ( 'aprogram' );
got a warning like
Exiting subroutine via next at /usr/lib/perl5/site_perl/5.8.3/Module/ScanDeps.pm line 710, <FH> line 153.
The patch is simply replaching next by return in line 710:
710c710
< next if $pm_only and lc($name) !~ /\.p[mh]$/i;
---
Show quoted text
> return if $pm_only and lc($name) !~ /\.p[mh]$/i;