Lines Matching full:newpat
75 $newpat = substr $pat, 0, $i + $j;
76 if (!defined $newpattab{$newpat}) {
77 $newpattab{$newpat} =
81 push @newpatlist, $newpat;
84 $newrepltab{$newpat} = $repltab{$subpat};
85 $newreplbeg{$newpat} = $replbeg{$subpat} + enclen($ss) - $begcorr;
86 $newrepllen{$newpat} = $repllen{$subpat};
89 $tmp = $newpattab{$newpat};
90 $newpattab{$newpat} =
91 combine ($newpattab{$newpat}, $pattab{$subpat});
92 print "$tmp + $pattab{$subpat} -> $newpattab{$newpat}\n";
