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 (executable)
--- 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);