This is an automated email from the git hooks/post-receive script.
gregoa pushed a commit to branch master
in repository libnet-smtp-server-perl.
commit 6ae13f520ce096d566a9e69a28254240d1783d6c
Author: gregor herrmann <gre...@debian.org>
Date: Mon Dec 28 03:05:16 2015 +0100
Add patch to fix 'Can't call method "close" on an undefined value' warning.
Closes: #579343
---
debian/patches/close_on_undefined_value.patch | 25 +++++++++++++++++++++++++
1 file changed, 25 insertions(+)
diff --git a/debian/patches/close_on_undefined_value.patch
b/debian/patches/close_on_undefined_value.patch
new file mode 100644
index 0000000..cf0e0a1
--- /dev/null
+++ b/debian/patches/close_on_undefined_value.patch
@@ -0,0 +1,25 @@
+Description: fix "close on an undefined value"
+ When the contstructor fails (e.g., when I try, as a normal user, to bind the
+ daemon to a low-numbered port), this error is printed:
+ .
+ (in cleanup) Can't call method "close" on an undefined value at
/usr/share/perl5/Net/SMTP/Server.pm line 55.
+Origin: vendor
+Bug-Debian: https://bugs.debian.org/579343
+Author: "brian m. carlson" <sand...@crustytoothpaste.net>
+Reviewed-by: gregor herrmann <gre...@debian.org>
+Last-Update: 2015-12-28
+Forwarded: https://rt.cpan.org/Ticket/Display.html?id=110687
+Bug: https://rt.cpan.org/Ticket/Display.html?id=110687
+
+--- a/Server.pm
++++ b/Server.pm
+@@ -52,7 +52,8 @@
+ }
+
+ sub DESTROY {
+- shift->{SOCK}->close;
++ my $self = shift;
++ $self->{SOCK}->close if defined $self->{SOCK};
+ }
+
+ 1;
--
Alioth's /usr/local/bin/git-commit-notice on
/srv/git.debian.org/git/pkg-perl/packages/libnet-smtp-server-perl.git
_______________________________________________
Pkg-perl-cvs-commits mailing list
Pkg-perl-cvs-commits@lists.alioth.debian.org
http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits
