diff options
Diffstat (limited to 'lib/B/Deparse.t')
-rw-r--r-- | lib/B/Deparse.t | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lib/B/Deparse.t b/lib/B/Deparse.t index e6c01e3c80..0d471c5362 100644 --- a/lib/B/Deparse.t +++ b/lib/B/Deparse.t @@ -413,9 +413,8 @@ like runperl(stderr => 1, switches => [ '-MO=-qq,Deparse', $path ], qr/sub f\s*\(\$\)\s*\{\s*\}/, 'predeclared prototyped subs'; like runperl(stderr => 1, switches => [ '-MO=-qq,Deparse', $path ], - prog => 'use Scalar::Util q-weaken-; - sub f($); - BEGIN { weaken($_=\$::{f}) }'), + prog => 'sub f($); + BEGIN { use builtin q-weaken-; weaken($_=\$::{f}) }'), qr/sub f\s*\(\$\)\s*;/, 'prototyped stub with weak reference to the stash entry'; like runperl(stderr => 1, switches => [ '-MO=-qq,Deparse', $path ], |