[MacPerl] File Handle Error in New MacPerl

[Richard Rathe <rrathe@dean.med.ufl.edu>]

I downloaded the new MacPerl and suddenly I see this error message in
several of my scripts:

  # Value of <HANDLE> construct can be "0"; test with defined().
  File ':mtxextra.pl'; Line 113

Here is the offending bit of code:

  $infile = $dir . "images.dim";
  if (open(IMAGES, $infile)) {
    print "   images: $infile\n";
    while($line = <IMAGES>) {          <--- Line 113
      $line =~ /(.*) (.*) (.*)/;
      $i{$1} = "$2 $3";
    }
  } else {
    undef %i;
    print "           * No image dimension file present!\n";
  }
  close(IMAGES);

I tried to look up this warning in the Camel book but it doesn't seem to be
there. Can anyone tell me what I'm doing wrong? I thought 'while($line =
<IMAGES>)' was a legitimate way to read a file a line at a time until the
end. I am using the -w flag.

Thanks, RR

__________________________________________________________________________
  Richard Rathe, MD                       mailto:rrathe@dean.med.ufl.edu
  University of Florida                      http://www.medinfo.ufl.edu/
 



***** Want to unsubscribe from this list?
***** Send mail with body "unsubscribe" to mac-perl-request@iis.ee.ethz.ch