Deleted Added
sdiff udiff text old ( 325337 ) new ( 326663 )
full compact
copy.pl (325337) copy.pl (326663)
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...
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 foreach (glob qq("$arg"))
22 $arg = qq("$arg") if ($arg =~ /\s/); # compensate for bug in 5.10...
23 foreach (glob $arg)
23 {
24 push @filelist, $_;
25 }
26}
27
28$fnum = @filelist;
29
30if ($fnum <= 1)

--- 40 unchanged lines hidden --- 		24 {
25 push @filelist, $_;
26 }
27}
28
29$fnum = @filelist;
30
31if ($fnum <= 1)

--- 40 unchanged lines hidden ---