update from James Bishop

[wxWidgets.git] / tests / regex / regex.pl

diff --git a/tests/regex/regex.pl b/tests/regex/regex.pl
index cf2ba46d59be6e888b8f94eab472f66f44a7efb7..2402864171cdbb4ab3cb0b3c23841f1cfc47deba 100755 (executable)
--- a/tests/regex/regex.pl
+++ b/tests/regex/regex.pl
@@ -426,7 +426,7 @@ for (@input)
         my $results = $opts =~ /-inline/ && $test ne 'f' ? $extras[$i+2] : '';
 
         # get them all in the right order and print
-        unshift @args, $test, parsetcl($id), '-';
+        unshift @args, $test, parsetcl($id), $results ? '-' : 'o';
         push @args, parsetcl(parsetcl($results)) if $results;
         handle_test @args;
     }