buggy modulus on UVs introduced by change#3378 (resulted in

[p5sagit/p5-mst-13.2.git] / lib / AutoSplit.pm

diff --git a/lib/AutoSplit.pm b/lib/AutoSplit.pm
index 6b3eae8..bb20372 100644 (file)
--- a/lib/AutoSplit.pm
+++ b/lib/AutoSplit.pm
@@ -178,8 +178,9 @@ sub autosplit_lib_modules{
            $_ = catfile($1, $2);
        }
        s|\\|/|g;               # bug in ksh OS/2
+       s#^lib/##s; # incase specified as lib/*.pm
        my($lib) = catfile(curdir(), "lib");
-       s#^$lib\W+##s; # incase specified as lib/*.pm
+       s#^$lib\W+##s; # incase specified as ./lib/*.pm
        if ($Is_VMS && /[:>\]]/) { # may need to convert VMS-style filespecs
            my ($dir,$name) = (/(.*])(.*)/s);
            $dir =~ s/.*lib[\.\]]//s;