From 5499dc3d6e47ea7842ef1b6bdcda3b7210674fe4 Mon Sep 17 00:00:00 2001
From: Steffen Mueller <smueller@cpan.org>
Date: Sat, 20 Nov 2010 00:53:35 +0100
Subject: Fix Data::Dumper test on old perls

---
 dist/Data-Dumper/t/bless.t | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'dist')

diff --git a/dist/Data-Dumper/t/bless.t b/dist/Data-Dumper/t/bless.t
index 8b9e0c3b4c..f3d886a31d 100644
--- a/dist/Data-Dumper/t/bless.t
+++ b/dist/Data-Dumper/t/bless.t
@@ -43,9 +43,11 @@ SKIP: {
 
 my $t = bless( qr//, 'foo');
 my $dt = Dumper($t);
-my $o = <<'PERL';
+my $o = ($] > 5.013006 ? <<'PERL' : <<'PERL_LEGACY');
 $VAR1 = bless( qr/(?^:)/, 'foo' );
 PERL
+$VAR1 = bless( qr/(?-xism:)/, 'foo' );
+PERL_LEGACY
 
 is($dt, $o, "We can dump blessed qr//'s properly");
 
-- 
cgit v1.2.1