Data::Dumper: Option to avoid building much of the seen hash

[perl5.git] / dist / Data-Dumper / t / bless.t

diff --git a/dist/Data-Dumper/t/bless.t b/dist/Data-Dumper/t/bless.t
index 8b9e0c3..086332c 100644 (file)
--- 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");