X-Git-Url: https://git.dogcows.com/gitweb?p=chaz%2Fp5-File-KDBX;a=blobdiff_plain;f=t%2Ferror.t;h=79ad54f8657eb966be346839ded8d444f41e15de;hp=fabaa172cf2a9f9644f267d4bd5eec93fe377546;hb=9b4d0a3ea24171a601d48ab2a076041983e45aa7;hpb=22c06c7b833137dc25dab1942f161fde5bc0d9c3

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