Lines Matching refs:prog
175 my ($why, $prog, $expect) = @$_;
178 print P $show, $prog, '; print $b'
184 print "# $prog\n";
195 my ($why, $prog, $expect) = @$_;
197 my $result = eval $prog;
199 print "# prog is $prog\n";
262 my ($why, $prog, $expect) = @$_;
263 # print "# $prog\n";
264 my $result = eval $prog;
277 ok('' eq runperl(prog => <<'CODE'), "change #17928");