diff options
| author | Nicholas Clark <nick@ccl4.org> | 2011-01-05 11:07:22 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2011-01-05 12:40:28 +0000 |
| commit | 268389f04944215f5457046f5f3044c86057eed4 (patch) | |
| tree | 2b9dfa9d3db35be42e0730d7a5c895fbf1d6c8a2 | |
| parent | a5e1d062864552796b2edf454ea34cfb50e1eac7 (diff) | |
| download | perl-268389f04944215f5457046f5f3044c86057eed4.tar.gz | |
In pp_sys.c, rename the macro tied_handle_method() to tied_handle_method0()
This makes it clear that it's not a direct aTHX_ wrapper for
S_tied_handle_method().
| -rw-r--r-- | pp_sys.c | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -549,7 +549,7 @@ S_tied_handle_method(pTHX_ const char *const methname, SV **sp, return NORMAL; } -#define tied_handle_method(a,b,c,d) \ +#define tied_handle_method0(a,b,c,d) \ S_tied_handle_method(aTHX_ a,b,c,d,G_SCALAR,0) #define tied_handle_method1(a,b,c,d,e) \ S_tied_handle_method(aTHX_ a,b,c,d,G_SCALAR,1,e) @@ -623,7 +623,7 @@ PP(pp_close) if (io) { const MAGIC * const mg = SvTIED_mg((const SV *)io, PERL_MAGIC_tiedscalar); if (mg) { - return tied_handle_method("CLOSE", SP, io, mg); + return tied_handle_method0("CLOSE", SP, io, mg); } } } @@ -706,7 +706,7 @@ PP(pp_fileno) if (io && (mg = SvTIED_mg((const SV *)io, PERL_MAGIC_tiedscalar))) { - return tied_handle_method("FILENO", SP, io, mg); + return tied_handle_method0("FILENO", SP, io, mg); } if (!io || !(fp = IoIFP(io))) { @@ -2106,7 +2106,7 @@ PP(pp_tell) if (io) { const MAGIC * const mg = SvTIED_mg((const SV *)io, PERL_MAGIC_tiedscalar); if (mg) { - return tied_handle_method("TELL", SP, io, mg); + return tied_handle_method0("TELL", SP, io, mg); } } else if (!gv) { |