Searched refs:eval_string (Results 1 – 4 of 4) sorted by relevance
/openbsd-src/gnu/usr.bin/perl/ext/I18N-Langinfo/t/ |
H A D | Langinfo.t | 275 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 D | reg_mesg.t | 822 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 D | bcode.c | 125 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 D | misc | 2850 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...] |