diff options
| author | djm <> | 2010-10-01 22:54:19 +0000 |
|---|---|---|
| committer | djm <> | 2010-10-01 22:54:19 +0000 |
| commit | 5bf424abe3e333358a0476841d2085fb5870dde9 (patch) | |
| tree | 03b202b49e2c6367ae5dec12d939ea99c9ca36b3 /src/lib/libcrypto/util/copy.pl | |
| parent | 31f27c0675424c286ead39df16455abf64c6fb22 (diff) | |
| parent | 2dd8058114e20f1cd7c897166a4ce75ed390ee54 (diff) | |
| download | openbsd-5bf424abe3e333358a0476841d2085fb5870dde9.tar.gz openbsd-5bf424abe3e333358a0476841d2085fb5870dde9.tar.bz2 openbsd-5bf424abe3e333358a0476841d2085fb5870dde9.zip | |
This commit was generated by cvs2git to track changes on a CVS vendor
branch.
Diffstat (limited to 'src/lib/libcrypto/util/copy.pl')
| -rw-r--r-- | src/lib/libcrypto/util/copy.pl | 11 |
1 files changed, 0 insertions, 11 deletions
diff --git a/src/lib/libcrypto/util/copy.pl b/src/lib/libcrypto/util/copy.pl index eba6d5815e..e20b45530a 100644 --- a/src/lib/libcrypto/util/copy.pl +++ b/src/lib/libcrypto/util/copy.pl | |||
| @@ -8,16 +8,9 @@ use Fcntl; | |||
| 8 | # Perl script 'copy' comment. On Windows the built in "copy" command also | 8 | # Perl script 'copy' comment. On Windows the built in "copy" command also |
| 9 | # copies timestamps: this messes up Makefile dependencies. | 9 | # copies timestamps: this messes up Makefile dependencies. |
| 10 | 10 | ||
| 11 | my $stripcr = 0; | ||
| 12 | |||
| 13 | my $arg; | 11 | my $arg; |
| 14 | 12 | ||
| 15 | foreach $arg (@ARGV) { | 13 | foreach $arg (@ARGV) { |
| 16 | if ($arg eq "-stripcr") | ||
| 17 | { | ||
| 18 | $stripcr = 1; | ||
| 19 | next; | ||
| 20 | } | ||
| 21 | $arg =~ s|\\|/|g; # compensate for bug/feature in cygwin glob... | 14 | $arg =~ s|\\|/|g; # compensate for bug/feature in cygwin glob... |
| 22 | foreach (glob $arg) | 15 | foreach (glob $arg) |
| 23 | { | 16 | { |
| @@ -56,10 +49,6 @@ foreach (@filelist) | |||
| 56 | || die "Can't Open $dfile"; | 49 | || die "Can't Open $dfile"; |
| 57 | while (sysread IN, $buf, 10240) | 50 | while (sysread IN, $buf, 10240) |
| 58 | { | 51 | { |
| 59 | if ($stripcr) | ||
| 60 | { | ||
| 61 | $buf =~ tr/\015//d; | ||
| 62 | } | ||
| 63 | syswrite(OUT, $buf, length($buf)); | 52 | syswrite(OUT, $buf, length($buf)); |
| 64 | } | 53 | } |
| 65 | close(IN); | 54 | close(IN); |
