fix a regex capture fail

This commit is contained in:
Rudolf Polzer 2011-11-10 22:55:30 +01:00
parent 80901d0206
commit 3ac967d51e

View File

@ -39,7 +39,7 @@ while(<STDIN>)
$line = "\"$key\" \"$r $g $b\"";
}
}
elsif(/^\s*"_floodlight"\s+"\s*([-+0-9.]+)\s*([-+0-9.]+)\s*([-+0-9.]+)\s*(.*)"\s*$/i)
elsif(/^\s*"_floodlight"\s+"\s*([-+0-9.]+)\s*([-+0-9.]+)\s*([-+0-9.]+)(\s*.*)"\s*$/i)
{
my $r = $1;
my $g = $2;