r2760 - in /packages/libnetxap-perl/trunk: Net/IMAP.pm debian/patches/ debian/patches/10debug.dpatch

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

Author: ntyni-guest
Date: Sat May 13 17:28:35 2006
New Revision: 2760

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=2760
Log:
Move debug-patch (#366209) to dpatch.

Added:
    packages/libnetxap-perl/trunk/debian/patches/
    packages/libnetxap-perl/trunk/debian/patches/10debug.dpatch   (with props)
Modified:
    packages/libnetxap-perl/trunk/Net/IMAP.pm

Modified: packages/libnetxap-perl/trunk/Net/IMAP.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libnetxap-perl/trunk/Net/IMAP.pm?rev=2760&op=diff
==============================================================================
--- packages/libnetxap-perl/trunk/Net/IMAP.pm (original)
+++ packages/libnetxap-perl/trunk/Net/IMAP.pm Sat May 13 17:28:35 2006
@@ -2088,8 +2088,7 @@
   my %hash = @{Net::xAP->parse_fields($str)->[0]};
   for my $key (keys %hash) {
     my $lckey = lc($key);
-    print "$lckey $hash{$key}\n"
-      if $parent->debug;
+    print "$lckey $hash{$key}\n";
     if ($lckey eq 'envelope') {
       $self->{Items}{$lckey} = Net::IMAP::Envelope->new($hash{$key});
     } elsif (($lckey eq 'bodystructure') || ($lckey eq 'body')) {

Added: packages/libnetxap-perl/trunk/debian/patches/10debug.dpatch
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libnetxap-perl/trunk/debian/patches/10debug.dpatch?rev=2760&op=file
==============================================================================
--- packages/libnetxap-perl/trunk/debian/patches/10debug.dpatch (added)
+++ packages/libnetxap-perl/trunk/debian/patches/10debug.dpatch Sat May 13 17:28:35 2006
@@ -1,0 +1,22 @@
+#! /bin/sh /usr/share/dpatch/dpatch-run
+## 10debug.dpatch by Niko Tyni <ntyni at iki.fi>
+##
+## All lines beginning with `## DP:' are a description of the patch.
+## DP: Suppress debug output unless we actually asked for it.
+## DP: Originally from Morten Bgeskov (#319558)
+
+
+ at DPATCH@
+diff -urNad trunk~/Net/IMAP.pm trunk/Net/IMAP.pm
+--- trunk~/Net/IMAP.pm	2006-05-13 20:26:27.000000000 +0300
++++ trunk/Net/IMAP.pm	2006-05-13 20:26:39.501177325 +0300
+@@ -2088,7 +2088,8 @@
+   my %hash = @{Net::xAP->parse_fields($str)->[0]};
+   for my $key (keys %hash) {
+     my $lckey = lc($key);
+-    print "$lckey $hash{$key}\n";
++    print "$lckey $hash{$key}\n"
++      if $parent->debug;
+     if ($lckey eq 'envelope') {
+       $self->{Items}{$lckey} = Net::IMAP::Envelope->new($hash{$key});
+     } elsif (($lckey eq 'bodystructure') || ($lckey eq 'body')) {

Propchange: packages/libnetxap-perl/trunk/debian/patches/10debug.dpatch
------------------------------------------------------------------------------
    svn:executable = *