X-Git-Url: https://ruin.nu/git/?a=blobdiff_plain;f=scripts%2Fsms.pl;h=d4f55ebe0976952e8f4ca349ca7035a32ed823af;hb=f3cd955b85092ea418d9c1de90be49c9f598527f;hp=4b063de87fdb69c9b831d68cd1bc013ec261fa2a;hpb=44d272d9a8cff54ec21b9fb07325a0c63a5b1121;p=ndwebbie.git

diff --git a/scripts/sms.pl b/scripts/sms.pl
index 4b063de..d4f55eb 100755
--- a/scripts/sms.pl
+++ b/scripts/sms.pl
@@ -4,6 +4,8 @@ use strict;
 use warnings;
 use feature ':5.10';
 
+no if $] >= 5.018, warnings => "experimental::smartmatch";
+
 use local::lib;
 
 use Encode;
@@ -65,7 +67,7 @@ eval{
 			when(/^ID: (\S+)/){
 				$update->execute($msg->{id},$1,'Sent');
 			}
-			when(/^ERR: (?:302|128|114|113|105),(.*)/){
+			when(/^ERR: (?:301|302|128|114|113|105),(.*)/){
 				$update->execute($msg->{id},undef,$1);
 			}
 			default {