generic-library/openssl
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

add -stripcr option to copy.pl from 0.9.8

Browse Source
This commit is contained in:
Dr. Stephen Henson 2011-02-03 14:58:02 +00:00
parent a288aaefc4
commit decef971f4
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
util/copy.pl
View File

@ -8,9 +8,16 @@ use Fcntl;
# Perl script 'copy' comment. On Windows the built in "copy" command also # Perl script 'copy' comment. On Windows the built in "copy" command also
# copies timestamps: this messes up Makefile dependencies. # copies timestamps: this messes up Makefile dependencies.
my $stripcr = 0;
my $arg; my $arg;
foreach $arg (@ARGV) { foreach $arg (@ARGV) {
if ($arg eq "-stripcr")
{
$stripcr = 1;
next;
}
$arg =~ s|\\|/|g; # compensate for bug/feature in cygwin glob... $arg =~ s|\\|/|g; # compensate for bug/feature in cygwin glob...
foreach (glob $arg) foreach (glob $arg)
{ {
@ -49,6 +56,10 @@ foreach (@filelist)
|| die "Can't Open $dfile"; || die "Can't Open $dfile";
while (sysread IN, $buf, 10240) while (sysread IN, $buf, 10240)
{ {
if ($stripcr)
{
$buf =~ tr/\015//d;
}
syswrite(OUT, $buf, length($buf)); syswrite(OUT, $buf, length($buf));
} }
close(IN); close(IN);