r7614 - in /trunk/libnet-irc-perl/debian: changelog patches/00list patches/50fix_next_outside_loop_with_return.dpatch

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

Author: ntyni-guest
Date: Sun Sep 16 18:47:37 2007
New Revision: 7614

URL: http://svn.debian.org/wsvn/?sc=1&rev=7614
Log:
* debian/patches/50fix_next_outside_loop_with_return.dpatch:
  fix subroutine exit via 'next'. Thanks to David Sobon. (Closes: #437474)

Added:
    trunk/libnet-irc-perl/debian/patches/50fix_next_outside_loop_with_return.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=7614&op=diff
==============================================================================
--- trunk/libnet-irc-perl/debian/changelog (original)
+++ trunk/libnet-irc-perl/debian/changelog Sun Sep 16 18:47:37 2007
@@ -1,3 +1,10 @@
+libnet-irc-perl (0.75-7) unstable; urgency=low
+
+  * debian/patches/50fix_next_outside_loop_with_return.dpatch:
+    fix subroutine exit via 'next'. Thanks to David Sobon. (Closes: #437474)
+
+ -- Niko Tyni <ntyni at iki.fi>  Sun, 16 Sep 2007 20:53:34 +0300
+
 libnet-irc-perl (0.75-6) unstable; urgency=low
 
   * Use $(CURDIR) [make] instead of $(PWD) [sh] to fix issues with sudo.

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

Added: trunk/libnet-irc-perl/debian/patches/50fix_next_outside_loop_with_return.dpatch
URL: http://svn.debian.org/wsvn/trunk/libnet-irc-perl/debian/patches/50fix_next_outside_loop_with_return.dpatch?rev=7614&op=file
==============================================================================
--- trunk/libnet-irc-perl/debian/patches/50fix_next_outside_loop_with_return.dpatch (added)
+++ trunk/libnet-irc-perl/debian/patches/50fix_next_outside_loop_with_return.dpatch Sun Sep 16 18:47:37 2007
@@ -1,0 +1,20 @@
+#! /bin/sh /usr/share/dpatch/dpatch-run
+## 50fix_next_outside_loop_with_return.dpatch by Niko Tyni <ntyni at iki.fi>
+##
+## All lines beginning with `## DP:' are a description of the patch.
+## DP: Exit subroutine with 'return' instead of 'next'.
+## DP: David Sobon <dsobon at gmail.com>, #437474
+
+ at DPATCH@
+diff -urNad libnet-irc-perl~/DCC.pm libnet-irc-perl/DCC.pm
+--- libnet-irc-perl~/DCC.pm	2007-09-16 20:48:27.000000000 +0300
++++ libnet-irc-perl/DCC.pm	2007-09-16 20:51:13.000000000 +0300
+@@ -253,7 +253,7 @@
+ 
+     my $line = $self->_getline($_[0], 'BLOCKS');
+ 
+-    next unless defined $line;
++    return unless defined $line;
+     unless(print {$self->{_fh}} $line) {
+ 	carp ("Error writing to " . $self->{_filename} . ": $!");
+ 	close $self->{_fh};

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