--- trunk/Estraier.pm 2006/01/28 17:58:22 96 +++ trunk/Estraier.pm 2006/01/28 18:19:47 97 @@ -321,7 +321,7 @@ my $draft; foreach my $attr_name (sort keys %{ $self->{attrs} }) { - next unless(my $v = $self->{attrs}->{$attr_name}); + next unless defined(my $v = $self->{attrs}->{$attr_name}); $draft .= $attr_name . '=' . $v . "\n"; }