projects
/
catagits/Catalyst-Runtime.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
DT::Chained: Fix runtime error if no parts are found.
[catagits/Catalyst-Runtime.git]
/
lib
/
Catalyst
/
Engine
/
HTTP.pm
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;
}