Explicit setter for device_regex and column_regex.

This commit is contained in:
Brian Fraser
2012-01-10 14:14:32 -03:00
parent 93279a03da
commit 5ad1bc4fbb
3 changed files with 19 additions and 13 deletions

View File

@@ -398,6 +398,7 @@ sub get_new_value_for {
sub get_new_regex_for {
my ($looking_for, $message) = @_;
(my $looking_for_o = $looking_for) =~ s/_.*$/s/;
$looking_for = "set_$looking_for";
return sub {
my (%args) = @_;
my $new_regex = get_blocking_input($message);