support : in options

diff --git a/scripts/pocket-devotee b/scripts/pocket-devotee
index 9107a0b6d626761f29497f7bb9d42ee5c180eea2..0888fbaa1c132901ae797f360e9759ad18ca45ea 100755 (executable)
--- a/scripts/pocket-devotee
+++ b/scripts/pocket-devotee
@@ -108,7 +108,7 @@ sub main {
     }
     my @options;
     for my $option (@{$options{option}}) {
-        my ($key,$name,$majority) = split /:/,$option;
+        my ($key,$name,$majority) = $option =~ /^\s*([^:]+)\s*:\s*(.+)\s*(?::(\d+))?$/;
         $majority //= 1;
         push @options,{key => $key,
                        name => $name,