From 38abbb62bfc3171c3c457b0bfc3157c2d876133c Mon Sep 17 00:00:00 2001 From: Jonas Smedegaard Date: Sun, 11 Jul 2010 10:39:26 +0200 Subject: Fix tighten keyword regexp to strip odd chars in localmarkdown2sms. --- localmarkdown2sms | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'localmarkdown2sms') diff --git a/localmarkdown2sms b/localmarkdown2sms index fd0a453..f13c097 100755 --- a/localmarkdown2sms +++ b/localmarkdown2sms @@ -82,7 +82,7 @@ if ($stripprefix) { } # strip non-word chars from keyword (and use only first chunk of word chars) -$key =~ s/.*?([a-zæøåÆØÅ!@\/][a-zæøåÆØÅ0-9-]+).*?/$1/; +$key =~ s/^.*?([a-zæøåÆØÅ!@\/][a-zæøåÆØÅ0-9-]+).*?$/$1/; if ($debug) { Log::Log4perl->easy_init($DEBUG); -- cgit v1.2.3