r10047 - in /trunk/libnet-imap-simple-perl: debian/changelog lib/Net/IMAP/Simple.pm

[gwolf at users.alioth.debian.org]

Author: gwolf
Date: Fri Nov 30 16:53:46 2007
New Revision: 10047

URL: http://svn.debian.org/wsvn/?sc=1&rev=10047
Log:
Fixing some warnings (#450955)

Modified:
    trunk/libnet-imap-simple-perl/debian/changelog
    trunk/libnet-imap-simple-perl/lib/Net/IMAP/Simple.pm

Modified: trunk/libnet-imap-simple-perl/debian/changelog
URL: http://svn.debian.org/wsvn/trunk/libnet-imap-simple-perl/debian/changelog?rev=10047&op=diff
==============================================================================
--- trunk/libnet-imap-simple-perl/debian/changelog (original)
+++ trunk/libnet-imap-simple-perl/debian/changelog Fri Nov 30 16:53:46 2007
@@ -1,10 +1,15 @@
-libnet-imap-simple-perl (1.17-2) UNRELEASED; urgency=low
+libnet-imap-simple-perl (1.17-2) unstable; urgency=low
 
+  [ gregor herrmann ]
   * debian/control: Added: Vcs-Svn field (source stanza); Vcs-Browser
     field (source stanza); Homepage field (source stanza). Removed:
     Homepage pseudo-field (Description); XS-Vcs-Svn fields.
 
- -- gregor herrmann <gregor+debian at comodo.priv.at>  Tue, 09 Oct 2007 22:31:01 +0200
+  [ Gunnar Wolf ]
+  * Fixed some warnings (and a potential showstopper) that appear when
+    running with the -w switch (Closes: #450955)
+
+ -- Gunnar Wolf <gwolf at debian.org>  Fri, 30 Nov 2007 10:52:55 -0600
 
 libnet-imap-simple-perl (1.17-1) unstable; urgency=low
 

Modified: trunk/libnet-imap-simple-perl/lib/Net/IMAP/Simple.pm
URL: http://svn.debian.org/wsvn/trunk/libnet-imap-simple-perl/lib/Net/IMAP/Simple.pm?rev=10047&op=diff
==============================================================================
--- trunk/libnet-imap-simple-perl/lib/Net/IMAP/Simple.pm (original)
+++ trunk/libnet-imap-simple-perl/lib/Net/IMAP/Simple.pm Fri Nov 30 16:53:46 2007
@@ -898,9 +898,9 @@
  $str =~ s/\r/\\r/g;
  $str =~ s/\cM/^M/g;
 
- my $line = "[$package :: $filename :: $line\@$dline -> $routine] $str\n";
+ $line = "[$package :: $filename :: $line\@$dline -> $routine] $str\n";
  if(ref($self->{debug}) eq 'GLOB'){
-	write($self->{debug}, $line);
+        print $self->{debug} $line;
  } else {
 	print STDOUT $line;
  }