r75467 - in /trunk/libnet-epp-perl/debian: changelog patches/do-not-use-UNIVERSAL-isa-as-function.patch patches/do-not-use-UNIVERSAL-isa.patch patches/series

[carnil at users.alioth.debian.org]

Author: carnil
Date: Sun Jun 12 11:56:08 2011
New Revision: 75467

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=75467
Log:
Add do-not-use-UNIVERSAL-isa-as-function.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/do-not-use-UNIVERSAL-isa-as-function.patch
Removed:
    trunk/libnet-epp-perl/debian/patches/do-not-use-UNIVERSAL-isa.patch
Modified:
    trunk/libnet-epp-perl/debian/changelog
    trunk/libnet-epp-perl/debian/patches/series

Modified: trunk/libnet-epp-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-epp-perl/debian/changelog?rev=75467&op=diff
==============================================================================
--- trunk/libnet-epp-perl/debian/changelog (original)
+++ trunk/libnet-epp-perl/debian/changelog Sun Jun 12 11:56:08 2011
@@ -5,8 +5,9 @@
   * 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).
+  * Add do-not-use-UNIVERSAL-isa-as-function.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:55:35 +0200
 

Added: trunk/libnet-epp-perl/debian/patches/do-not-use-UNIVERSAL-isa-as-function.patch
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-epp-perl/debian/patches/do-not-use-UNIVERSAL-isa-as-function.patch?rev=75467&op=file
==============================================================================
--- trunk/libnet-epp-perl/debian/patches/do-not-use-UNIVERSAL-isa-as-function.patch (added)
+++ trunk/libnet-epp-perl/debian/patches/do-not-use-UNIVERSAL-isa-as-function.patch Sun Jun 12 11:56:08 2011
@@ -1,0 +1,42 @@
+Description: UNIVERSAL->import is deprecated. UNIVERSAL::isa should not
+ be called, but instead the method form of 'isa'.
+Origin: vendor
+Bug: https://rt.cpan.org/Ticket/Display.html?id=68776
+Bug-Debian: http://bugs.debian.org/614869
+Forwarded: yes
+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;
+ }

Modified: trunk/libnet-epp-perl/debian/patches/series
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-epp-perl/debian/patches/series?rev=75467&op=diff
==============================================================================
--- trunk/libnet-epp-perl/debian/patches/series (original)
+++ trunk/libnet-epp-perl/debian/patches/series Sun Jun 12 11:56:08 2011
@@ -1,1 +1,1 @@
-do-not-use-UNIVERSAL-isa.patch
+do-not-use-UNIVERSAL-isa-as-function.patch