correctly extract full fixed SIP2 response (can have characters)
authorDobrica Pavlinusic <dpavlin@rot13.org>
Tue, 17 Oct 2017 12:26:08 +0000 (14:26 +0200)
committerDobrica Pavlinusic <dpavlin@rot13.org>
Tue, 17 Oct 2017 12:26:08 +0000 (14:26 +0200)
scripts/RFID-JSONP-server.pl

index 06576d2..62ae9b1 100755 (executable)
@@ -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 ) ) {