[BACK]Return to perltest.pl CVS log [TXT] [DIR] Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / pcre

Diff for /embedaddon/pcre/perltest.pl between versions 1.1.1.3 and 1.1.1.4

version 1.1.1.3, 2013/07/22 08:25:55 version 1.1.1.4, 2014/06/15 19:46:04
Line 1 Line 1
 #! /usr/bin/env perl  #! /usr/bin/env perl
   
 # Program for testing regular expressions with perl to check that PCRE handles  # Program for testing regular expressions with perl to check that PCRE handles
# them the same. This version supports /8 for UTF-8 testing. However, it needs# them the same. This version needs to have "use utf8" at the start for running
# to have "use utf8" at the start for running the UTF-8 tests, but *not* for# the UTF-8 tests, but *not* for the other tests. The only way I've found for
# the other tests. The only way I've found for doing this is to cat this line# doing this is to cat this line in explicitly in the RunPerlTest script. I've
# in explicitly in the RunPerlTest script. I've also used this method to supply# also used this method to supply "require Encode" for the UTF-8 tests, so that
# "require Encode" for the UTF-8 tests, so that the main test will still run# the main test will still run where Encode is not installed.
# where Encode is not installed. 
   
 # use locale;  # With this included, \x0b matches \s!  
   
 # Function for turning a string into a string of printing chars.  
   
 #use utf8;  #use utf8;
 #require Encode;  #require Encode;
   
   # Function for turning a string into a string of printing chars.
   
 sub pchars {  sub pchars {
 my($t) = "";  my($t) = "";
   
Line 71  for (;;) Line 68  for (;;)
   printf "  re> " if $infile eq "STDIN";    printf "  re> " if $infile eq "STDIN";
   last if ! ($_ = <$infile>);    last if ! ($_ = <$infile>);
   printf $outfile "$_" if $infile ne "STDIN";    printf $outfile "$_" if $infile ne "STDIN";
  next if ($_ eq "");  next if ($_ =~ /^\s*$/ || $_ =~ /^< forbid/);
   
   $pattern = $_;    $pattern = $_;
   
Line 106  for (;;) Line 103  for (;;)
   
   $pattern =~ s/K(?=[a-zA-Z]*$)//;    $pattern =~ s/K(?=[a-zA-Z]*$)//;
   
  # Remove /W from a pattern (asks pcretest to set PCRE_UCP)  # /W asks pcretest to set PCRE_UCP; change this to /u for Perl
   
  $pattern =~ s/W(?=[a-zA-Z]*$)//;  $pattern =~ s/W(?=[a-zA-Z]*$)/u/;
   
   # Remove /S or /SS from a pattern (asks pcretest to study or not to study)    # Remove /S or /SS from a pattern (asks pcretest to study or not to study)
   
   $pattern =~ s/S(?=[a-zA-Z]*$)//g;    $pattern =~ s/S(?=[a-zA-Z]*$)//g;
   
  # Remove /Y from a pattern (asks pcretest to disable PCRE optimization)  # Remove /Y and /O from a pattern (disable PCRE optimizations)
   
  $pattern =~ s/Y(?=[a-zA-Z]*$)//;  $pattern =~ s/[YO](?=[a-zA-Z]*$)//;
   
   # Check that the pattern is valid    # Check that the pattern is valid
   
Removed from v.1.1.1.3  
changed lines
  Added in v.1.1.1.4

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>