1#!/usr/local/bin/perl
2
3use strict;
4
5use Fcntl;
6
7# copy-if-different.pl
8
9# Copy to the destination if the source is not the same as it.
10
11my @filelist;
12
13foreach my $arg (@ARGV) {
14 $arg =~ s|\\|/|g; # compensate for bug/feature in cygwin glob...
15 foreach (glob qq("$arg"))
16 {
17 push @filelist, $_;
18 }
19}
20
21my $fnum = @filelist;
22
23if ($fnum <= 1)

--- 55 unchanged lines hidden ---