[Bps-public-commit] r9322 - in Net-Server-IMAP: lib/Net/Server/IMAP

[alexmv at bestpractical.com]

Author: alexmv
Date: Tue Oct 16 12:39:00 2007
New Revision: 9322

Modified:
   Net-Server-IMAP/   (props changed)
   Net-Server-IMAP/lib/Net/Server/IMAP/Message.pm

Log:
 r23669 at zoq-fot-pik:  chmrr | 2007-10-16 12:36:20 -0400
  * Remove some debugging lines


Modified: Net-Server-IMAP/lib/Net/Server/IMAP/Message.pm
==============================================================================
--- Net-Server-IMAP/lib/Net/Server/IMAP/Message.pm	(original)
+++ Net-Server-IMAP/lib/Net/Server/IMAP/Message.pm	Tue Oct 16 12:39:00 2007
@@ -31,7 +31,6 @@
     my $flag = shift;
     my $old  = exists $self->_flags->{$flag};
     $self->_flags->{$flag} = 1;
-    warn "Set flag $flag" unless $old;
     return not $old;
 }
 
@@ -40,7 +39,6 @@
     my $flag = shift;
     my $old  = exists $self->_flags->{$flag};
     delete $self->_flags->{$flag};
-    warn "Cleared flag $flag" if $old;
     return $old;
 }
 
@@ -209,8 +207,6 @@
         if ( lc $data->{discrete} eq "text" ) {
             $lines++ while $body =~ /\n/g;
         }
-        use YAML;
-        warn YAML::Dump( $mime->header_obj );
         return [
             $data->{discrete},
             $data->{composite},