From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Wed, 7 Mar 2007 16:36:20 +0000 (+0000)
Subject: Syntax nit in ExtUtils::Liblist::Kid, noticed by Yves Orton
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=cd17ed6453da1db0f4e9b40c8fa9ae95717e4266;p=p5sagit%2Fp5-mst-13.2.git

Syntax nit in ExtUtils::Liblist::Kid, noticed by Yves Orton

p4raw-id: //depot/perl@30497
---

diff --git a/lib/ExtUtils/Liblist/Kid.pm b/lib/ExtUtils/Liblist/Kid.pm
index b1d4236..c61161c 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'}; }