Non-greedy matching for votestrings.
[usenet/usevote.git] / uvvote.pl
index 8e8fb68..a151250 100755 (executable)
--- a/uvvote.pl
+++ b/uvvote.pl
@@ -1,8 +1,8 @@
 #!/usr/bin/perl -w
 
 ###############################################################################
 #!/usr/bin/perl -w
 
 ###############################################################################
-# UseVoteGer 4.11 Wahldurchfuehrung
-# (c) 2001-2012 Marc Langer <uv@marclanger.de>
+# UseVoteGer 4.12 Wahldurchfuehrung
+# (c) 2001-2014 Marc Langer <uv@marclanger.de>
 # 
 # This script package is free software; you can redistribute it and/or
 # modify it under the terms of the GNU Public License as published by the
 # 
 # This script package is free software; you can redistribute it and/or
 # modify it under the terms of the GNU Public License as published by the
@@ -271,7 +271,7 @@ sub process_vote {
     }
 
     # this matches on a single appearance:
     }
 
     # this matches on a single appearance:
-    if ($$body =~ /#$votenum\W*?\[(.+)\]/) {
+    if ($$body =~ /#$votenum\W*?\[(.+?)\]/) {
       # one or more vote strings were found
       $onevote ||= 1; # set $onevote to 1 if it was 0
       my $votestring = $1;
       # one or more vote strings were found
       $onevote ||= 1; # set $onevote to 1 if it was 0
       my $votestring = $1;
This page took 0.009909 seconds and 4 git commands to generate.