Sisyphus wrote:
> ----- Original Message -----
> From: "Suresh Govindachar" <[EMAIL PROTECTED]>
> .
> .
>
>> sub auth {
>> my (\$self, \$username, \$password) = [EMAIL PROTECTED];
>>
>> eval {
>> require MIME::Base64;
>> require Authen::SASL;
>> } or \$self->set_status(500, ["Need MIME::Base64 and Authen::SASL todo
>>auth"]), return 0;
>
>
> I can't even get (a stripped down version of) that sub to compile:
That's because the code actually looks like:
sub auth {
my ($self, $username, $password) = @_;
eval {
require MIME::Base64;
require Authen::SASL;
} or $self->set_status(500, ["Need MIME::Base64 and Authen::SASL todo
auth"]), return 0;
Not sure why he changed them to refs (escaped the vrbls).
_______________________________________________
Perl-Win32-Users mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
