sub tiger ($) {
local ($_) = @_;
#use Mhash qw( mhash mhash_hex MHASH_TIGER);
#eval "use MIME::Base32 qw( RFC ); use Digest::Tiger;" or $self->log('err', 'cant use', $@);
#$_.=("\x00"x(1024 - length $_)); print ( 'hlen', length $_);
#Digest::Tiger::hash($_);
eval{ Net::DirectConnect::TigerHash::tthbin($_);}
#mhash(Mhash::MHASH_TIGER, $_);
}6 POD Errors
The following errors were encountered while parsing the POD:
- Around line 129:
Unknown directive: =z
- Around line 310:
Unknown directive: =z
- Around line 366:
Unknown directive: =z
- Around line 381:
Unknown directive: =COMMANDS
- Around line 477:
Unknown directive: =z
- Around line 541:
Unknown directive: =auto