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