summaryrefslogtreecommitdiff
path: root/perltest.sh
diff options
context:
space:
mode:
authorph10 <ph10@6239d852-aaf2-0410-a92c-79f79f948069>2017-07-19 16:04:15 +0000
committerph10 <ph10@6239d852-aaf2-0410-a92c-79f79f948069>2017-07-19 16:04:15 +0000
commitf3d7f4fabd6d124ad8e323b09ebf373bfe045b4e (patch)
treec7acda8683a47a84ac28936edf7ce7a2c2b5965f /perltest.sh
parent9a3717bbc462ed041a735351174a8fa96441d3b7 (diff)
downloadpcre2-f3d7f4fabd6d124ad8e323b09ebf373bfe045b4e.tar.gz
Code tidies for 10.30-RC1 release candidate.
git-svn-id: svn://vcs.exim.org/pcre2/code/trunk@842 6239d852-aaf2-0410-a92c-79f79f948069
Diffstat (limited to 'perltest.sh')
-rwxr-xr-xperltest.sh14
1 files changed, 7 insertions, 7 deletions
diff --git a/perltest.sh b/perltest.sh
index 806a888..1a7679a 100755
--- a/perltest.sh
+++ b/perltest.sh
@@ -50,7 +50,7 @@ fi
# ucp sets Perl's /u modifier
# utf invoke UTF-8 functionality
#
-# The data lines must not have any pcre2test modifiers. Unless
+# The data lines must not have any pcre2test modifiers. Unless
# "subject_litersl" is on the pattern, data lines 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
@@ -141,20 +141,20 @@ for (;;)
chomp($pattern);
$pattern =~ s/\s+$//;
-
+
# Split the pattern from the modifiers and adjust them as necessary.
$pattern =~ /^\s*((.).*\2)(.*)$/s;
$pat = $1;
$mod = $3;
-
+
# The private "aftertext" modifier means "print $' afterwards".
$showrest = ($mod =~ s/aftertext,?//);
-
+
# The "subject_literal" modifer disables escapes in subjects.
-
- $subject_literal = ($mod =~ s/subject_literal,?//);
+
+ $subject_literal = ($mod =~ s/subject_literal,?//);
# "allaftertext" is used by pcre2test to print remainders after captures
@@ -238,7 +238,7 @@ for (;;)
$x = $_;
}
else
- {
+ {
$x = eval "\"$_\""; # To get escapes processed
}