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

test1276.pl: enable strict/warnings, fix them

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

5
tests/test1276.pl
View file

@ -23,13 +23,16 @@
#
###########################################################################
use strict;
use warnings 'FATAL' => 'all';
sub showline {
my ($l) = @_;
$l =~ s/([^\x20-\x7f])/sprintf "%%%02x", ord $1/eg;
return $l;
}
my $root = $ARGV[0];
my $root = $ARGV[0] || '..';
open(my $fh, "-|", "perl $root/lib/optiontable.pl < $root/include/curl/curl.h");
binmode $fh;