save to log only if we have it

diff --git a/scripts/scan.pl b/scripts/scan.pl
index dd281a7..0b59111 100755 (executable)
--- a/scripts/scan.pl
+++ b/scripts/scan.pl
@@ -44,7 +44,7 @@ sub iso_date {
 
 sub log_tag {
        my $tag = shift;
-       return if $saved->{tag};
+       return if $saved->{tag} or ! $log;
        my $hash = Biblio::RFID::RFID501->to_hash( $rfid->blocks($tag) );
        open(my $fh, '>>', $log) || die "$log: $!";
        print $fh iso_date,",$tag,", $hash->{content}, "\n";