r1914 - in packages/libnet-irc-perl/trunk/debian: . patches

[Niko Tyni]

Author: ntyni-guest
Date: 2006-01-14 15:27:02 +0000 (Sat, 14 Jan 2006)
New Revision: 1914

Added:
   packages/libnet-irc-perl/trunk/debian/patches/40handler.dpatch
Modified:
   packages/libnet-irc-perl/trunk/debian/changelog
   packages/libnet-irc-perl/trunk/debian/patches/00list
Log:
Fix #303400: Can't locate object method "handler" via package "Net::IRC::DCC::CHAT"


Modified: packages/libnet-irc-perl/trunk/debian/changelog
===================================================================
--- packages/libnet-irc-perl/trunk/debian/changelog	2006-01-14 14:30:43 UTC (rev 1913)
+++ packages/libnet-irc-perl/trunk/debian/changelog	2006-01-14 15:27:02 UTC (rev 1914)
@@ -6,8 +6,10 @@
     as per policy.
   * Upgrade to Standards-Version 3.6.2. No changes needed.
   * Don't ignore the return value of 'make test'.
+  * debian/patches/40handler.pm:
+    + only call handler() if the object supports it. (Closes: #303400)
 
- -- Niko Tyni <ntyni at iki.fi>  Sat, 14 Jan 2006 16:09:22 +0200
+ -- Niko Tyni <ntyni at iki.fi>  Sat, 14 Jan 2006 17:23:40 +0200
 
 libnet-irc-perl (0.75-4) unstable; urgency=low
 

Modified: packages/libnet-irc-perl/trunk/debian/patches/00list
===================================================================
--- packages/libnet-irc-perl/trunk/debian/patches/00list	2006-01-14 14:30:43 UTC (rev 1913)
+++ packages/libnet-irc-perl/trunk/debian/patches/00list	2006-01-14 15:27:02 UTC (rev 1914)
@@ -1,3 +1,4 @@
 10manpages.dpatch
 20do_one_loop.dpatch
 30irctest.dpatch
+40handler.dpatch

Added: packages/libnet-irc-perl/trunk/debian/patches/40handler.dpatch
===================================================================
--- packages/libnet-irc-perl/trunk/debian/patches/40handler.dpatch	2006-01-14 14:30:43 UTC (rev 1913)
+++ packages/libnet-irc-perl/trunk/debian/patches/40handler.dpatch	2006-01-14 15:27:02 UTC (rev 1914)
@@ -0,0 +1,19 @@
+#! /bin/sh /usr/share/dpatch/dpatch-run
+## 40handler.dpatch by Niko Tyni <ntyni at iki.fi>
+##
+## All lines beginning with `## DP:' are a description of the patch.
+## DP: Only call handler() for those objects supporting it. (#303400)
+
+ at DPATCH@
+diff -urNad trunk~/DCC.pm trunk/DCC.pm
+--- trunk~/DCC.pm	2005-12-17 16:30:50.000000000 +0200
++++ trunk/DCC.pm	2006-01-14 16:32:57.840202802 +0200
+@@ -145,7 +145,7 @@
+     # Only do the Disconnection Dance of Death if the socket is still
+     # live. Duplicate dcc_close events would be a Bad Thing.
+     
+-    if ($self->{_socket}->opened) {
++    if ($self->{_socket}->opened and $self->{_parent}->can('handler')) {
+ 	$self->{_parent}->handler(Net::IRC::Event->new('dcc_close',
+ 						       $self->{_nick},
+ 						       $self->{_socket},


Property changes on: packages/libnet-irc-perl/trunk/debian/patches/40handler.dpatch
___________________________________________________________________
Name: svn:executable
   + *