[Pcre-svn] [1497] code/trunk: Tidy Perl compatibility test s…

Revision: 1497

          http://vcs.pcre.org/viewvc?view=rev&revision=1497
Author:   ph10
Date:     2014-08-08 15:50:26 +0100 (Fri, 08 Aug 2014)

Log Message:
-----------
Tidy Perl compatibility test script.

Modified Paths:
--------------
    code/trunk/perltest.pl
    code/trunk/testdata/testinput1
    code/trunk/testdata/testoutput1

Modified: code/trunk/perltest.pl
===================================================================
--- code/trunk/perltest.pl    2014-07-18 08:24:35 UTC (rev 1496)
+++ code/trunk/perltest.pl    2014-08-08 14:50:26 UTC (rev 1497)
@@ -80,8 +80,8 @@
     $pattern .= $_;
     }

- chomp($pattern);
- $pattern =~ s/\s+$//;
+ chomp($pattern);
+ $pattern =~ s/\s+$//;

# The private /+ modifier means "print $' afterwards".

@@ -121,6 +121,14 @@
   if ($@)
     {
     printf $outfile "Error: $@";
+    if ($infile != "STDIN")
+      {
+      for (;;)
+        {
+        last if ! ($_ = <$infile>);
+        last if $_ =~ /^\s*$/; 
+        }   
+      }  
     next NEXT_RE;
     }

Modified: code/trunk/testdata/testinput1
===================================================================
--- code/trunk/testdata/testinput1    2014-07-18 08:24:35 UTC (rev 1496)
+++ code/trunk/testdata/testinput1    2014-08-08 14:50:26 UTC (rev 1497)
@@ -111,7 +111,7 @@
     bababbc
     babababc

-/^\ca\cA\c[\c{\c:/
+/^\ca\cA\c[;\c:/
     \x01\x01\e;z

/^[ab\]cde]/

Modified: code/trunk/testdata/testoutput1
===================================================================
--- code/trunk/testdata/testoutput1    2014-07-18 08:24:35 UTC (rev 1496)
+++ code/trunk/testdata/testoutput1    2014-08-08 14:50:26 UTC (rev 1497)
@@ -223,7 +223,7 @@
     babababc
 No match

-/^\ca\cA\c[\c{\c:/
+/^\ca\cA\c[;\c:/
     \x01\x01\e;z
  0: \x01\x01\x1b;z