diff options
author | Rob Austein <sra@hactrn.net> | 2007-06-07 02:37:32 +0000 |
---|---|---|
committer | Rob Austein <sra@hactrn.net> | 2007-06-07 02:37:32 +0000 |
commit | 5dadf34209c288b8fffba1016e6a3c9446381153 (patch) | |
tree | 2ec36232cafd0da10fffda780f08a43c97d70aad /openssl/trunk/util/copy.pl | |
parent | 6fcf9830cfea5236faf42cc3437ed4bed06c16de (diff) |
Replace hacked OpenSSL code with OpenSSL 0.9.8e distribution.
svn path=/openssl/Makefile; revision=659
Diffstat (limited to 'openssl/trunk/util/copy.pl')
-rw-r--r-- | openssl/trunk/util/copy.pl | 59 |
1 files changed, 0 insertions, 59 deletions
diff --git a/openssl/trunk/util/copy.pl b/openssl/trunk/util/copy.pl deleted file mode 100644 index e20b4553..00000000 --- a/openssl/trunk/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"; - } - - |