From 42ab721cb4e97487f3f944268e5447a25cb4d061 Mon Sep 17 00:00:00 2001
From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sat, 11 Jul 1998 17:04:47 +0000
Subject: [PATCH] make Liblist return consistently backslashed paths

p4raw-id: //depot/perl@1427
---
 lib/ExtUtils/Liblist.pm | 6 ++++++
 1 file changed, 6 insertions(+)

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;
 }
-- 
2.7.4