From: Ronald J. Kimball <rjk@linguist.dartmouth.edu>
Date: Mon, 14 May 2001 09:38:59 +0000 (-0400)
Subject: Re: [ID 20010514.022] Makemaker a bit too prefix-happy
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a3a277541924c1e0955248831d8188d9947fd5e3;p=p5sagit%2Fp5-mst-13.2.git

Re: [ID 20010514.022] Makemaker a bit too prefix-happy
Message-ID: <20010514093859.A1479715@linguist.thayer.dartmouth.edu>

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

diff --git a/lib/ExtUtils/MM_Unix.pm b/lib/ExtUtils/MM_Unix.pm
index 83f34b3..6837131 100644
--- a/lib/ExtUtils/MM_Unix.pm
+++ b/lib/ExtUtils/MM_Unix.pm
@@ -3110,7 +3110,7 @@ sub prefixify {
     my($self,$var,$sprefix,$rprefix) = @_;
     $self->{uc $var} ||= $Config{lc $var};
     $self->{uc $var} = VMS::Filespec::unixpath($self->{uc $var}) if $Is_VMS;
-    $self->{uc $var} =~ s/\w\Q$sprefix\E\w/$rprefix/s;
+    $self->{uc $var} =~ s,^\Q$sprefix\E(?=/|\z),$rprefix,s;
 }
 
 =item processPL (o)