diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-12-19 08:36:11 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-12-19 08:36:11 +0000 |
| commit | 2ed511eccdb1c54a77a99ffd2e8b3d8cf558b45c (patch) | |
| tree | 8f9f071a890158ea4e78c4b60b47f6a8c1bf7a81 /lib/CGI/Carp.pm | |
| parent | 45e8908fe5b88f920ab544783f3013f36f56fd48 (diff) | |
| download | perl-2ed511eccdb1c54a77a99ffd2e8b3d8cf558b45c.tar.gz | |
Upgrade to CGI.pm 3.01
p4raw-id: //depot/perl@21928
Diffstat (limited to 'lib/CGI/Carp.pm')
| -rw-r--r-- | lib/CGI/Carp.pm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lib/CGI/Carp.pm b/lib/CGI/Carp.pm index b99004189d..255b9e758a 100644 --- a/lib/CGI/Carp.pm +++ b/lib/CGI/Carp.pm @@ -243,6 +243,8 @@ non-overridden program name former isn't working in some people's hands. There is no such thing as reliable exception handling in Perl. +1.27 Replaced tell STDOUT with bytes=tell STDOUT. + =head1 AUTHORS Copyright 1995-2002, Lincoln D. Stein. All rights reserved. @@ -279,7 +281,7 @@ use File::Spec; $main::SIG{__WARN__}=\&CGI::Carp::warn; -$CGI::Carp::VERSION = '1.26'; +$CGI::Carp::VERSION = '1.27'; $CGI::Carp::CUSTOM_MSG = undef; @@ -490,7 +492,8 @@ END $r->custom_response(500,$mess); } } else { - if (eval{tell STDOUT}) { + my $bytes_written = eval{tell STDOUT}; + if (defined $bytes_written && $bytes_written > 0) { print STDOUT $mess; } else { |