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

p4raw-id: //depot/perl@30566
p4raw-integrated: from //depot/maint-5.8/perl@30563 'copy in'
ext/B/defsubs_h.PL (@30564..)

ext/B/defsubs_h.PL

index e55eae7..eefaa7e 100644 (file)
@@ -62,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))
  {