diff options
Diffstat (limited to 'lib')
-rw-r--r-- | lib/App/Mangemanche.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lib/App/Mangemanche.pm b/lib/App/Mangemanche.pm index d0992f2..228f8fc 100644 --- a/lib/App/Mangemanche.pm +++ b/lib/App/Mangemanche.pm @@ -129,11 +129,12 @@ sub list_commands { foreach my $mod (sort map { my $name = basename($_); - if (exists($INC{File::Spec->catfile(@classpath,$name)})) { + my $filename = File::Spec->catfile(@classpath,$name); + if (exists($INC{$filename})) { () } else { eval { - require $_; + require $filename; }; $name =~ s/\.pm$//; $@ ? () : [$name, $_]; |