X-Git-Url: https://git.saurik.com/wxWidgets.git/blobdiff_plain/e70833fb1dfa271e7b0c9dec11ad644880e03c6f..ff38d8c1ebb74788dd8c61c88183a31832927347:/tests/regex/regex.pl

diff --git a/tests/regex/regex.pl b/tests/regex/regex.pl
index af0cfe8a78..2402864171 100755
--- a/tests/regex/regex.pl
+++ b/tests/regex/regex.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/env perl -w
+#!/usr/bin/env perl
 #############################################################################
 # Name:        regex.pl
 # Purpose:     Generate test code for wxRegEx from 'reg.test'
@@ -24,6 +24,7 @@
 #
 
 use strict;
+use warnings;
 use File::Basename;
 #use encoding "UTF-8";  # enable in the future when perl 5.6.x is just a memory
 
@@ -291,8 +292,7 @@ Example: $prog -o regex.inc reg.test wxreg.test
 
 Input files should be in UTF-8. If no input files are specified input is
 read from stdin. If no output file is specified output is written to stdout.
-See the comments in reg.test (in src/regex) for details of the input file
-format.
+See the comments in reg.test for details of the input file format.
 EOT
     exit 0;
 }
@@ -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;
     }