Allow fractional points

[NDIRC.git] / Usermgm.pm

diff --git a/Usermgm.pm b/Usermgm.pm
index 445a33a9eae1923895ff874507f3ab031a1acc96..76fd5ad7b08d5ebca9427bc20820b0a80dbb5ea2 100644 (file)
--- a/Usermgm.pm
+++ b/Usermgm.pm
@@ -217,7 +217,7 @@ sub addPoints {
        my ($msg, $t) = @_;
 
        my ($nick, $points);
-       if(defined $msg && $msg =~ /^(\S+)(?: (-?\d+))?$/){
+       if(defined $msg && $msg =~ /^(\S+)(?: (-?(\d+)?(\.\d+)?))?$/){
                $nick = $1;
                $points = $2;
        }else{