sysdeps/borlandc5.0/unix2dos.pl

   1 #!/usr/bin/perl
   2 while (<>) {
   3     if ($ARGV ne $oldargv) {
   4         $translate = -T $ARGV;
   5         rename($ARGV, $ARGV . '.bak');
   6         open(ARGVOUT, ">$ARGV");
   7         select(ARGVOUT);
   8         $oldargv = $ARGV;
   9     }
  10     if ($translate) {
  11         chop;
  12         $_ .= "\r
  13 ";
  14     }
  15 }
  16 continue {
  17     print;  # this prints to original filename
  18 }
  19 select(STDOUT);