diff options
| author | Marc Espie <espie@cvs.openbsd.org> | 2001-05-08 19:56:45 +0000 |
|---|---|---|
| committer | Marc Espie <espie@cvs.openbsd.org> | 2001-05-08 19:56:45 +0000 |
| commit | 2ec07a92b540d36ffad2b126ccf9cfe94de0d963 (patch) | |
| tree | 980867fc9ed5bebfac0fca8ac59d5568164ce514 | |
| parent | fb370dd337854a6e8aa903814358118e2e1c5130 (diff) | |
Insure detection of prefixes is limited to whole words. This avoids
recognizing /usr/libdata as /usr/lib.
Ok millert@
| -rw-r--r-- | gnu/usr.bin/perl/lib/ExtUtils/MM_Unix.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gnu/usr.bin/perl/lib/ExtUtils/MM_Unix.pm b/gnu/usr.bin/perl/lib/ExtUtils/MM_Unix.pm index 57e72dedc11..fc13461cf82 100644 --- a/gnu/usr.bin/perl/lib/ExtUtils/MM_Unix.pm +++ b/gnu/usr.bin/perl/lib/ExtUtils/MM_Unix.pm @@ -8,8 +8,8 @@ use strict; use vars qw($VERSION $Is_Mac $Is_OS2 $Is_VMS $Is_Win32 $Is_Dos $Is_PERL_OBJECT $Verbose %pm %static $Xsubpp_Version); -$VERSION = substr q$Revision: 1.7 $, 10; -# $Id: MM_Unix.pm,v 1.7 2000/04/06 17:06:28 millert Exp $ +$VERSION = substr q$Revision: 1.8 $, 10; +# $Id: MM_Unix.pm,v 1.8 2001/05/08 19:56:44 espie Exp $ Exporter::import('ExtUtils::MakeMaker', qw($Verbose &neatvalue)); @@ -3093,7 +3093,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) |