r7615 - in /trunk/libnet-irc-perl/debian: changelog patches/00list patches/60warnings_from_unknown_event.dpatch

[ntyni-guest at users.alioth.debian.org]

Author: ntyni-guest
Date: Sun Sep 16 18:47:39 2007
New Revision: 7615

URL: http://svn.debian.org/wsvn/?sc=1&rev=7615
Log:
* debian/patches/60warnings_from_unknown_event.dpatch:
  fix warnings from unknown response codes. Thanks to David Sobon.
  (See #437474)

Added:
    trunk/libnet-irc-perl/debian/patches/60warnings_from_unknown_event.dpatch   (with props)
Modified:
    trunk/libnet-irc-perl/debian/changelog
    trunk/libnet-irc-perl/debian/patches/00list

Modified: trunk/libnet-irc-perl/debian/changelog
URL: http://svn.debian.org/wsvn/trunk/libnet-irc-perl/debian/changelog?rev=7615&op=diff
==============================================================================
--- trunk/libnet-irc-perl/debian/changelog (original)
+++ trunk/libnet-irc-perl/debian/changelog Sun Sep 16 18:47:39 2007
@@ -2,8 +2,11 @@
 
   * debian/patches/50fix_next_outside_loop_with_return.dpatch:
     fix subroutine exit via 'next'. Thanks to David Sobon. (Closes: #437474)
+  * debian/patches/60warnings_from_unknown_event.dpatch:
+    fix warnings from unknown response codes. Thanks to David Sobon. 
+    (See #437474)
 
- -- Niko Tyni <ntyni at iki.fi>  Sun, 16 Sep 2007 20:53:34 +0300
+ -- Niko Tyni <ntyni at iki.fi>  Sun, 16 Sep 2007 21:47:28 +0300
 
 libnet-irc-perl (0.75-6) unstable; urgency=low
 

Modified: trunk/libnet-irc-perl/debian/patches/00list
URL: http://svn.debian.org/wsvn/trunk/libnet-irc-perl/debian/patches/00list?rev=7615&op=diff
==============================================================================
--- trunk/libnet-irc-perl/debian/patches/00list (original)
+++ trunk/libnet-irc-perl/debian/patches/00list Sun Sep 16 18:47:39 2007
@@ -3,3 +3,4 @@
 30irctest.dpatch
 40handler.dpatch
 50fix_next_outside_loop_with_return.dpatch
+60warnings_from_unknown_event.dpatch

Added: trunk/libnet-irc-perl/debian/patches/60warnings_from_unknown_event.dpatch
URL: http://svn.debian.org/wsvn/trunk/libnet-irc-perl/debian/patches/60warnings_from_unknown_event.dpatch?rev=7615&op=file
==============================================================================
--- trunk/libnet-irc-perl/debian/patches/60warnings_from_unknown_event.dpatch (added)
+++ trunk/libnet-irc-perl/debian/patches/60warnings_from_unknown_event.dpatch Sun Sep 16 18:47:39 2007
@@ -1,0 +1,45 @@
+#! /bin/sh /usr/share/dpatch/dpatch-run
+## 60warnings_from_unknown_event.dpatch by Niko Tyni <ntyni at iki.fi>
+##
+## All lines beginning with `## DP:' are a description of the patch.
+## DP: Fix 'uninitialized value' warnings from unknown response codes.
+## DP: See #437474
+
+ at DPATCH@
+diff -urNad libnet-irc-perl~/Connection.pm libnet-irc-perl/Connection.pm
+--- libnet-irc-perl~/Connection.pm	2007-09-16 21:35:56.000000000 +0300
++++ libnet-irc-perl/Connection.pm	2007-09-16 21:35:59.000000000 +0300
+@@ -467,6 +467,7 @@
+   my $ev;
+   if (ref $event) {
+     $ev = $event->type;
++    $ev = "" if !$ev;
+   } elsif (defined $event) {
+     $ev = $event;
+     $event = Net::IRC::Event->new($event, '', '', '');
+@@ -1126,11 +1127,15 @@
+   
+   $from = substr $from, 1 if $from =~ /^:/;
+   
+-  return Net::IRC::Event->new( $type,
++  my $event = Net::IRC::Event->new( $type,
+                                $from,
+                                '',
+                                'server',
+                                @stuff );
++  if (!$event->type and $self->{_debug}) {
++    carp("Unknown code $type received") ;
++  }
++  return $event;
+ }
+ 
+ # Helps you flee those hard-to-stand channels.
+@@ -1584,6 +1589,8 @@
+     croak "You EEEEEDIOT!!! Not enough args to _default()!";
+   }
+   
++  return 1 if !$event->type;
++
+   # Reply to PING from server as quickly as possible.
+   if ($event->type eq "ping") {
+     $self->sl("PONG " . (CORE::join ' ', $event->args));

Propchange: trunk/libnet-irc-perl/debian/patches/60warnings_from_unknown_event.dpatch
------------------------------------------------------------------------------
    svn:executable = *