From: Don Armstrong <don@donarmstrong.com>
Date: Tue, 14 Apr 2015 00:53:02 +0000 (-0700)
Subject: support : in options
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=7f691c355c3357b64d52de062ce9a5b4da761507;p=debian-ctte.git

support : in options
---

diff --git a/scripts/pocket-devotee b/scripts/pocket-devotee
index 9107a0b..0888fba 100755
--- 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,