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>




Reply via email to