diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2001-08-31 20:58:38 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2001-08-31 20:58:38 +0000 |
| commit | acfe0abcedaf592fb4b9cb69ce3468308ae99d91 (patch) | |
| tree | a2ca08c77d2b63d1777d0b228ff53362895c1624 /ext/B | |
| parent | 25f58aea15b072f74afcee1b9074d33e8e7348b5 (diff) | |
| download | perl-acfe0abcedaf592fb4b9cb69ce3468308ae99d91.tar.gz | |
remove deprecated PERL_OBJECT cruft, it has long since stopped
working in 5.7.x
p4raw-id: //depot/perl@11803
Diffstat (limited to 'ext/B')
| -rw-r--r-- | ext/B/B.xs | 9 | ||||
| -rw-r--r-- | ext/B/B/C.pm | 2 |
2 files changed, 1 insertions, 10 deletions
diff --git a/ext/B/B.xs b/ext/B/B.xs index f27f3474ff..0a95d98fa6 100644 --- a/ext/B/B.xs +++ b/ext/B/B.xs @@ -12,15 +12,6 @@ #include "perl.h" #include "XSUB.h" -#ifdef PERL_OBJECT -#undef PL_op_name -#undef PL_opargs -#undef PL_op_desc -#define PL_op_name (get_op_names()) -#define PL_opargs (get_opargs()) -#define PL_op_desc (get_op_descs()) -#endif - #ifdef PerlIO typedef PerlIO * InputStream; #else diff --git a/ext/B/B/C.pm b/ext/B/B/C.pm index 71b76b53ed..bcc6f93453 100644 --- a/ext/B/B/C.pm +++ b/ext/B/B/C.pm @@ -1055,7 +1055,7 @@ typedef struct { HV * xcv_stash; OP * xcv_start; OP * xcv_root; - void (*xcv_xsub) (pTHXo_ CV*); + void (*xcv_xsub) (pTHX_ CV*); ANY xcv_xsubany; GV * xcv_gv; char * xcv_file; |