diff options
| author | Daniel Stenberg <daniel@haxx.se> | 2020-08-28 22:31:57 +0200 |
|---|---|---|
| committer | Daniel Stenberg <daniel@haxx.se> | 2020-08-29 15:10:45 +0200 |
| commit | 8bb183114c8aa55fd45042224d71733b29d1f968 (patch) | |
| tree | f7e6897f293b72d9fe3f5895eec6aac60e3030ca /tests/getpart.pm | |
| parent | f504f18641ebedde8e8b3805472267efa9a9b528 (diff) | |
| download | curl-8bb183114c8aa55fd45042224d71733b29d1f968.tar.gz | |
tests/getpart: use MIME::Base64 instead of home-cooked
Since we already use the base64 package since a while back, we can just
as well switch to that here too.
It also happens to use the exact same function name, which otherwise
causes a run-time warning.
Reported-by: Marc Hörsken
Fixes #5885
Closes #5887
Diffstat (limited to 'tests/getpart.pm')
| -rw-r--r-- | tests/getpart.pm | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/tests/getpart.pm b/tests/getpart.pm index 9519888ee..2162129dc 100644 --- a/tests/getpart.pm +++ b/tests/getpart.pm @@ -28,12 +28,7 @@ my $xmlfile; my $warning=0; my $trace=0; -sub decode_base64 { - tr:A-Za-z0-9+/::cd; # remove non-base64 chars - tr:A-Za-z0-9+/: -_:; # convert to uuencoded format - my $len = pack("c", 32 + 0.75*length); # compute length byte - return unpack("u", $len . $_); # uudecode and print -} +use MIME::Base64; sub decode_hex { my $s = $_; |