mirror/perl
1
0
Fork 0
mirror of https://github.com/Perl/perl5.git synced 2026-01-26 16:39:36 +00:00
Code Issues Packages Projects Releases Wiki Activity

[perl #80630] Make eval"" return empty list for syntax errors

Browse Source 
Up till now, eval"" in list context was returning a list containing
undef for syntax errors and an empty list for run-time errors.
This commit is contained in:
Father Chrysostomos 2011-11-19 11:13:24 -08:00
parent bbde7ba366
commit 2bf54cc6ef
3 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pp_ctl.c
View File

@ -3649,7 +3649,7 @@ S_doeval(pTHX_ int gimme, OP** startop, CV* outside, U32 seq, HV *hh)
sv_setpvs(ERRSV, "Compilation error");
}
}
PUSHs(&PL_sv_undef);
if (gimme != G_ARRAY) PUSHs(&PL_sv_undef);
PUTBACK;
return FALSE;
}

2
t/comp/retainedlines.t
View File

@ -24,7 +24,7 @@ sub failed {
return;
}
sub is {
sub is($$$) {
my ($got, $expect, $name) = @_;
$test = $test + 1;
if (defined $expect) {

7
t/op/eval.t
View File

@ -6,7 +6,7 @@ BEGIN {
require './test.pl';
}
plan(tests => 121);
plan(tests => 125);
eval 'pass();';
@ -25,6 +25,11 @@ like($@, qr/line 2/);
print eval '$foo = /'; # this tests for a call through fatal()
like($@, qr/Search/);
is scalar(eval '++'), undef, 'eval syntax error in scalar context';
is scalar(eval 'die'), undef, 'eval run-time error in scalar context';
is +()=eval '++', 0, 'eval syntax error in list context';
is +()=eval 'die', 0, 'eval run-time error in list context';
is(eval '"ok 7\n";', "ok 7\n");
$foo = 5;