avoid regexp warning after 46625

This commit is contained in:
Bjorn Munch 2009-10-09 15:18:43 +02:00
commit bdc4070aab

View file

@ -3257,7 +3257,7 @@ sub run_testcase ($) {
# Allow only alpanumerics pluss _ - + . in combination names
my $combination= $tinfo->{combination};
if ($combination && $combination !~ /^\w[\w-\.\+]+$/)
if ($combination && $combination !~ /^\w[-\w\.\+]+$/)
{
mtr_error("Combination '$combination' contains illegal characters");
}