Lines Matching refs:pattern
119 $pattern = $_;
121 while ($pattern !~ /^\s*(.).*\1/s)
126 $pattern .= $_;
129 chomp($pattern);
130 $pattern =~ s/\s+$//;
132 # Split the pattern from the modifiers and adjust them as necessary.
134 $pattern =~ /^\s*((.).*\2)(.*)$/s;
167 # Add back retained modifiers and check that the pattern is valid.
170 $pattern = "$pat$mod";
171 eval "\$_ =~ ${pattern}";
189 $cmd = ($pattern =~ /g[a-z]*$/)? "while" : "if";
191 # If the pattern is actually the null string, Perl uses the most recently
196 # a non-null pattern that has the same effect.
198 $pattern = "/(?#)/$2" if ($pattern =~ /^(.)\1(.*)$/);
244 eval "${cmd} (\$x =~ ${pattern}) {" . $pushes;
279 # set and the input pattern was a UTF-8 string. We can, however, force
