don't import 'RFC' from MIME::Base32

call encode_rfc3548 explicitly instead as newer versions of
the base32 package will drop this import scheme (stretch)
This commit is contained in:
Wolfgang Bumiller 2016-07-25 08:33:29 +02:00 committed by Fabian Grünbichler
parent 5d87bb77e4
commit 03e2a71e3d
2 changed files with 3 additions and 3 deletions

View File

@ -8,7 +8,7 @@ use Crypt::OpenSSL::RSA;
use Net::SSLeay;
use Net::IP;
use MIME::Base64;
use MIME::Base32 qw(RFC); #libmime-base32-perl
use MIME::Base32; #libmime-base32-perl
use Digest::SHA;
use URI::Escape;
use LWP::UserAgent;

View File

@ -2,10 +2,10 @@
use strict;
use warnings;
use MIME::Base32 qw(RFC); #libmime-base32-perl
use MIME::Base32; #libmime-base32-perl
my $test;
open(RND, "/dev/urandom");
sysread(RND, $test, 10) == 10 || die "read randon data failed\n";
print MIME::Base32::encode($test) . "\n";
print MIME::Base32::encode_rfc3548($test) . "\n";