This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
In ExtUtils::Liblist::Kid::_vms_ext(), escape the dollar, not the
authorCraig A. Berry <craigberry@mac.com>
Fri, 9 Mar 2007 00:46:34 +0000 (00:46 +0000)
committerCraig A. Berry <craigberry@mac.com>
Fri, 9 Mar 2007 00:46:34 +0000 (00:46 +0000)
minus (there was no intention to use $\ or $- here).

p4raw-id: //depot/perl@30521

lib/ExtUtils/Liblist/Kid.pm

index ee1522d..e00115a 100644 (file)
@@ -389,7 +389,7 @@ sub _vms_ext {
   if ($self->{PERL_SRC}) {
     my($lib,$locspec,$type);
     foreach $lib (@crtls) { 
   if ($self->{PERL_SRC}) {
     my($lib,$locspec,$type);
     foreach $lib (@crtls) { 
-      if (($locspec,$type) = $lib =~ m!^([\w$\-]+)(/\w+)?! and $locspec =~ /perl/i) {
+      if (($locspec,$type) = $lib =~ m!^([\w\$-]+)(/\w+)?! and $locspec =~ /perl/i) {
         if    (lc $type eq '/share')   { $locspec .= $Config{'exe_ext'}; }
         elsif (lc $type eq '/library') { $locspec .= $Config{'lib_ext'}; }
         else                           { $locspec .= $Config{'obj_ext'}; }
         if    (lc $type eq '/share')   { $locspec .= $Config{'exe_ext'}; }
         elsif (lc $type eq '/library') { $locspec .= $Config{'lib_ext'}; }
         else                           { $locspec .= $Config{'obj_ext'}; }