Get B compiling and passing all tests on both 5.9.x and 5.8.x

p4raw-id: //depot/perl@30558

1 files changed, 3 insertions, 2 deletions

diff --git a/ext/B/B.pm b/ext/B/B.pm
index 2e5409ca58..caccf4bfb0 100644
--- a/ext/B/B.pm
+++ b/ext/B/B.pm
@@ -21,9 +21,10 @@ require Exporter;
 		sub_generation amagic_generation perlstring
 		walkoptree_slow walkoptree walkoptree_exec walksymtable
 		parents comppadlist sv_undef compile_stats timing_info
-		begin_av init_av unitcheck_av check_av end_av regex_padav
-		dowarn defstash curstash warnhook diehook inc_gv
+		begin_av init_av check_av end_av regex_padav dowarn defstash
+		curstash warnhook diehook inc_gv
 		);
+push @EXPORT_OK, qw(unitcheck_av) if $] > 5.009;
 
 sub OPf_KIDS ();
 use strict;