DSML.pm, Protocol/ldap.pm: use MIME::Base64::decode()

Save some bytes and cycles by using MIME::Base64::decode() instead of MIME::Base64::decode_base64().
marschap · Sep 26, 2013 · a49d2bc · a49d2bc
1 parent 1e77b09
commit a49d2bc
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/lib/LWP/Protocol/ldap.pm b/lib/LWP/Protocol/ldap.pm
@@ -79,7 +79,7 @@ sub request {
       # we only accept Basic authorization for now
       if ($authorization =~ /^Basic\s+([A-Z0-9+\/=]+)$/i) {
         require MIME::Base64;
-        ($user, $password) = split(/:/, MIME::Base64::decode_base64($1), 2);
+        ($user, $password) = split(/:/, MIME::Base64::decode($1), 2);
       }
     }
   }

diff --git a/lib/Net/LDAP/DSML.pm b/lib/Net/LDAP/DSML.pm
@@ -296,7 +296,7 @@ sub characters {
   my $state = $self->{reader};
   if (my $sref = $state->{value}) {
     $$sref = ($state->{encoding}||'') eq 'base64'
-	? do { require MIME::Base64; MIME::Base64::decode_base64($data->{Data}) }
+	? do { require MIME::Base64; MIME::Base64::decode($data->{Data}) }
 	: $data->{Data};
   }
 }