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 (file)
--- 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;