At 09:46 -0700 2002.04.18, Bruce Van Allen wrote:
>I'd love to hear about hidden traps or alternatives.
Hidden trap, sorta:
> local @ARGV = grep { -f and !/^\./ and m/$PATTERN/ } readdir DIR
> or die "No files to duplicate";
On Mac OS, it is often useful to add:
and $_ != "Icon\015"
or somesuch. Those files get in the way a lot.
As for the rest, it seems fine, except for the unnecessary $SEP stuff.
Just replace it with "use File::Spec::Functions' and then:
> local $^I = "$DESTINATION_DIR$SEP*";
local $^I = catfile($DESTINATION, '*');
--
Chris Nandor [EMAIL PROTECTED] http://pudge.net/
Open Source Development Network [EMAIL PROTECTED] http://osdn.com/
