From 73bd77ef84e40b43f2ff47d7adb569249e14954f Mon Sep 17 00:00:00 2001
From: Lorenz Kästle <12514511+RincewindsHat@users.noreply.github.com>
Date: Wed, 19 Feb 2025 14:36:05 +0100
Subject: opttest.pl Fix Perl complaints

---
 opttest.pl | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/opttest.pl b/opttest.pl
index 85e3b494..96c4fb0a 100755
--- a/opttest.pl
+++ b/opttest.pl
@@ -1,5 +1,6 @@
 #!/usr/bin/perl -w
 use strict;
+use warnings;
 use Test;
 
 use vars qw($dir $file $prog $idx $state $output %progs @dirs);
@@ -8,7 +9,7 @@ my $tests = 0;
 
 @dirs = qw(plugins plugins-scripts);
 
-foreach $dir (@dirs) {
+foreach my $dir (@dirs) {
 	opendir(DIR, $dir) || die "can't opendir $dir: $!";
 	while ($file = readdir(DIR)) {
 		if (-x "$dir/$file" && -f "$dir/$file") {
@@ -21,7 +22,7 @@ foreach $dir (@dirs) {
 
 plan tests => $tests;
 
-for $prog (keys %progs) {
+for my $prog (keys %progs) {
 	$state = 0;
 	$file = `basename $prog`;
 
-- 
cgit v1.2.3-74-g34f1