Lines Matching refs:exp
1 # $MirOS: src/bin/mksh/check.pl,v 1.31 2012/04/06 12:22:14 tg Exp $
2 # $OpenBSD: th,v 1.13 2006/05/18 21:27:23 miod Exp $
822 local($exp, $got) = @_;
827 $exp_len = length($exp);
831 if (substr($got, 0, $exp_len) eq $exp) {
834 } elsif (substr($exp, 0, $got_len) eq $got) {
839 $ce = substr($exp, $i, 1);
