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 /ext | |
| parent | 8d55e914e048b6646b2bafaaec296b12a92335f3 (diff) | |
| download | perl-b9f7c4e2d12179801bb3a33af15aa343bb9d71db.tar.gz | |
Use builtin::weaken() in .t files in lib/ + ext/
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/Hash-Util-FieldHash/t/05_perlhook.t | 2 | ||||
| -rw-r--r-- | ext/XS-APItest/t/hash.t | 2 | ||||
| -rw-r--r-- | ext/XS-APItest/t/magic.t | 1 |
3 files changed, 2 insertions, 3 deletions
diff --git a/ext/Hash-Util-FieldHash/t/05_perlhook.t b/ext/Hash-Util-FieldHash/t/05_perlhook.t index ab3d74ba57..7b5990998d 100644 --- a/ext/Hash-Util-FieldHash/t/05_perlhook.t +++ b/ext/Hash-Util-FieldHash/t/05_perlhook.t @@ -4,7 +4,7 @@ use Test::More; my $n_tests; use Hash::Util::FieldHash; -use Scalar::Util qw( weaken); +use builtin qw(weaken); sub numbers_first { # Sort helper: All digit entries sort in front of others # Makes sorting portable across ASCII/EBCDIC diff --git a/ext/XS-APItest/t/hash.t b/ext/XS-APItest/t/hash.t index 5d3357e888..e502e705ba 100644 --- a/ext/XS-APItest/t/hash.t +++ b/ext/XS-APItest/t/hash.t @@ -191,7 +191,7 @@ sub test_precomputed_hashes { } { - use Scalar::Util 'weaken'; + use builtin 'weaken'; my %h; fill_hash_with_nulls(\%h); my @objs; diff --git a/ext/XS-APItest/t/magic.t b/ext/XS-APItest/t/magic.t index e47cd887cb..46feb7ab07 100644 --- a/ext/XS-APItest/t/magic.t +++ b/ext/XS-APItest/t/magic.t @@ -29,7 +29,6 @@ ok !mg_find_bar($sv), '... and bar magic is removed too'; is(test_get_vtbl(), 0, 'get_vtbl(-1) returns NULL'); -use Scalar::Util 'weaken'; eval { sv_magic(\!0, $foo) }; is $@, "", 'PERL_MAGIC_ext is permitted on read-only things'; |