diff options
author | Paul "LeoNerd" Evans <leonerd@leonerd.org.uk> | 2021-12-03 18:03:57 +0000 |
---|---|---|
committer | Paul Evans <leonerd@leonerd.org.uk> | 2021-12-08 14:31:17 +0000 |
commit | b9f7c4e2d12179801bb3a33af15aa343bb9d71db (patch) | |
tree | 9cdcee9b0a2794ad07434468e9ab0f30293d27ca /lib/B/Deparse.t | |
parent | 8d55e914e048b6646b2bafaaec296b12a92335f3 (diff) | |
download | perl-b9f7c4e2d12179801bb3a33af15aa343bb9d71db.tar.gz |
Use builtin::weaken() in .t files in lib/ + ext/
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 ], |