summaryrefslogtreecommitdiff
path: root/perltest.sh
diff options
context:
space:
mode:
authorph10 <ph10@6239d852-aaf2-0410-a92c-79f79f948069>2014-11-03 17:13:00 +0000
committerph10 <ph10@6239d852-aaf2-0410-a92c-79f79f948069>2014-11-03 17:13:00 +0000
commitdbde828d9540f7373f1f5d9fbf17880b9e045f7d (patch)
tree73924eb053b8b29cb91070334079138b58808645 /perltest.sh
parent6a8bc7690a3773eef65bba413c1d5563f3bd63e8 (diff)
downloadpcre2-dbde828d9540f7373f1f5d9fbf17880b9e045f7d.tar.gz
Changed jit_stack_alloc to jit_stack_create.
git-svn-id: svn://vcs.exim.org/pcre2/code/trunk@131 6239d852-aaf2-0410-a92c-79f79f948069
Diffstat (limited to 'perltest.sh')
-rwxr-xr-xperltest.sh24
1 files changed, 12 insertions, 12 deletions
diff --git a/perltest.sh b/perltest.sh
index e45486a..51bf9b2 100755
--- a/perltest.sh
+++ b/perltest.sh
@@ -8,7 +8,7 @@
#
# The desired effect is achieved by making this a shell script that passes the
# Perl script to Perl through a pipe. If the first argument is "-utf8", a
-# suitable prefix is set up.
+# suitable prefix is set up.
#
# The remaining arguments, if any, are passed to Perl. They are an input file
# and an output file. If there is one argument, the output is written to
@@ -20,7 +20,7 @@ perl=perl
prefix=''
if [ $# > 0 -a "$1" = "-utf8" ] ; then
prefix="use utf8; require Encode;"
- shift
+ shift
fi
@@ -28,23 +28,23 @@ fi
# can be given identical input, except that input patterns can be followed only
# by Perl's lower case modifiers and certain other pcre2test modifiers that are
# either handled or ignored:
-#
+#
# aftertext interpreted as "print $' afterwards"
# afteralltext ignored
# dupnames ignored (Perl always allows)
# mark ignored
# no_auto_possess ignored
-# no_start_optimize ignored
-# ucp sets Perl's /u modifier
-# utf invoke UTF-8 functionality
-#
+# no_start_optimize ignored
+# ucp sets Perl's /u modifier
+# utf invoke UTF-8 functionality
+#
# The data lines must not have any pcre2test modifiers. They are processed as
# Perl double-quoted strings, so if they contain " $ or @ characters, these
# have to be escaped. For this reason, all such characters in the
# Perl-compatible testinput1 and testinput4 files are escaped so that they can
# be used for perltest as well as for pcre2test. The output from this script
# should be same as from pcre2test, apart from the initial identifying banner.
-#
+#
# The other testinput files are not suitable for feeding to perltest.sh,
# because they make use of the special modifiers that pcre2test uses for
# testing features of PCRE2. Some of these files also contain malformed regular
@@ -90,11 +90,11 @@ if (@ARGV > 0)
$infile = "INFILE";
$interact = 0;
}
-else
- {
+else
+ {
open(INFILE, "</dev/tty") || die "Failed to open /dev/tty\n";
$infile = "INFILE";
- $interact = 1;
+ $interact = 1;
}
if (@ARGV > 1)
@@ -291,5 +291,5 @@ for (;;)
PERLEND
) | $perl - $@
-
+
# End