From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Fri, 3 Sep 2010 12:37:28 +0000 (+0200)
Subject: append to log
X-Git-Url: http://git.rot13.org/?p=Biblio-RFID.git;a=commitdiff_plain;h=810feedbb36bcb43c5fe70a49a42adf89e352ba1

append to log

this fixes HUGE bug which overwrites log file with every new tag :-(
---

diff --git a/scripts/print.pl b/scripts/print.pl
index 701447e..476a64e 100755
--- a/scripts/print.pl
+++ b/scripts/print.pl
@@ -89,7 +89,7 @@ die "$log_path exists" if -e $log_path;
 
 sub write_log {
 	my ( $tag, $number ) = @_;
-	open(my $log, '>', $log_path) || die "$log_path: $!";
+	open(my $log, '>>', $log_path) || die "$log_path: $!";
 	my $date = iso_date;
 	print $log "$date,$tag,$number\n";
 	close($log);