> foreach my $file ( @ARGV ){
> if( my $fh = new IO::File $file ){
# Be explicit[1]
if (my $fh = IO::File->new($file)) {
> push @infh, $fh;
> } else {
> die "Failed to open input file '$file': $!";
> }
> }
[1] <http://www.perl.com/doc/manual/html/pod/perlobj.html#WARNING>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
