diff options
| author | Ruslan Zakirov <ruz@bestpractical.com> | 2013-02-24 16:05:51 +0400 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2013-06-30 11:43:41 -0700 |
| commit | 36925d9e116d2779c960f8cac847f9ccd4c43e53 (patch) | |
| tree | 503e3638a0ae7a533c4adabbc39058df70d91a93 /util.c | |
| parent | a38ab4751f3c0df44dc09e4d685a2637e93c9778 (diff) | |
| download | perl-36925d9e116d2779c960f8cac847f9ccd4c43e53.tar.gz | |
change magic_methcall to use SV with shared hash value
Perl_magic_methcall is not public API, so there is no
need to add another function and we can just change
function's arguments.
Diffstat (limited to 'util.c')
| -rw-r--r-- | util.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -1340,7 +1340,7 @@ Perl_write_to_stderr(pTHX_ SV* msv) if (PL_stderrgv && SvREFCNT(PL_stderrgv) && (io = GvIO(PL_stderrgv)) && (mg = SvTIED_mg((const SV *)io, PERL_MAGIC_tiedscalar))) - Perl_magic_methcall(aTHX_ MUTABLE_SV(io), mg, "PRINT", + Perl_magic_methcall(aTHX_ MUTABLE_SV(io), mg, SV_CONST(PRINT), G_SCALAR | G_DISCARD | G_WRITING_TO_STDERR, 1, msv); else { #ifdef USE_SFIO |