From dd69b947b52f2fce2d412b3d9745e9ff58edf452 Mon Sep 17 00:00:00 2001 From: fukachan Date: Fri, 6 Apr 2001 12:58:09 +0000 Subject: nuke orphan $i --- fml/lib/Mail/Message.pm | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/fml/lib/Mail/Message.pm b/fml/lib/Mail/Message.pm index 2a8e6b7b..a47cb450 100644 --- a/fml/lib/Mail/Message.pm +++ b/fml/lib/Mail/Message.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: Message.pm,v 1.3 2001/04/06 11:35:12 fukachan Exp $ +# $FML: Message.pm,v 1.4 2001/04/06 12:46:59 fukachan Exp $ # package Mail::Message; @@ -279,7 +279,6 @@ sub last while (1) { if (defined $m->{ next }) { - $i++; $m = $m->{ next }; } else { -- cgit v1.2.1