diff options
author | ph10 <ph10@6239d852-aaf2-0410-a92c-79f79f948069> | 2017-07-19 16:04:15 +0000 |
---|---|---|
committer | ph10 <ph10@6239d852-aaf2-0410-a92c-79f79f948069> | 2017-07-19 16:04:15 +0000 |
commit | f3d7f4fabd6d124ad8e323b09ebf373bfe045b4e (patch) | |
tree | c7acda8683a47a84ac28936edf7ce7a2c2b5965f /perltest.sh | |
parent | 9a3717bbc462ed041a735351174a8fa96441d3b7 (diff) | |
download | pcre2-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-x | perltest.sh | 14 |
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 } |