diff options
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Dumpvalue.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Dumpvalue.t b/lib/Dumpvalue.t index 8eb70a34b8..6570e38a2e 100644 --- a/lib/Dumpvalue.t +++ b/lib/Dumpvalue.t @@ -130,7 +130,7 @@ is( $out->read, '', 'unwrap ignored glob on first try'); $d->unwrap(*FOO); is( $out->read, "*DUMPED_GLOB*\n", 'unwrap worked on glob'); $d->unwrap(qr/foo(.+)/); -is( $out->read, "-> qr/(?-xism:foo(.+))/\n", 'unwrap worked on Regexp' ); +is( $out->read, "-> qr/(?^:foo(.+))/\n", 'unwrap worked on Regexp' ); $d->unwrap( sub {} ); like( $out->read, qr/^-> &CODE/, 'unwrap worked on sub ref' ); |