diff options
author | Dr. Stephen Henson <steve@openssl.org> | 2011-02-03 14:58:02 +0000 |
---|---|---|
committer | Dr. Stephen Henson <steve@openssl.org> | 2011-02-03 14:58:02 +0000 |
commit | decef971f4d74dab25f25e818c866d326d2314e1 (patch) | |
tree | 0a96e8191b0aa7993002102a93359e197b1a7824 /util/copy.pl | |
parent | a288aaefc4c3189ec4fe80456e98d242e1be9173 (diff) |
add -stripcr option to copy.pl from 0.9.8
Diffstat (limited to 'util/copy.pl')
-rw-r--r-- | util/copy.pl | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/util/copy.pl b/util/copy.pl index e20b45530a..eba6d5815e 100644 --- a/util/copy.pl +++ b/util/copy.pl @@ -8,9 +8,16 @@ use Fcntl; # 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) { @@ -49,6 +56,10 @@ foreach (@filelist) || die "Can't Open $dfile"; while (sysread IN, $buf, 10240) { + if ($stripcr) + { + $buf =~ tr/\015//d; + } syswrite(OUT, $buf, length($buf)); } close(IN); |