FNF: not use $_

1 files changed, 26 insertions, 18 deletions

diff --git a/fml/lib/Mail/ThreadTrack/Print/HTML.pm b/fml/lib/Mail/ThreadTrack/Print/HTML.pm
index 28b88507..6eaf4249 100644
--- a/fml/lib/Mail/ThreadTrack/Print/HTML.pm
+++ b/fml/lib/Mail/ThreadTrack/Print/HTML.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: HTML.pm,v 1.15 2003/01/11 15:14:26 fukachan Exp $
+# $FML: HTML.pm,v 1.16 2003/01/11 15:16:37 fukachan Exp $
 #
 
 package Mail::ThreadTrack::Print::HTML;
@@ -63,27 +63,35 @@ sub show_articles_in_thread
 	use FileHandle;
 
 	my $s = '';
-	for (split(/\s+/, $articles)) {
+	for my $article (split(/\s+/, $articles)) {
 	    my $file = $self->filepath({
 		base_dir => $spool_dir,
-		id       => $_,
+		id       => $article,
 	    });
-	    my $fh   = new FileHandle $file;
-	    while (defined($_ = $fh->getline())) {
-		# ignore header part.
-		next if 1 .. /^$/;
-
-		# XXX-TODO: care for non Japanese char(s).
-		# XXX-TODO: to avoid CSS bug, convert all special char(s).
-		# XXX-TODO: create method safe_html_string() in Mail::Message ?
-		$s = STR2EUC($_);
-		$s =~ s/&/&/g;
-		$s =~ s/</&lt;/g;
-		$s =~ s/>/&gt;/g;
-		$s =~ s/\"/&quot;/g;
-		print $s;
+
+	    # XXX-TODO: care for non Japanese char(s).
+	    # XXX-TODO: to avoid CSS bug, convert all special char(s).
+	    # XXX-TODO: create method safe_html_string() in Mail::Message ?
+	    if (-f $file) {
+		my $fh = new FileHandle $file;
+
+		if (defined $fh) {
+		    my $buf;
+
+		    while (defined($buf = $fh->getline())) {
+			# ignore header part.
+			next if 1 .. $buf =~ /^$/o;
+
+			$s = STR2EUC($buf);
+			$s =~ s/&/&amp;/g;
+			$s =~ s/</&lt;/g;
+			$s =~ s/>/&gt;/g;
+			$s =~ s/\"/&quot;/g;
+			print $s;
+		    }
+		    $fh->close;
+		}
 	    }
-	    $fh->close;
 	}
     }