From cfa9fd975b76df8c8c1b80dcc6e28af57e0777cb Mon Sep 17 00:00:00 2001
From: fukachan <fukachan>
Date: Thu, 26 Dec 2002 15:07:49 +0000
Subject: fix if (defined $sfh) { $sfh-> .. }

---
 fml/lib/FML/Article.pm | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/fml/lib/FML/Article.pm b/fml/lib/FML/Article.pm
index bb6f24ad..b5efce58 100644
--- a/fml/lib/FML/Article.pm
+++ b/fml/lib/FML/Article.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: Article.pm,v 1.50 2002/12/15 14:02:08 fukachan Exp $
+# $FML: Article.pm,v 1.51 2002/12/24 10:19:38 fukachan Exp $
 #
 
 package FML::Article;
@@ -163,11 +163,14 @@ sub id
     # processes not Process::Distribute
     else {
 	my $seq_file = $config->{ sequence_file };
+	my $n        = 0;
 
 	use File::Sequence;
 	my $sfh = new File::Sequence { sequence_file => $seq_file };
-	my $n   = $sfh->get_id();
-	$sfh->close();
+	if (defined $sfh) {
+	    $n = $sfh->get_id();
+	    $sfh->close();
+	}
 
 	return $n;
     }
-- 
cgit v1.2.1