From: Dr. Stephen Henson <steve@openssl.org>
Date: Thu, 3 Feb 2011 14:57:51 +0000 (+0000)
Subject: add -stripcr option to copy.pl from 0.9.8
X-Git-Tag: OpenSSL-fips-2_0-rc1~797
X-Git-Url: https://git.openssl.org/?p=openssl.git;a=commitdiff_plain;h=7dbbd4b35775948da01ca86ce9e94886f1347bbd;hp=544c84b72014a2bf0d0e5bf15c3fcd624a0497bb

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