[gnurl] 58/411: tests/getpart: use MIME::Base64 instead of home-cooked

[gnunet]

This is an automated email from the git hooks/post-receive script.

nikita pushed a commit to branch master
in repository gnurl.

commit 8bb183114c8aa55fd45042224d71733b29d1f968
Author: Daniel Stenberg <daniel@haxx.se>
AuthorDate: Fri Aug 28 22:31:57 2020 +0200

    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
---
 tests/getpart.pm | 7 +------
 1 file changed, 1 insertion(+), 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 = $_;

-- 
To stop receiving notification emails like this one, please contact
gnunet@gnunet.org.