Tighten editing of TC_PRIOMAP value

This commit is contained in:
Tom Eastep 2011-03-16 16:42:40 -07:00
parent 965ab0257f
commit 742aa95660

View File

@ -3383,7 +3383,7 @@ sub get_configuration( $ ) {
my @priomap = split ' ',$val;
fatal_error "Invalid TC_PRIOMAP ($val)" unless @priomap == 16;
for ( @priomap ) {
fatal_error "Invalid TC_PRIOMAP entry ($_)" unless /[1-3]/;
fatal_error "Invalid TC_PRIOMAP entry ($_)" unless /^[1-3]$/;
$_--;
}