Commit ccab8340 authored by Leigh B. Stoller's avatar Leigh B. Stoller
Browse files

Commit old change: In dbcheck, if the regex from table_regex is not

"anchored" (^xxx$) then force it to be anchored by wrapping it.
parent 320dfab4
......@@ -4242,6 +4242,13 @@ sub TBcheck_dbslot($$$;$)
" Functional DB checks not implemented: $table/$column!\n");
}
# Make sure the regex is anchored. Its a mistake not to be!
$check = "^" . $check
if (! ($check =~ /^\^/));
$check = $check . "\$"
if (! ($check =~ /\Q$/));
# Check regex.
return 0
if (! ("$token" =~ /$check/));
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment