projects
/
Biblio-RFID.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
5bb3cd1
)
display time for all events
author
Dobrica Pavlinusic
<dpavlin@rot13.org>
Mon, 9 Aug 2010 17:35:53 +0000
(19:35 +0200)
committer
Dobrica Pavlinusic
<dpavlin@rot13.org>
Mon, 9 Aug 2010 17:35:53 +0000
(19:35 +0200)
scripts/scan.pl
patch
|
blob
|
history
diff --git
a/scripts/scan.pl
b/scripts/scan.pl
index
8a460b2
..
5d3fe3c
100755
(executable)
--- a/
scripts/scan.pl
+++ b/
scripts/scan.pl
@@
-37,15
+37,15
@@
do {
my @visible = $rfid->tags(
enter => sub {
my $tag = shift;
- print
"
enter $tag ", tag($tag);
+ print
localtime."
enter $tag ", tag($tag);
},
leave => sub {
my $tag = shift;
- print
"
leave $tag ", tag($tag);
+ print
localtime."
leave $tag ", tag($tag);
},
);
- warn
scalar localtime,
" visible: ",join(' ',@visible),"\n";
+ warn
localtime.
" visible: ",join(' ',@visible),"\n";
} while $loop;