Commit fe0585ec authored by Daniel Stenberg's avatar Daniel Stenberg
Browse files

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
parent 18c0b49f

tests/getpart.pm

+7 −0
Original line number Diff line number Diff line
@@ -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

tests/runtests.pl

+0 −1
Original line number Diff line number Diff line
@@ -23,7 +23,6 @@ 
###########################################################################

# These should be the only variables that might be needed to get edited:



use MIME::Base64;

use strict;

#use warnings;