Fix Data::Dumper test on old perls
authorSteffen Mueller <smueller@cpan.org>
Fri, 19 Nov 2010 23:53:35 +0000 (00:53 +0100)
committerSteffen Mueller <smueller@cpan.org>
Fri, 19 Nov 2010 23:53:44 +0000 (00:53 +0100)
dist/Data-Dumper/t/bless.t

index 8b9e0c3..f3d886a 100644 (file)
@@ -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");