From: Nicholas Clark <nick@ccl4.org>
Date: Fri, 8 Apr 2005 19:11:04 +0000 (+0000)
Subject: Mangle the expected output correctly for both 5.9 and 5.8
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4581844a3cc3a7a0d705d34f64d0a3da950a530d;p=p5sagit%2Fp5-mst-13.2.git

Mangle the expected output correctly for both 5.9 and 5.8

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

diff --git a/ext/B/t/stash.t b/ext/B/t/stash.t
index 879368a..9d6879b 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';