diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 1999-01-02 14:06:30 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 1999-01-02 14:06:30 +0000 |
| commit | 4c1f658f2c79575014c109439365f1a6c403e8c4 (patch) | |
| tree | 6daea778de23f90a849bc4e50dd1b949d1bc6649 /ext/B/B.pm | |
| parent | 735441390c16c09ebb52147d3fa2b2a5ebe75048 (diff) | |
| download | perl-4c1f658f2c79575014c109439365f1a6c403e8c4.tar.gz | |
Export constant subs from B.xs for op.h, cop.h and a few others.
Use them in various B::* rather than have local defs.
p4raw-id: //depot/perl@2551
Diffstat (limited to 'ext/B/B.pm')
| -rw-r--r-- | ext/B/B.pm | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/ext/B/B.pm b/ext/B/B.pm index 1599fe21c5..8fd3baf664 100644 --- a/ext/B/B.pm +++ b/ext/B/B.pm @@ -14,7 +14,7 @@ require Exporter; main_root main_start main_cv svref_2object opnumber walkoptree walkoptree_slow walkoptree_exec walksymtable parents comppadlist sv_undef compile_stats timing_info init_av); - +sub OPf_KIDS (); use strict; @B::SV::ISA = 'B::OBJECT'; @B::NULL::ISA = 'B::SV'; @@ -65,10 +65,6 @@ sub debug { walkoptree_debug($value); } -# sub OPf_KIDS; -# add to .xs for perl5.002 -sub OPf_KIDS () { 4 } - sub class { my $obj = shift; my $name = ref $obj; |