]>
git.ipfire.org Git - thirdparty/openssl.git/blob - util/copy.pl
8 # Perl script 'copy' comment. On Windows the built in "copy" command also
9 # copies timestamps: this messes up Makefile dependencies.
15 foreach $arg (@ARGV) {
16 if ($arg eq "-stripcr")
21 $arg =~ s
|\\|/|g; # compensate for bug/feature
in cygwin
glob...
22 $arg = qq("$arg") if ($arg =~ /\s/); # compensate for bug in 5.10...
33 die "Need at least two filenames";
36 $dest = pop @filelist;
38 if ($fnum > 2 && ! -d
$dest)
40 die "Destination must be a directory";
48 $dfile =~ s
|^.*[/\\]([^/\\]*)$|$1|;
49 $dfile = "$dest/$dfile";
55 sysopen(IN
, $_, O_RDONLY
|O_BINARY
) || die "Can't Open $_";
56 sysopen(OUT
, $dfile, O_WRONLY
|O_CREAT
|O_TRUNC
|O_BINARY
)
57 || die "Can't Open $dfile";
58 while (sysread IN
, $buf, 10240)
64 syswrite(OUT
, $buf, length($buf));
68 print "Copying: $_ to $dfile\n";