aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDaniel Stenberg <daniel@haxx.se>2004-11-30 09:27:11 +0000
committerDaniel Stenberg <daniel@haxx.se>2004-11-30 09:27:11 +0000
commitfe0585ec919117b5e8cad63d89c4c09685df0042 (patch)
tree92498073ecf9f71dd87dad11543dbce8db6a2e98
parent18c0b49f3d7e6dcf52b149f08c6adfd33af12a70 (diff)
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
-rw-r--r--tests/getpart.pm7
-rwxr-xr-xtests/runtests.pl1
2 files changed, 7 insertions, 1 deletions
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;