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 f3d886a..086332c 100644 (file)
--- a/dist/Data-Dumper/t/bless.t
+++ b/dist/Data-Dumper/t/bless.t
@@ -43,7 +43,7 @@ SKIP: {
 
 my $t = bless( qr//, 'foo');
 my $dt = Dumper($t);
-my $o = ($] > 5.013006 ? <<'PERL' : <<'PERL_LEGACY');
+my $o = ($] >= 5.013006 ? <<'PERL' : <<'PERL_LEGACY');
 $VAR1 = bless( qr/(?^:)/, 'foo' );
 PERL
 $VAR1 = bless( qr/(?-xism:)/, 'foo' );