luo980/curl
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

tests/getpart: generate output URL encoded for better diffs

Browse Source 
Closes #7083
This commit is contained in:
Daniel Stenberg 2021-05-19 09:37:01 +02:00
parent d845d392b5
commit 1f90d08371
No known key found for this signature in database
GPG Key ID: 5CC908FDB71E12C2
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tests/getpart.pm
View File

@ -5,7 +5,7 @@
# | (__| |_| | _ <| |___ # | (__| |_| | _ <| |___
# \___|\___/|_| \_\_____| # \___|\___/|_| \_\_____|
# #
# Copyright (C) 1998 - 2020, Daniel Stenberg, <daniel@haxx.se>, et al. # Copyright (C) 1998 - 2021, Daniel Stenberg, <daniel@haxx.se>, et al.
# #
# This software is licensed as described in the file COPYING, which # This software is licensed as described in the file COPYING, which
# you should have received as part of this distribution. The terms # you should have received as part of this distribution. The terms
@ -313,6 +313,7 @@ sub showdiff {
my $l = $_; my $l = $_;
$l =~ s/\r/[CR]/g; $l =~ s/\r/[CR]/g;
$l =~ s/\n/[LF]/g; $l =~ s/\n/[LF]/g;
$l =~ s/([^\x20-\x7f])/sprintf "%%%02x", ord $1/eg;
print TEMP $l; print TEMP $l;
print TEMP "\n"; print TEMP "\n";
} }
@ -323,6 +324,7 @@ sub showdiff {
my $l = $_; my $l = $_;
$l =~ s/\r/[CR]/g; $l =~ s/\r/[CR]/g;
$l =~ s/\n/[LF]/g; $l =~ s/\n/[LF]/g;
$l =~ s/([^\x20-\x7f])/sprintf "%%%02x", ord $1/eg;
print TEMP $l; print TEMP $l;
print TEMP "\n"; print TEMP "\n";
} }