moparisthebest/curl
1
0
Fork 0
mirror of https://github.com/moparisthebest/curl synced 2024-12-21 23:58:49 -05:00
Code Issues Releases Wiki Activity

no longer use the MIME::Base64.pm package as it seems to not be standard

Browse Source 
on lots of perl versions, provide our own base64 decoder
This commit is contained in:
Daniel Stenberg 2004-11-30 09:27:11 +00:00
parent 18c0b49f3d
commit fe0585ec91
2 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
tests/getpart.pm
View File

@ -6,6 +6,13 @@ my @xml;
my $warning=0; my $warning=0;
my $trace=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 { sub getpartattr {
# if $part is undefined (ie only one argument) then # if $part is undefined (ie only one argument) then
# return the attributes of the section # return the attributes of the section

1
tests/runtests.pl
View File

@ -23,7 +23,6 @@
########################################################################### ###########################################################################
# These should be the only variables that might be needed to get edited: # These should be the only variables that might be needed to get edited:
use MIME::Base64;
use strict; use strict;
#use warnings; #use warnings;