make Liblist return consistently backslashed paths
Gurusamy Sarathy [Sat, 11 Jul 1998 17:04:47 +0000 (17:04 +0000)]
p4raw-id: //depot/perl@1427

lib/ExtUtils/Liblist.pm

index 5388641..6c2fef8 100644 (file)
@@ -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;
 }