diff options
author | Gurusamy Sarathy <gsar@cpan.org> | 1998-06-30 05:12:57 +0000 |
---|---|---|
committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-06-30 05:12:57 +0000 |
commit | 25eaa2138d60ea820620e1b1324f90a6b4f4adcd (patch) | |
tree | df343c29db5bdb7836b0e000ba22ba06f00c6cec /toke.c | |
parent | 4ebdfc9900a36429be5fe85719cf00fc3ef0ebf9 (diff) | |
download | perl-25eaa2138d60ea820620e1b1324f90a6b4f4adcd.tar.gz |
tweaks to overloaded constants (change#1259)
p4raw-link: @1259 on //depot/perl: b3ac6de7f0c7a63b73f1cf3ea9e371470f7d1cb0
p4raw-id: //depot/perl@1265
Diffstat (limited to 'toke.c')
-rw-r--r-- | toke.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -4716,7 +4716,7 @@ STATIC SV * new_constant(char *s, STRLEN len, char *key, SV *sv, SV *pv, char *type) { dSP; - HV *table = perl_get_hv("\10", FALSE); /* ^H */ + HV *table = GvHV(hintgv); /* ^H */ BINOP myop; SV *res; bool oldcatch = CATCH_GET; @@ -4757,7 +4757,7 @@ new_constant(char *s, STRLEN len, char *key, SV *sv, SV *pv, char *type) PUTBACK; pp_pushmark(ARGS); - EXTEND(sp, 3); + EXTEND(sp, 4); PUSHs(pv); PUSHs(sv); PUSHs(typesv); |