New issue
Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.
By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.
Already on GitHub? Sign in to your account
overload::constant and number of arguments. #2534
Comments
From @AbigailCreated by @Abigail#!/opt/perl/bin/perl -w use overload; BEGIN {overload::constant q => sub {print "Got ", scalar (@_), " arguments\n"; my $foo = "foo"; However, the documentation only mentions three arguments: The corresponding values are references to functions which What is this 4th argument (which seems to be a coderef)? (bleedperl also has 4 arguments). Abigail Perl Info
|
From [Unknown Contact. See original ticket]On 31 Aug 2000 19:32:07 -0000, abigail@foad.org wrote (in part): abigail> What is this 4th argument (which seems to be a coderef)? It's the code ref to the called routine. It seems to be a --s. |
From [Unknown Contact. See original ticket]On Thu, 31 Aug 2000 15:58:11 -0400, responding to abigail, I wrote: sb> It's the code ref to the called routine. It seems to be a Indeed, "make test" is still perfectly happy after the following patch. --s. Inline Patch--- toke.c.DIST Sun Aug 13 14:37:03 2000
+++ toke.c Thu Aug 31 16:05:01 2000
@@ -5742,13 +5742,12 @@ S_new_constant(pTHX_ char *s, STRLEN len
SAVETMPS;
PUSHMARK(SP) ;
- EXTEND(sp, 4);
+ EXTEND(sp, 3);
if (pv)
PUSHs(pv);
PUSHs(sv);
if (pv)
PUSHs(typesv);
- PUSHs(cv);
PUTBACK;
call_sv(cv, G_SCALAR | ( PL_in_eval ? 0 : G_EVAL));
|
Migrated from rt.perl.org#4060 (status was 'resolved')
Searchable as RT4060$
The text was updated successfully, but these errors were encountered: