WC -Sx- Jones wrote: push @targets, (($dev,$ino,$mode,$nlink,$uid,$gid) = lstat($_)) &&
-f _ &&
/^Makefile\.PL\z/s &&
sprintf("%s",$name);
Or ...
push @targets, (($dev,$ino,$mode,$nlink,$uid,$gid) = lstat($_)) &&
-f _ &&
/^.*\.t.*gz\z/s &&
sprintf("%s",$name);
HTH; -Sx-
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
