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