rev 1971 - trunk/Email-Folder/lib/Email/Folder

[prev] [thread] [next] [lurker] [Date index for 2006/03/31]

Author: richardc
Date: 2006-03-31 13:50:37 +0100 (Fri, 31 Mar 2006)
New Revision: 1971

Modified:
   trunk/Email-Folder/lib/Email/Folder/Mbox.pm
Log:
this was clearly intended to be local $_. badness

Modified: trunk/Email-Folder/lib/Email/Folder/Mbox.pm
===================================================================
--- trunk/Email-Folder/lib/Email/Folder/Mbox.pm	2006-03-31 10:54:38 UTC (rev 1970)
+++ trunk/Email-Folder/lib/Email/Folder/Mbox.pm	2006-03-31 12:50:37 UTC (rev 1971)
@@ -132,7 +132,7 @@
     my $inheaders = 1;
     ++$count;
     print "$count starting scanning at line $.\n" if debug;
-    local $/;
+    local $_;
     while (<$fh>) {
         if ($_ eq $/ && $inheaders) { # end of headers
             print "$count end of headers at line $.\n" if debug;

• rev 1971 - trunk/Email-Folder/lib/Email/Folder richardc 13:50 on 31 Mar 2006

Generated at 22:00 on 30 Apr 2006 by mariachi 0.52