Home
last modified time | relevance | path

Searched refs:eval_string (Results 1 – 4 of 4) sorted by relevance

/openbsd-src/gnu/usr.bin/perl/ext/I18N-Langinfo/t/
H A DLanginfo.t275 my $eval_string = "langinfo(&$time_item)";
276 my $time_name = eval $eval_string;
278 fail("'$eval_string' failed: $@");
286 fail("'$eval_string' returned undef");
291 fail("'$eval_string' returned an empty name");
311 my $eval_string = "langinfo(&CRNCYSTR)";
312 my $symbol = eval $eval_string;
314 fail("'$eval_string' failed: $@");
319 fail("'$eval_string' returned undef");
/openbsd-src/gnu/usr.bin/perl/t/re/
H A Dreg_mesg.t822 my $eval_string = "$strict $regex";
824 eval "$eval_string; \$meaning_of_life = 42";
825 ok(! defined $meaning_of_life, display_rx("$eval_string died"));
830 ok(0, display_rx($eval_string));
/openbsd-src/usr.bin/dc/
H A Dbcode.c125 static void eval_string(char *);
1485 eval_string(bstrdup(v->u.string)); in compare()
1620 eval_string(char *p) in eval_string() function
1657 eval_string(p); in eval_line()
1667 eval_string(p); in eval_tos()
/openbsd-src/gnu/usr.bin/perl/dist/Devel-PPPort/parts/inc/
H A Dmisc2850 my $eval_string = "Devel::PPPort::is${class}$suffix($hex)";
2852 my $is = eval $eval_string || 0;
2853 die "eval 'For $i: $eval_string' gave $@" if $@;
2854 is($is, $should_be, "'$eval_string'");
2883 my $eval_string = "$fcn(\"$utf8\", 0)";
2885 my $is = eval $eval_string || 0;
2886 die "eval 'For $i, $eval_string' gave $@" if $@;
2887 is($is, $should_be, sprintf("For U+%04X '%s'", $native, $eval_string));
2900 my $eval_string = "$fcn(\"$utf8\", -1)";
2902 my $is = eval "$eval_string" ||
[all...]