From: Dr. Stephen Henson <steve@openssl.org>
Date: Thu, 3 Feb 2011 14:58:02 +0000 (+0000)
Subject: add -stripcr option to copy.pl from 0.9.8
X-Git-Tag: OpenSSL_1_0_1-beta1~371
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=decef971f4d74dab25f25e818c866d326d2314e1;p=openssl

add -stripcr option to copy.pl from 0.9.8
---

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);