chiark / gitweb /
Correct error message for ambiguous strings
[ypp-sc-tools.main.git] / yarrg / web / qtextstringcheck
index 4adb606ea0b2c3e25dc8251dac335a47ee24e7e6..4fbfc546a88903180506ad850ba5411b288bbaa5 100755 (executable)
@@ -95,7 +95,7 @@ if ($chk->method_exists('execute')) {
        my $sqlstmt_nqs= @sqlstmt_nqs;
 
        my @specs= $chk->attr('multiple')
-               ? (split m#[/|,]#, $string)
+               ? (split m#\s*[/|,]\s*#, $string)
                : ($string);
 
        foreach my $each (@specs) {
@@ -109,7 +109,7 @@ if ($chk->method_exists('execute')) {
                        $chk->scall_method("manyambig"),
                        sub {
                                $chk->scall_method("ambiguous",
-                                       spec => $each, couldbe => $_[0])
+                                       spec => $each, couldbe => $_[1])
                        });
                if (defined $temsg) {
                        $emsg= $temsg;