diff options
| author | Steffen Mueller <smueller@cpan.org> | 2010-11-20 00:53:35 +0100 |
|---|---|---|
| committer | Steffen Mueller <smueller@cpan.org> | 2010-11-20 00:53:44 +0100 |
| commit | 5499dc3d6e47ea7842ef1b6bdcda3b7210674fe4 (patch) | |
| tree | 139babfadd756da43448b35cd9728931073997c3 | |
| parent | 872c1c4bfb681f8200ad9e1e54bb9156a53014eb (diff) | |
| download | perl-5499dc3d6e47ea7842ef1b6bdcda3b7210674fe4.tar.gz | |
Fix Data::Dumper test on old perls
| -rw-r--r-- | dist/Data-Dumper/t/bless.t | 4 |
1 files changed, 3 insertions, 1 deletions
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"); |