> perl -w tmp.pl
main::egal() called too early to check prototype at ..\tmp.pl line 3.
What I meant to post was this:
#my $param = 'egal("7006","7006")';
#eval print $param;
sub egal () {
};
egal("7006","7006");
which outputs
> perl -w tmp.pl
Too many arguments for main::egal at ..\tmp.pl line 7, near ""7006")"
Execution of ..\tmp.pl aborted due to compilation errors.
Which is what also happens in your eval but which you never output because you never check for that. See previous posts on what to do. |