summaryrefslogtreecommitdiffstats
path: root/install-win32/dosname.pl
blob: a678e667582244282a488e72f4cefd5e200eb067 (plain)
1
2
3
4
5
6
7
8
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";
}