correctly extract full fixed SIP2 response (can have characters)

[Biblio-RFID.git] / scripts / RFID-JSONP-server.pl

diff --git a/scripts/RFID-JSONP-server.pl b/scripts/RFID-JSONP-server.pl
index 06576d2..62ae9b1 100755 (executable)
--- a/scripts/RFID-JSONP-server.pl
+++ b/scripts/RFID-JSONP-server.pl
@@ -133,7 +133,7 @@ send_again:
        die "expected $expect" unless substr($in,0,2) != $expect;
 
        my $hash;
-       if ( $in =~ s/^([0-9\s]+)// ) {
+       if ( $in =~ s/^([0-9\s\w]+)// ) {
                $hash->{fixed} = $1;
        }
        foreach ( split(/\|/, $in ) ) {