install-win32/dosname.pl


1
2
3
4
5
6
7

#!/usr/bin/perl

while ($unixname = shift(@ARGV)) {
  $unixname =~ s#^/([a-zA-Z])(/|$)#$1:\\#g;
  $unixname =~ s#/#\\#g;
  print "$unixname\n";
}