From: Charles McGarvey <ccm@cpan.org>
Date: Tue, 3 May 2022 22:33:26 +0000 (-0600)
Subject: Fix ambiguous warnings sub & package test failure
X-Git-Tag: v0.902~5
X-Git-Url: https://git.dogcows.com/gitweb?a=commitdiff_plain;h=9b4d0a3ea24171a601d48ab2a076041983e45aa7;p=chaz%2Fp5-File-KDBX

Fix ambiguous warnings sub & package test failure
---

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';