Help for this page

Select Code to Download


  1. or download this
    sub _find_modules {
    my $dir = shift ;
...
    my $packlist = $inst->packlist("My_Package");
    return grep { s/(.*?\Q$dir\E)(\w+)(\.pm)$/$2/ } %$packlist ;
}
  2. or download this
    Use of uninitialized value in pattern match (m//) at /usr/lib/perl5/si
+te_perl/5.8.7/My_Package.pm line 309.
Use of uninitialized value in pattern match (m//) at /usr/lib/perl5/si
+te_perl/5.8.7/My_Package.pm line 309.