Commit 7dbbd4b3 authored by Dr. Stephen Henson's avatar Dr. Stephen Henson
Browse files

add -stripcr option to copy.pl from 0.9.8

parent 544c84b7

util/copy.pl

+11 −0
Original line number Diff line number Diff line
@@ -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);