Index: openssl/util/copy.pl |
=================================================================== |
--- openssl/util/copy.pl (revision 105093) |
+++ openssl/util/copy.pl (working copy) |
@@ -8,16 +8,9 @@ |
# Perl script 'copy' comment. On Windows the built in "copy" command also |
# copies timestamps: this messes up Makefile dependencies. |
-my $stripcr = 0; |
- |
my $arg; |
foreach $arg (@ARGV) { |
- if ($arg eq "-stripcr") |
- { |
- $stripcr = 1; |
- next; |
- } |
$arg =~ s|\\|/|g; # compensate for bug/feature in cygwin glob... |
foreach (glob $arg) |
{ |
@@ -56,10 +49,6 @@ |
|| die "Can't Open $dfile"; |
while (sysread IN, $buf, 10240) |
{ |
- if ($stripcr) |
- { |
- $buf =~ tr/\015//d; |
- } |
syswrite(OUT, $buf, length($buf)); |
} |
close(IN); |