From 9b4d0a3ea24171a601d48ab2a076041983e45aa7 Mon Sep 17 00:00:00 2001 From: Charles McGarvey Date: Tue, 3 May 2022 16:33:26 -0600 Subject: [PATCH] Fix ambiguous warnings sub & package test failure --- t/error.t | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/t/error.t b/t/error.t index fabaa17..79ad54f 100644 --- a/t/error.t +++ b/t/error.t @@ -80,7 +80,7 @@ subtest 'Warnings' => sub { } SKIP: { - skip 'warnings::warnif_at_level is required', 1 if !warnings->can('warnif_at_level'); + skip 'warnings::warnif_at_level is required', 1 if !warnings::->can('warnif_at_level'); no warnings 'File::KDBX'; my @warnings = warnings { alert 'uh oh' }; is @warnings, 0, 'Warnings can be disabled lexically' @@ -88,7 +88,7 @@ subtest 'Warnings' => sub { } SKIP: { - skip 'warnings::fatal_enabled_at_level is required', 1 if !warnings->can('fatal_enabled_at_level'); + skip 'warnings::fatal_enabled_at_level is required', 1 if !warnings::->can('fatal_enabled_at_level'); use warnings FATAL => 'File::KDBX'; my $exception = exception { alert 'uh oh' }; like $exception, qr/uh oh/, 'Warnings can be fatal'; -- 2.45.2