projects
/
catagits/Catalyst-Runtime.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
(parent:
de925c7
)
Avoid a warning if there is an HTTP write error
Andy Grundman [Tue, 14 Aug 2007 15:14:48 +0000 (15:14 +0000)]
lib/Catalyst/Engine/HTTP.pm
patch
|
blob
|
blame
|
history
diff --git
a/lib/Catalyst/Engine/HTTP.pm
b/lib/Catalyst/Engine/HTTP.pm
index
ee4f81c
..
12a8733
100644
(file)
--- a/
lib/Catalyst/Engine/HTTP.pm
+++ b/
lib/Catalyst/Engine/HTTP.pm
@@
-159,11
+159,12
@@
sub write {
my $ret = $self->NEXT::write( $c, $buffer );
- DEBUG && warn "write: Wrote response ($ret bytes)\n";
-
if ( !defined $ret ) {
$self->{_write_error} = $!;
}
+ else {
+ DEBUG && warn "write: Wrote response ($ret bytes)\n";
+ }
return $ret;
}