diff options
| author | Craig A. Berry <craigberry@mac.com> | 2007-03-09 00:46:34 +0000 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2007-03-09 00:46:34 +0000 |
| commit | aba06fcba2d2a2742ddfe9c1741ad62ded2c93ec (patch) | |
| tree | d9a87141666a76c7e751151eb8c1286b0973f2bf /lib | |
| parent | 402f05396fc9e5d62b55e9f7c6be16855f366449 (diff) | |
| download | perl-aba06fcba2d2a2742ddfe9c1741ad62ded2c93ec.tar.gz | |
In ExtUtils::Liblist::Kid::_vms_ext(), escape the dollar, not the
minus (there was no intention to use $\ or $- here).
p4raw-id: //depot/perl@30521
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/ExtUtils/Liblist/Kid.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/ExtUtils/Liblist/Kid.pm b/lib/ExtUtils/Liblist/Kid.pm index ee1522d7f2..e00115ad42 100644 --- a/lib/ExtUtils/Liblist/Kid.pm +++ b/lib/ExtUtils/Liblist/Kid.pm @@ -389,7 +389,7 @@ sub _vms_ext { 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'}; } |