diff options
-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 @@ -131,3 +131,4 @@ sub list_commands { my $name = basename($_); - if (exists($INC{File::Spec->catfile(@classpath,$name)})) { + my $filename = File::Spec->catfile(@classpath,$name); + if (exists($INC{$filename})) { () @@ -135,3 +136,3 @@ sub list_commands { eval { - require $_; + require $filename; }; |