diff options
author | ph10 <ph10@2f5784b3-3f2a-0410-8824-cb99058d5e15> | 2013-11-05 15:24:45 +0000 |
---|---|---|
committer | ph10 <ph10@2f5784b3-3f2a-0410-8824-cb99058d5e15> | 2013-11-05 15:24:45 +0000 |
commit | 0e5112832b6f2c6b0f98a90bf2ef9531cd2e87a2 (patch) | |
tree | 74eb1c7cc0823f01b6d58d3061731024afea21a9 /perltest.pl | |
parent | fa3832825e3fe0d49f93658882775cdd6c26129e (diff) | |
download | pcre-0e5112832b6f2c6b0f98a90bf2ef9531cd2e87a2.tar.gz |
Add a simple tripwire to pcretest to lock out certain modifiers.
git-svn-id: svn://vcs.exim.org/pcre/code/trunk@1388 2f5784b3-3f2a-0410-8824-cb99058d5e15
Diffstat (limited to 'perltest.pl')
-rwxr-xr-x | perltest.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perltest.pl b/perltest.pl index 2c876fc..e49876b 100755 --- a/perltest.pl +++ b/perltest.pl @@ -68,8 +68,8 @@ for (;;) printf " re> " if $infile eq "STDIN"; last if ! ($_ = <$infile>); printf $outfile "$_" if $infile ne "STDIN"; - next if ($_ eq ""); - + next if ($_ =~ /^\s*$/ || $_ =~ /^< forbid/); + $pattern = $_; while ($pattern !~ /^\s*(.).*\1/s) |