/[pub]/test/lib/CGI/Carp.pm
Suika

Diff of /test/lib/CGI/Carp.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by wakaba, Sat Jan 17 08:48:32 2004 UTC revision 1.2 by wakaba, Sat Jan 17 08:49:01 2004 UTC
# Line 243  non-overridden program name Line 243  non-overridden program name
243       former isn't working in some people's hands.  There is no such thing       former isn't working in some people's hands.  There is no such thing
244       as reliable exception handling in Perl.       as reliable exception handling in Perl.
245    
246    1.27 Replaced tell STDOUT with bytes=tell STDOUT.
247    
248  =head1 AUTHORS  =head1 AUTHORS
249    
250  Copyright 1995-2002, Lincoln D. Stein.  All rights reserved.    Copyright 1995-2002, Lincoln D. Stein.  All rights reserved.  
# Line 279  use File::Spec; Line 281  use File::Spec;
281    
282  $main::SIG{__WARN__}=\&CGI::Carp::warn;  $main::SIG{__WARN__}=\&CGI::Carp::warn;
283    
284  $CGI::Carp::VERSION    = '1.26';  $CGI::Carp::VERSION    = '1.27';
285  $CGI::Carp::CUSTOM_MSG = undef;  $CGI::Carp::CUSTOM_MSG = undef;
286    
287    
# Line 490  END Line 492  END
492        $r->custom_response(500,$mess);        $r->custom_response(500,$mess);
493      }      }
494    } else {    } else {
495      if (eval{tell STDOUT}) {      my $bytes_written = eval{tell STDOUT};
496        if (defined $bytes_written && $bytes_written > 0) {
497          print STDOUT $mess;          print STDOUT $mess;
498      }      }
499      else {      else {
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24