Lines Matching refs:pat1
131 my $pat1, $pat2;
134 $pat1 = join ('', map { $_ =~ /\d/ ? () : $_ } @exp);
137 $begcorr = ($pat1 =~ /^[.]/) ? 1 : 0;
139 for $i (0..length ($pat1) - length ($pat2)) {
140 if (substr ($pat1, $i, length $pat2) eq $subpat) {
144 if (defined $newrepltab{$pat2} && !defined $newrepltab{$pat1}) {
145 $ss = substr ($pat1, 0, $i);
146 $newrepltab{$pat1} = $newrepltab{$pat2};
147 $newreplbeg{$pat1} = $newreplbeg{$pat2} + enclen($ss) - $begcorr;
148 $newrepllen{$pat1} = $newrepllen{$pat2};
152 print ("$pat1 includes $pat2 at pos $i\n");
