From: Paul Green <Paul.Green@stratus.com>
Date: Tue, 23 Apr 2002 13:47:19 +0000 (-0400)
Subject: (retracted by #16114)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=25679eba997d4d18376f18c47b65bd13d0fb59e6;p=p5sagit%2Fp5-mst-13.2.git

(retracted by #16114)

Subject: [PATCH] Nuke obsolete way to build debugging (etc) perls
From: "Green, Paul" <Paul.Green@stratus.com>
Message-ID: <A2A34F15EE916148BC4C4748223E67A4014E24ED@EXNA4.stratus.com>

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

diff --git a/lib/ExtUtils/MM_Unix.pm b/lib/ExtUtils/MM_Unix.pm
index 4604d39..dd38d32 100644
--- a/lib/ExtUtils/MM_Unix.pm
+++ b/lib/ExtUtils/MM_Unix.pm
@@ -3190,6 +3190,8 @@ sub prefixify {
 
     $path = VMS::Filespec::unixpath($path) if $Is_VMS;
 
+    return if $path eq '';
+
     unless( $path =~ s,^\Q$sprefix\E(?=/|\z),$rprefix,s ) {
 
         print STDERR "    cannot prefix, using default.\n" if $Verbose >= 2;