| Subject: | needs 'return undef' since carp returns 1 |
I added 'return undef' after the carp line in the save subroutine. It
would also be nice to get the status_line from the Request, so I added
that to $self. See patch.
| Subject: | Contact.pm.patch |
--- /usr/local/lib/perl5/site_perl/5.8.8/Email/ConstantContact/Contact.pm 2011-01-10 02:10:57.000000000 -0500
+++ /tmp/Contact.pm 2012-02-13 10:52:25.000000000 -0500
@@ -184,7 +184,10 @@
return 1;
}
else {
+ $self->{_latest_error} = $res->status_line;
carp "Contact update request returned code " . $res->status_line;
+ return undef;
}
}