use warnings;
use feature ':5.10';
+no if $] >= 5.018, warnings => "experimental::smartmatch";
+
use local::lib;
use Encode;
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 {