diff options
| author | Ben Morrow <ben@morrow.me.uk> | 2010-10-05 18:55:41 +0100 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2010-10-06 23:28:55 -0700 |
| commit | ef69c8fcaa2e29961b103ed4aaf7b24d5edd9f23 (patch) | |
| tree | c20362f9dff4bbd1d01abfb4347b28fe910f7ba4 /ext/Devel-Peek | |
| parent | 9ed9b795caa408a925999e1d90f9932e35b3ab10 (diff) | |
| download | perl-ef69c8fcaa2e29961b103ed4aaf7b24d5edd9f23.tar.gz | |
Remove MEMBER_TO_FPTR.
This is left over from PERL_OBJECT (see beeff2, 16c915, and so on).
Diffstat (limited to 'ext/Devel-Peek')
| -rw-r--r-- | ext/Devel-Peek/Peek.xs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/ext/Devel-Peek/Peek.xs b/ext/Devel-Peek/Peek.xs index 68584f73e0..d555ab7d08 100644 --- a/ext/Devel-Peek/Peek.xs +++ b/ext/Devel-Peek/Peek.xs @@ -7,11 +7,10 @@ static bool _runops_debug(int flag) { dTHX; - const bool d = PL_runops == MEMBER_TO_FPTR(Perl_runops_debug); + const bool d = PL_runops == Perl_runops_debug; if (flag >= 0) - PL_runops - = MEMBER_TO_FPTR(flag ? Perl_runops_debug : Perl_runops_standard); + PL_runops = flag ? Perl_runops_debug : Perl_runops_standard; return d; } |