1 files changed, 7 insertions, 4 deletions
diff --git a/install-win32/dosname.pl b/install-win32/dosname.pl
index c29d134..5bfa6b9 100644
--- a/install-win32/dosname.pl
+++ b/install-win32/dosname.pl
@@ -1,4 +1,7 @@
-($unixname) = @ARGV;
-$unixname =~ s#^/c##g;
-$unixname =~ s#/#\\#g;
-print "$unixname\n";
+#!/usr/bin/perl
+
+while ($unixname = shift(@ARGV)) {
+  $unixname =~ s#^/([a-zA-Z])(/|$)#$1:\\#g;
+  $unixname =~ s#/#\\#g;
+  print "$unixname\n";
+}