r10048 - /trunk/libnet-imap-simple-perl/lib/Net/IMAP/Simple.pm

[gwolf at users.alioth.debian.org]

Author: gwolf
Date: Fri Nov 30 16:59:51 2007
New Revision: 10048

URL: http://svn.debian.org/wsvn/?sc=1&rev=10048
Log:
Fixing my latest fix

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

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=10048&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:59:51 2007
@@ -900,7 +900,7 @@
 
  $line = "[$package :: $filename :: $line\@$dline -> $routine] $str\n";
  if(ref($self->{debug}) eq 'GLOB'){
-        print $self->{debug} $line;
+        print { $self->{debug} } $line;
  } else {
 	print STDOUT $line;
  }