From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 25 Nov 2001 18:23:54 +0000 (+0000)
Subject: The joys of portable quoting.
X-Git-Tag: accepted/trunk/20130322.191538~29229
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=ecae74d57f163b118cfb0c091a7f996cb47d5861;p=platform%2Fupstream%2Fperl.git

The joys of portable quoting.

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

diff --git a/ext/Devel/PPPort/harness/Makefile.PL b/ext/Devel/PPPort/harness/Makefile.PL
index 0059272..59c6c0c 100644
--- a/ext/Devel/PPPort/harness/Makefile.PL
+++ b/ext/Devel/PPPort/harness/Makefile.PL
@@ -36,6 +36,8 @@ EOM
 
   my $Ilibdir = $^O eq 'VMS' ? qq{"-I$libdir"} : qq{-I$libdir};
 
+  $pmfile =~ s:\\:\\\\:g;
+
   $retval .= qq[\t\$(PERL) $Ilibdir -e "require qq{$pmfile}; Devel::PPPort::WriteFile(qq{ppport.h})"];
 
   return $retval;