Lines Matching refs:pat
54 foreach my $pat (@subs) {
55 if ( ($pat =~ m/s%([^%]*)%([^%]*)%g/ )
56 || ($pat =~ m/s%([^%]*)%([^%]*)%;t/ )
57 || ($pat =~ m/s,([^,]*),(.*),;t/)
58 || ($pat =~ m%s/([^/]*)/([^/]*)/g% )
59 || ($pat =~ m%s/([^/]*)/([^/]*)/;t% )
69 } elsif ( ($pat =~ /%([^%]*)%d/ )
70 || ($pat =~ m%/([^/]*)/d% )
74 die "Uhh. Malformed pattern in $ac_subs ($pat)"
75 unless ( $pat =~ /^\s*$/ ); # ignore white lines
79 foreach my $pat (@subs) {
80 if ( ($pat =~ /s%([^%]*)%([^%]*)%g/ ) ||
81 ($pat =~ /s%([^%]*)%([^%]*)%;t/ ) ||
82 ($pat =~ /s,([^,]*),(.*),;t/) ) {
91 } elsif ( ($pat =~ /%([^%]*)%d/ )
92 || ($pat =~ m%/([^/]*)/d% )
97 die "Uhh. Malformed pattern in $ac_cs_root.subs ($pat)"
98 unless ( $pat =~ /^\s*$/ ); # ignore white lines
225 my ($pat, $sub) = @_;
226 $pat =~ s/\@/\\@/g; # @bla@ -> \@bla\@
227 $pat =~ s/\$/\\\$/g; # $bla -> \$bla
230 my $ret = eval "return sub { my \$ref=shift; \$\$ref =~ s%$pat%$sub%g; }";