summaryrefslogtreecommitdiff
path: root/install-win32/dosname.pl
diff options
context:
space:
mode:
authorAlberto Gonzalez Iniesta <agi@inittab.org>2012-02-21 15:53:40 +0100
committerAlberto Gonzalez Iniesta <agi@inittab.org>2012-02-21 15:53:40 +0100
commit349cfa7acb95abe865209a28e417ec74b56f9bba (patch)
treead65334821b587c4ecdd461be84c94305ffdb888 /install-win32/dosname.pl
Imported Upstream version 2.2.1upstream/2.2.1
Diffstat (limited to 'install-win32/dosname.pl')
-rw-r--r--install-win32/dosname.pl9
1 files changed, 9 insertions, 0 deletions
diff --git a/install-win32/dosname.pl b/install-win32/dosname.pl
new file mode 100644
index 0000000..a678e66
--- /dev/null
+++ b/install-win32/dosname.pl
@@ -0,0 +1,9 @@
+#!/usr/bin/perl
+
+# convert a unix filename to a DOS filename
+
+while ($unixname = shift(@ARGV)) {
+ $unixname =~ s#^/([a-zA-Z])(/|$)#$1:\\#g;
+ $unixname =~ s#/#\\#g;
+ print "$unixname\n";
+}