my $sqlstmt_nqs= @sqlstmt_nqs;
my @specs= $chk->attr('multiple')
- ? (split m#[/|,]#, $string)
+ ? (split m#\s*[/|,]\s*#, $string)
: ($string);
foreach my $each (@specs) {
$chk->scall_method("manyambig"),
sub {
$chk->scall_method("ambiguous",
- spec => $each, couldbe => $_[0])
+ spec => $each, couldbe => $_[1])
});
if (defined $temsg) {
$emsg= $temsg;
$debugf->("QTSC EMSG='$emsg' RESULTS='@results'");
if ($format =~ /json/) {
- $r->content_type($ctype or $format);
+ $ctype ||= $format;
+ die unless grep { $_ eq $ctype }
+ qw(application/json text/plain text/xml);
+ $r->content_type($ctype);
my $jobj= {
success => 1*!length $emsg,
show => (length $emsg ? $emsg :