From 71322d89cb2dbd5151e7880592a68e70bbc87b03 Mon Sep 17 00:00:00 2001
From: Dirk <dirk@testssl.sh>
Date: Tue, 1 Sep 2026 15:07:52 +0200
Subject: [PATCH] Squash complains by perlcritic

and enable warnings
---
 t/00_testssl_help.t | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/t/00_testssl_help.t b/t/00_testssl_help.t
index c38ec69..d19b4fe 100755
--- a/t/00_testssl_help.t
+++ b/t/00_testssl_help.t
@@ -3,6 +3,7 @@
 # Basics: is there a syntax error where already bash hiccups on?
 
 use strict;
+use warnings;
 use Test::More;
 use File::stat;
 
@@ -25,11 +26,11 @@ my $info    = stat($prg);
 my $retMode = $info->mode;
 
 #1
-is($retMode & 0400, 0400, "Checking \"./testssl.sh\" for read permission");
+is($retMode & oct("400"), oct("0400"), "Checking \"./testssl.sh\" for read permission");
 $tests++;
 
 #2
-is($retMode & 0100, 0100, "Checking \"./testssl.sh\" for execute permission");
+is($retMode & oct("0100"), oct("0100)", "Checking \"./testssl.sh\" for execute permission");
 $tests++;
 
 $fileout = `bash $prg 2>&1`;