summaryrefslogtreecommitdiff
path: root/tests/getpart.pm
diff options
context:
space:
mode:
authorDaniel Stenberg <daniel@haxx.se>2020-08-28 22:31:57 +0200
committerDaniel Stenberg <daniel@haxx.se>2020-08-29 15:10:45 +0200
commit8bb183114c8aa55fd45042224d71733b29d1f968 (patch)
treef7e6897f293b72d9fe3f5895eec6aac60e3030ca /tests/getpart.pm
parentf504f18641ebedde8e8b3805472267efa9a9b528 (diff)
downloadcurl-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.pm7
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 = $_;