use Digest ();
use Data::Dumper ();
-our $VERSION = '0.24';
-our $AUTHORITY = 'cpan:STEVAN';
-
our $DIGEST_MARKER = '__DIGEST__';
around pack => sub {
}
}
else {
- return Digest->new($d || "SHA1", @args);
+ return Digest->new($d || "SHA-1", @args);
}
}