Changeset 15

Show
Ignore:
Timestamp:
10/27/00 14:43:57
Author:
miyagawa
Message:

Added test to eval { read() } in _parse_handle(). Added failure test.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • Mac-Macbinary/trunk/MANIFEST

    r10 r15  
    99t/03_path.t 
    1010t/04_filename.t 
     11t/05_fail.t 
    1112t/test.mb 
  • Mac-Macbinary/trunk/MANIFEST.SKIP

    r10 r15  
    11\bRCS\b 
     2\bCVS\b 
    23^MANIFEST\. 
    34^Makefile$ 
  • Mac-Macbinary/trunk/Macbinary.pm

    r14 r15  
    3838        return $fh; 
    3939    } else { 
     40        # tries to read it 
     41        eval { 
     42            read $thingy, my($tmp), 0; 
     43        }; 
     44        if ($@) { 
     45          Carp::croak "Can't read $thingy!"; 
     46        } 
    4047        return $thingy; 
    4148    }