From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sun, 17 Jan 1999 09:12:42 +0000 (+0000)
Subject: fix change#2602 to not used hard coded constants
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b874ff32521edda1e5f8af22bd8097a0dba60615;p=p5sagit%2Fp5-mst-13.2.git

fix change#2602 to not used hard coded constants

p4raw-link: @2602 on //depot/cfgperl: 88b39979ed4ec47a51ecb175fcf086fb7df0ebdb

p4raw-id: //depot/perl@2621
---

diff --git a/ext/B/B/C.pm b/ext/B/B/C.pm
index 336784c..37eaa23 100644
--- a/ext/B/B/C.pm
+++ b/ext/B/B/C.pm
@@ -49,7 +49,8 @@ use Exporter ();
 
 use B qw(minus_c sv_undef walkoptree walksymtable main_root main_start peekop
 	 class cstring cchar svref_2object compile_stats comppadlist hash
-	 threadsv_names main_cv init_av opnumber);
+	 threadsv_names main_cv init_av opnumber
+	 AVf_REAL HEf_SVKEY);
 use B::Asmdata qw(@specialsv_name);
 
 use FileHandle;
@@ -103,8 +104,6 @@ sub walk_and_save_optree {
 # to "know" that op_seq is a U16 and use 65535. Ugh.
 my $op_seq = 65535;
 
-sub define HEf_SVKEY   () { -2 }
-
 # Look this up here so we can do just a number compare
 # rather than looking up the name of every BASEOP in B::OP
 my $OP_THREADSV = opnumber('threadsv');
diff --git a/ext/B/defsubs.h.PL b/ext/B/defsubs.h.PL
index b07841a..6253bd2 100644
--- a/ext/B/defsubs.h.PL
+++ b/ext/B/defsubs.h.PL
@@ -2,6 +2,7 @@
 my ($out) = __FILE__ =~ /(^.*)\.PL/;
 open(OUT,">$out") || die "Cannot open $file:$!";
 foreach my $const (qw(AVf_REAL 
+		      HEf_SVKEY
                       SVf_IOK SVf_NOK SVf_POK SVf_ROK SVp_IOK SVp_POK ))
  {
   doconst($const);