1#!/usr/local/bin/perl
2
3use Fcntl;
4
5
6# copy.pl
7
8# Perl script 'copy' comment. On Windows the built in "copy" command also

--- 5 unchanged lines hidden (view full) ---

14
15foreach $arg (@ARGV) {
16 if ($arg eq "-stripcr")
17 {
18 $stripcr = 1;
19 next;
20 }
21 $arg =~ s|\\|/|g; # compensate for bug/feature in cygwin glob...
22 $arg = qq("$arg") if ($arg =~ /\s/); # compensate for bug in 5.10...
23 foreach (glob $arg)
24 {
25 push @filelist, $_;
26 }
27}
28
29$fnum = @filelist;
30
31if ($fnum <= 1)

--- 40 unchanged lines hidden ---