diff options
Diffstat (limited to 'crypto/openssl/util/copy.pl')
-rw-r--r-- | crypto/openssl/util/copy.pl | 59 |
1 files changed, 0 insertions, 59 deletions
diff --git a/crypto/openssl/util/copy.pl b/crypto/openssl/util/copy.pl deleted file mode 100644 index e20b455..0000000 --- a/crypto/openssl/util/copy.pl +++ /dev/null @@ -1,59 +0,0 @@ -#!/usr/local/bin/perl - -use Fcntl; - - -# copy.pl - -# Perl script 'copy' comment. On Windows the built in "copy" command also -# copies timestamps: this messes up Makefile dependencies. - -my $arg; - -foreach $arg (@ARGV) { - $arg =~ s|\\|/|g; # compensate for bug/feature in cygwin glob... - foreach (glob $arg) - { - push @filelist, $_; - } -} - -$fnum = @filelist; - -if ($fnum <= 1) - { - die "Need at least two filenames"; - } - -$dest = pop @filelist; - -if ($fnum > 2 && ! -d $dest) - { - die "Destination must be a directory"; - } - -foreach (@filelist) - { - if (-d $dest) - { - $dfile = $_; - $dfile =~ s|^.*[/\\]([^/\\]*)$|$1|; - $dfile = "$dest/$dfile"; - } - else - { - $dfile = $dest; - } - sysopen(IN, $_, O_RDONLY|O_BINARY) || die "Can't Open $_"; - sysopen(OUT, $dfile, O_WRONLY|O_CREAT|O_TRUNC|O_BINARY) - || die "Can't Open $dfile"; - while (sysread IN, $buf, 10240) - { - syswrite(OUT, $buf, length($buf)); - } - close(IN); - close(OUT); - print "Copying: $_ to $dfile\n"; - } - - |