romenskiy2012/curl
1
0
Fork 0
mirror of https://github.com/curl/curl.git synced 2026-06-07 10:44:17 +03:00
Code Issues Projects Releases Packages Wiki Activity

mkhelp.pl: enable strict/warnings, fix them

Browse source
This commit is contained in:
Viktor Szakats 2025-07-09 22:27:39 +02:00
parent 9bdd0db192
commit c052bd176f
No known key found for this signature in database
GPG key ID: B5ABD165E2AEF201
1 changed files with 10 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

14
src/mkhelp.pl
View file

@ -23,11 +23,17 @@
#
###########################################################################
if($ARGV[0] eq "-c") {
$c=1;
use strict;
use warnings;
my $c = 0;
if(@ARGV && $ARGV[0] eq "-c") {
$c = 1;
shift @ARGV;
}
my @out;
push @out, " _ _ ____ _\n";
push @out, " ___| | | | _ \\| |\n";
push @out, " / __| | | | |_) | |\n";
@ -67,8 +73,8 @@ if($c)
my $gzippedContent;
IO::Compress::Gzip::gzip(
\$content, \$gzippedContent, Level => 9, TextFlag => 1, Time=>0) or die "gzip failed:";
$gzip = length($content);
$gzipped = length($gzippedContent);
my $gzip = length($content);
my $gzipped = length($gzippedContent);
print <<HEAD
#include <zlib.h>