verify-examples.pl: enable warnings, fix them

This commit is contained in:
Viktor Szakats 2025-07-11 14:28:17 +02:00
parent 7070a7ea14
commit 921219caa3
No known key found for this signature in database
GPG key ID: B5ABD165E2AEF201

View file

@ -23,12 +23,15 @@
#
###########################################################################
use strict;
use warnings;
my @files = @ARGV;
my $cfile = "test.c";
my $check = "./scripts/checksrc.pl";
my $error;
my $error = 0;
if($files[0] eq "-h") {
if(!@files || $files[0] eq "-h") {
print "Usage: verify-examples [markdown pages]\n";
exit;
}
@ -82,7 +85,7 @@ sub extract {
return ($fail ? 0 : $l);
}
my $count;
my $count = 0;
for my $m (@files) {
#print "Verify $m\n";
my $out = extract($m);