diff options
| author | tmu <tmu> | 2003-04-16 08:09:23 +0000 |
|---|---|---|
| committer | tmu <tmu> | 2003-04-16 08:09:23 +0000 |
| commit | 6cca95828296d2a33b1c8cf12bc1fbf6c82ae52c (patch) | |
| tree | 8502485d93cb96e7ecd7a583329a45473630d6d2 /fml/lib | |
| parent | 45c63c54ee72be2abc7548fe1b06228f42ac35c3 (diff) | |
| download | fml8-6cca95828296d2a33b1c8cf12bc1fbf6c82ae52c.tar.gz fml8-6cca95828296d2a33b1c8cf12bc1fbf6c82ae52c.tar.bz2 fml8-6cca95828296d2a33b1c8cf12bc1fbf6c82ae52c.zip | |
rewrite_received() outside loop $header->delete($org) for bad count
Diffstat (limited to 'fml/lib')
| -rw-r--r-- | fml/lib/FML/Header.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/fml/lib/FML/Header.pm b/fml/lib/FML/Header.pm index d33d3c07..a5a699d2 100644 --- a/fml/lib/FML/Header.pm +++ b/fml/lib/FML/Header.pm @@ -4,7 +4,7 @@ # All rights reserved. This program is free software; you can # redistribute it and/or modify it under the same terms as Perl itself. # -# $FML: Header.pm,v 1.56 2003/04/08 15:41:42 tmu Exp $ +# $FML: Header.pm,v 1.57 2003/04/15 12:24:47 tmu Exp $ # package FML::Header; @@ -487,8 +487,8 @@ sub rewrite_received { $data = $header->get($org, $i); $header->add($new, $data); - $header->delete($org, $i); } + $header->delete($org); Log("(debug) rewrite $org to $new (total $num)"); } |