Changeset 4498

Timestamp:

06/24/08 22:33:29 (5 years ago)

Author:

werner

Message:

Header:<EOL> appears in real life and is RFC822-compliant, so we better

support it.

File:

• developers/werner/bin/mdflt (modified) (2 diffs)

developers/werner/bin/mdflt

@@ -86 +86 @@
             $last = uc $1;
             $hdr{$last} = $';
+        } elsif (/^(\S+):$/) {
+            $last = uc $1;
+            $hdr{$last} = "";
         } elsif (/^\s+/) {
             die "unexpected continuation in $name:\n$_\n" unless defined $last;
@@ -99 +102 @@
         &move($name, $folder[$i]."/".$base);
         $cnt[$i]++;
+        last;
     }
     close FILE;