diff options
Diffstat (limited to 'dist/Data-Dumper/t/bless.t')
| -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"); |