Mangle the expected output correctly for both 5.9 and 5.8

p4raw-id: //depot/perl@24213

1 files changed, 4 insertions, 1 deletions

diff --git a/ext/B/t/stash.t b/ext/B/t/stash.t
index 879368a4a9..9d6879b113 100755
--- a/ext/B/t/stash.t
+++ b/ext/B/t/stash.t
@@ -78,7 +78,10 @@ $got = "@got";
 
 my $expected = "attributes Carp Carp::Heavy DB Internals main Regexp utf8 version warnings";
 
-$expected =~ s/version // if $] < 5.009;
+if ($] < 5.009) {
+    $expected =~ s/version //;
+    $expected =~ s/DB/DB Exporter Exporter::Heavy/;
+}
 
 {
     no strict 'vars';