This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix the test fix for older perls (5499dc3d6e47ea78). We're still on 5.13.6
authorNicholas Clark <nick@ccl4.org>
Sat, 20 Nov 2010 11:58:07 +0000 (11:58 +0000)
committerNicholas Clark <nick@ccl4.org>
Sat, 20 Nov 2010 11:58:07 +0000 (11:58 +0000)
dist/Data-Dumper/t/bless.t

index f3d886a..086332c 100644 (file)
@@ -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' );