r75460 - in /trunk/libnet-epp-perl/debian: changelog patches/ patches/do-not-use-UNIVERSAL-isa.patch patches/series
carnil at users.alioth.debian.org
carnil at users.alioth.debian.org
Sun Jun 12 08:58:11 UTC 2011
Author: carnil
Date: Sun Jun 12 08:57:57 2011
New Revision: 75460
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=75460
Log:
Add do-not-use-UNIVERSAL-isa.patch patch. UNIVERSAL::isa should not be
called directly, but instead the method form of 'isa' (Closes: 614869).
Added:
trunk/libnet-epp-perl/debian/patches/
trunk/libnet-epp-perl/debian/patches/do-not-use-UNIVERSAL-isa.patch
trunk/libnet-epp-perl/debian/patches/series
Modified:
trunk/libnet-epp-perl/debian/changelog
Modified: trunk/libnet-epp-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-epp-perl/debian/changelog?rev=75460&op=diff
==============================================================================
--- trunk/libnet-epp-perl/debian/changelog (original)
+++ trunk/libnet-epp-perl/debian/changelog Sun Jun 12 08:57:57 2011
@@ -1,12 +1,14 @@
-libnet-epp-perl (0.17-1) UNRELEASED; urgency=low
+libnet-epp-perl (0.17-1) unstable; urgency=low
* Team upload.
* New upstream release
* debian/copyright: Update copyright years for upstream files.
* Bump Standards-Version to 3.9.2 (no changes needed).
* Drop 01-manpages.patch patch.
+ * Add do-not-use-UNIVERSAL-isa.patch patch. UNIVERSAL::isa should not be
+ called directly, but instead the method form of 'isa' (Closes: 614869).
- -- Salvatore Bonaccorso <carnil at debian.org> Sun, 12 Jun 2011 10:36:12 +0200
+ -- Salvatore Bonaccorso <carnil at debian.org> Sun, 12 Jun 2011 10:55:35 +0200
libnet-epp-perl (0.16-1) unstable; urgency=low
Added: trunk/libnet-epp-perl/debian/patches/do-not-use-UNIVERSAL-isa.patch
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-epp-perl/debian/patches/do-not-use-UNIVERSAL-isa.patch?rev=75460&op=file
==============================================================================
--- trunk/libnet-epp-perl/debian/patches/do-not-use-UNIVERSAL-isa.patch (added)
+++ trunk/libnet-epp-perl/debian/patches/do-not-use-UNIVERSAL-isa.patch Sun Jun 12 08:57:57 2011
@@ -1,0 +1,41 @@
+Description: UNIVERSAL->import is deprecated. UNIVERSAL::isa should not
+ be called, but instead the method form of 'isa'.
+Origin: vendor
+Bug-Debian: http://bugs.debian.org/614869
+Forwarded: *** FIXME ***
+Author: Salvatore Bonaccorso <carnil at debian.org>
+Last-Update: 2011-06-12
+
+--- a/lib/Net/EPP/Simple.pm
++++ b/lib/Net/EPP/Simple.pm
+@@ -1273,7 +1273,7 @@
+ my $hello = Net::EPP::Frame::Hello->new;
+ my $response = $self->request($hello);
+
+- return (UNIVERSAL::isa($response, 'XML::LibXML::Document') ? 1 : undef);
++ return ($response->isa('XML::LibXML::Document') ? 1 : undef);
+ }
+
+ sub _request {
+@@ -1330,10 +1330,10 @@
+ $Error = '';
+ $Message = '';
+
+- $frame->clTRID->appendText(sha1_hex(ref($self).time().$$)) if (UNIVERSAL::isa($frame, 'Net::EPP::Frame::Command'));
++ $frame->clTRID->appendText(sha1_hex(ref($self).time().$$)) if ($frame->isa('Net::EPP::Frame::Command'));
+
+ $self->debug(sprintf('sending a %s to the server', ref($frame)));
+- if (UNIVERSAL::isa($frame, 'XML::LibXML::Document')) {
++ if ($frame->isa('XML::LibXML::Document')) {
+ map { $self->debug('C: '.$_) } split(/\n/, $frame->toString(1));
+
+ } else {
+@@ -1343,7 +1343,7 @@
+
+ my $response = $self->SUPER::request($frame);
+
+- map { $self->debug('S: '.$_) } split(/\n/, $response->toString(1)) if (UNIVERSAL::isa($response, 'XML::LibXML::Document'));
++ map { $self->debug('S: '.$_) } split(/\n/, $response->toString(1)) if ($response->isa('XML::LibXML::Document'));
+
+ return $response;
+ }
Added: trunk/libnet-epp-perl/debian/patches/series
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-epp-perl/debian/patches/series?rev=75460&op=file
==============================================================================
--- trunk/libnet-epp-perl/debian/patches/series (added)
+++ trunk/libnet-epp-perl/debian/patches/series Sun Jun 12 08:57:57 2011
@@ -1,0 +1,1 @@
+do-not-use-UNIVERSAL-isa.patch
More information about the Pkg-perl-cvs-commits
mailing list