Chris/webperl
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fixing up error passing.

Browse Source
This commit is contained in:
Chris 2012-08-16 14:15:39 +01:00
parent 63dfa87505
commit b098d3fb57
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Message/Queue.pm
View File

@ -370,7 +370,7 @@ sub deliver_queue {
$self -> update_status($message -> {"id"}, $self -> update_status($message -> {"id"},
$transport -> {"id"}, $transport -> {"id"},
$sent ? "sent" : "failed", $sent ? "sent" : "failed",
$sent ? undef : $transport -> {"errstr"}) $sent ? undef : $transport -> {"module"} -> {"errstr"})
or return undef; or return undef;
} }
} }