8 # Perl script 'copy' comment. On Windows the built in "copy" command also
9 # copies timestamps: this messes up Makefile dependencies.
13 foreach $arg (@ARGV) {
24 die "Need at least two filenames";
27 $dest = pop @filelist;
29 if ($fnum > 2 && ! -d $dest)
31 die "Destination must be a directory";
39 $dfile =~ s|^.*[/\\]([^/\\]*)$|$1|;
40 $dfile = "$dest/$dfile";
46 sysopen(IN, $_, O_RDONLY|O_BINARY) || die "Can't Open $_";
47 sysopen(OUT, $dfile, O_WRONLY|O_CREAT|O_TRUNC|O_BINARY)
48 || die "Can't Open $dfile";
49 while (sysread IN, $buf, 10240)
51 syswrite(OUT, $buf, length($buf));
55 print "Copying: $_ to $dfile\n";