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

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