cvs commit: modperl-2.0/t/response/TestApache compat.pm

[stas]

stas        01/12/10 00:31:15

  Modified:    t/response/TestApache compat.pm
  Log:
  - better open's failure diagnostics
  
  Revision  Changes    Path
  1.7       +1 -0      modperl-2.0/t/response/TestApache/compat.pm
  
  Index: compat.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestApache/compat.pm,v
  retrieving revision 1.6
  retrieving revision 1.7
  diff -u -r1.6 -r1.7
  --- compat.pm 2001/12/10 04:32:40     1.6
  +++ compat.pm 2001/12/10 08:31:15     1.7
  @@ -94,6 +94,7 @@
               ok $fh->close;
           }
           else {
  +            debug "open $file failed: $!";
               ok 0;
               debug "ok: cannot read from the closed fh";
               ok 1;