diff options
| -rw-r--r-- | tests/getpart.pm | 7 | ||||
| -rwxr-xr-x | tests/runtests.pl | 1 |
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; |