diff options
| -rwxr-xr-x | localmarkdown2sms | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/localmarkdown2sms b/localmarkdown2sms index d4d5720..06aa589 100755 --- a/localmarkdown2sms +++ b/localmarkdown2sms @@ -47,8 +47,8 @@ my ($path) = shift @ARGV; my ($phone) = shift @ARGV; my ($key) = lc (shift @ARGV); -# strip leading (and non-leading if ever possible?) spaces -$key =~ s/\s//g; +# strip non-word chars from keyword (and use only first chunk of word chars) +$key =~ s/.*?(\w+).*?/$1/; if ($debug) { Log::Log4perl->easy_init($DEBUG); |