Lines Matching refs:pattern
75 $pattern = $_;
77 while ($pattern !~ /^\s*(.).*\1/s)
82 $pattern .= $_;
85 chomp($pattern);
86 $pattern =~ s/\s+$//;
90 $showrest = ($pattern =~ s/\+(?=[a-zA-Z]*$)//);
94 $pattern =~ s/\+(?=[a-zA-Z]*$)//;
96 # Remove /8 from a UTF-8 pattern.
98 $utf8 = $pattern =~ s/8(?=[a-zA-Z]*$)//;
100 # Remove /J from a pattern with duplicate names.
102 $pattern =~ s/J(?=[a-zA-Z]*$)//;
104 # Remove /K from a pattern (asks pcretest to check MARK data) */
106 $pattern =~ s/K(?=[a-zA-Z]*$)//;
108 # Remove /W from a pattern (asks pcretest to set PCRE_UCP)
110 $pattern =~ s/W(?=[a-zA-Z]*$)//;
112 # Remove /S or /SS from a pattern (asks pcretest to study or not to study)
114 $pattern =~ s/S(?=[a-zA-Z]*$)//g;
116 # Remove /Y from a pattern (asks pcretest to disable PCRE optimization)
118 $pattern =~ s/Y(?=[a-zA-Z]*$)//;
120 # Check that the pattern is valid
122 eval "\$_ =~ ${pattern}";
132 $cmd = ($pattern =~ /g[a-z]*$/)? "while" : "if";
134 # If the pattern is actually the null string, Perl uses the most recently
139 # a non-null pattern that has the same effect.
141 $pattern = "/(?#)/$2" if ($pattern =~ /^(.)\1(.*)$/);
186 eval "${cmd} (\$x =~ ${pattern}) {" . $pushes;
221 # set and the input pattern was a UTF-8 string. We can, however, force