diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-03-07 16:36:20 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-03-07 16:36:20 +0000 |
| commit | cd17ed6453da1db0f4e9b40c8fa9ae95717e4266 (patch) | |
| tree | d6b78d5292d5531dea22d5700b1832681a6d8374 | |
| parent | e879d94fd490498d2ab8c584f625025bbfa1d542 (diff) | |
| download | perl-cd17ed6453da1db0f4e9b40c8fa9ae95717e4266.tar.gz | |
Syntax nit in ExtUtils::Liblist::Kid, noticed by Yves Orton
p4raw-id: //depot/perl@30497
| -rw-r--r-- | lib/ExtUtils/Liblist/Kid.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/ExtUtils/Liblist/Kid.pm b/lib/ExtUtils/Liblist/Kid.pm index b1d42369d2..c61161c82f 100644 --- a/lib/ExtUtils/Liblist/Kid.pm +++ b/lib/ExtUtils/Liblist/Kid.pm @@ -10,7 +10,7 @@ use 5.00503; use strict; use vars qw($VERSION); -$VERSION = 1.32_01; +$VERSION = 1.32_02; use Config; use Cwd 'cwd'; @@ -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'}; } |