From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Tue, 3 Aug 2010 11:53:14 +0000 (+0200)
Subject: call read_afi only if it exists
X-Git-Tag: RFID-Biblio-0.02~76
X-Git-Url: http://git.rot13.org/?p=Biblio-RFID.git;a=commitdiff_plain;h=d4bd28fa3b4268f4146b8663605c5b73877e3aa7

call read_afi only if it exists
---

diff --git a/scripts/RFID-JSONP-server.pl b/scripts/RFID-JSONP-server.pl
index 2ff919a..6f6e3e3 100755
--- a/scripts/RFID-JSONP-server.pl
+++ b/scripts/RFID-JSONP-server.pl
@@ -100,7 +100,8 @@ sub http_server {
 				foreach my $tag ( keys %$tags ) {
 					my $hash = RFID::Biblio::RFID501->to_hash( $tags->{$tag} );
 					$hash->{sid}  = $tag;
-					$hash->{security} = uc unpack 'H*', $rfid->read_afi( $tag );
+					$hash->{security} = uc unpack 'H*', $rfid->read_afi( $tag )
+						if $rfid->can('read_afi');
 					push @{ $json->{tags} }, $hash;
 				};
 				warn "#### ", encode_json($json);