From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sat, 11 Jul 1998 17:04:47 +0000 (+0000)
Subject: make Liblist return consistently backslashed paths
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=42ab721cb4e97487f3f944268e5447a25cb4d061;p=p5sagit%2Fp5-mst-13.2.git

make Liblist return consistently backslashed paths

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

diff --git a/lib/ExtUtils/Liblist.pm b/lib/ExtUtils/Liblist.pm
index 5388641..6c2fef8 100644
--- a/lib/ExtUtils/Liblist.pm
+++ b/lib/ExtUtils/Liblist.pm
@@ -264,6 +264,12 @@ sub _win32_ext {
     # make sure paths with spaces are properly quoted
     @extralibs = map { (/\s/ && !/^".*"$/) ? qq["$_"] : $_ } @extralibs;
     $lib = join(' ',@extralibs);
+
+    # normalize back to backward slashes (to help braindead tools)
+    # XXX this may break equally braindead GNU tools that don't understand
+    # backslashes, either.  Seems like one can't win here.  Cursed be CP/M.
+    $lib =~ s,/,\\,g;
+
     warn "Result: $lib\n" if $verbose;
     wantarray ? ($lib, '', $lib, '') : $lib;
 }