From: Todd C. Miller <Todd.Miller@courtesan.com>
Date: Mon, 7 May 2001 09:35:57 +0000 (-0600)
Subject: [ID 20010514.022] Makemaker a bit too prefix-happy
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1ee1859158462df754ea4df3c38c89666303d196;p=p5sagit%2Fp5-mst-13.2.git

[ID 20010514.022] Makemaker a bit too prefix-happy
Message-Id: <200105071535.f47FZvf27235@xerxes.courtesan.com>

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

diff --git a/lib/ExtUtils/MM_Unix.pm b/lib/ExtUtils/MM_Unix.pm
index 0f441d0..83f34b3 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/\Q$sprefix\E/$rprefix/s;
+    $self->{uc $var} =~ s/\w\Q$sprefix\E\w/$rprefix/s;
 }
 
 =item processPL (o)