From: Daniel Stenberg <daniel@haxx.se>
Date: Tue, 30 Nov 2004 09:27:11 +0000 (+0000)
Subject: no longer use the MIME::Base64.pm package as it seems to not be standard
X-Git-Tag: curl-7_12_3~125
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=fe0585ec919117b5e8cad63d89c4c09685df0042;p=curl

no longer use the MIME::Base64.pm package as it seems to not be standard
on lots of perl versions, provide our own base64 decoder
---

diff --git a/tests/getpart.pm b/tests/getpart.pm
index 1dffe353c..48be6c2da 100644
--- a/tests/getpart.pm
+++ b/tests/getpart.pm
@@ -6,6 +6,13 @@ my @xml;
 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
+}
+
 sub getpartattr {
     # if $part is undefined (ie only one argument) then
     # return the attributes of the section
diff --git a/tests/runtests.pl b/tests/runtests.pl
index ba13d2413..5f69e918e 100755
--- a/tests/runtests.pl
+++ b/tests/runtests.pl
@@ -23,7 +23,6 @@
 ###########################################################################
 # These should be the only variables that might be needed to get edited:
 
-use MIME::Base64;
 use strict;
 #use warnings;