diff options
author | Florian Ragwitz <rafl@debian.org> | 2010-08-18 23:00:57 +0200 |
---|---|---|
committer | Florian Ragwitz <rafl@debian.org> | 2010-08-18 23:03:04 +0200 |
commit | f4ccb67a0c5b6089da1ebe8b42943cf67d6c087a (patch) | |
tree | 8bce75d61b37293e34e4a4820a34ce05fa276597 | |
parent | c164650b005b5b18c6e5692435e46d17924b129a (diff) | |
download | perl-f4ccb67a0c5b6089da1ebe8b42943cf67d6c087a.tar.gz |
It's `VMS::Filespec', not `Filespec'
-rw-r--r-- | Porting/corelist.pl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Porting/corelist.pl b/Porting/corelist.pl index e06f5986bc..f27102e561 100644 --- a/Porting/corelist.pl +++ b/Porting/corelist.pl @@ -86,7 +86,7 @@ find( $version =~ /\d/ and $version = "'$version'"; # some heuristics to figure out the module name from the file name - $module =~ s{^(lib|cpan|dist|(?:vms/|symbian/)?ext)/}{} + $module =~ s{^(lib|cpan|dist|(?:symbian/)?ext)/}{} and $1 ne 'lib' and ( $module =~ s{\b(\w+)/\1\b}{$1}, @@ -98,6 +98,7 @@ find( $module =~ s{^MIME-Base64/QuotedPrint}{MIME/QuotedPrint}, $module =~ s{^(?:DynaLoader|Errno|Opcode)/}{}, ); + $module =~ s{^vms/ext}{VMS}; $module =~ s{^lib/}{}g; $module =~ s{/}{::}g; $module =~ s{-}{::}g; |