From: Jonathan Biggar <jon@sems.com>
Date: Wed, 11 Jun 1997 00:00:00 +0000 (+1200)
Subject: pathname bug in xsubpp on win32
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5749794018af667b8b8ac7565d2bae88375e5762;p=p5sagit%2Fp5-mst-13.2.git

pathname bug in xsubpp on win32

If xsubpp is run with the argument "c:\i.xs", it will
generate bad #line directives, like:

 #line 1 "c:\i.xs"

which will cause VC++ to barf over a bad "\i"
escape sequence.

p5p-msgid: 199705230126.SAA23401@clamp.netlabs.com
---

diff --git a/lib/ExtUtils/xsubpp b/lib/ExtUtils/xsubpp
index d7448a1..6c83e1b 100755
--- a/lib/ExtUtils/xsubpp
+++ b/lib/ExtUtils/xsubpp
@@ -127,6 +127,7 @@ else
 
 @ARGV == 1 or die $usage;
 ($dir, $filename) = $ARGV[0] =~ m#(.*)/(.*)#
+	or ($dir, $filename) = $ARGV[0] =~ m#(.*)\\(.*)#
 	or ($dir, $filename) = $ARGV[0] =~ m#(.*[>\]])(.*)#
 	or ($dir, $filename) = ('.', $ARGV[0]);
 chdir($dir);