upstream/monitoring-plugins
1
0
Fork 0
mirror of https://github.com/monitoring-plugins/monitoring-plugins.git synced 2026-05-21 09:55:15 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions

opttest.pl Fix Perl complaints

Browse source
This commit is contained in:
Lorenz Kästle 2025-02-19 14:36:05 +01:00
parent e23325f7c3
commit 73bd77ef84
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
opttest.pl
View file

@ -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`;