This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Make the constant AVf_REAL conditional on Perl version.
authorNicholas Clark <nick@ccl4.org>
Tue, 13 Mar 2007 19:08:56 +0000 (19:08 +0000)
committerNicholas Clark <nick@ccl4.org>
Tue, 13 Mar 2007 19:08:56 +0000 (19:08 +0000)
p4raw-id: //depot/maint-5.8/perl@30565

ext/B/defsubs_h.PL

index d1f82be..eefaa7e 100644 (file)
@@ -14,7 +14,6 @@ print OUT <<"END";
 END
 
 foreach my $const (qw(
-                     AVf_REAL
                      CVf_ANON
                      CVf_ASSERTION
                      CVf_CLONE
@@ -63,7 +62,10 @@ if ($] < 5.009) {
 if ($] >= 5.009) {
     # Constant not present in 5.8.x
     doconst(CVf_ISXSUB);
-}
+} else {
+    # Constant not present after 5.8.x
+    doconst(AVf_REAL);
+}  
 
 foreach my $file (qw(op.h cop.h))
  {