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().

Author: marschap

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);
       }
     }
   }

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};
   }
 }