summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/Digest/base.pm
diff options
context:
space:
mode:
authorSiep Kroonenberg <siepo@cybercomm.nl>2022-03-14 10:08:50 +0000
committerSiep Kroonenberg <siepo@cybercomm.nl>2022-03-14 10:08:50 +0000
commit49b9d8ffc05bf0c271287eb1390cabad28c6a47a (patch)
treee2e1779b1d4795d6b2c3bf92a4e2e4154d82124b /Master/tlpkg/tlperl/lib/Digest/base.pm
parentf03a75ebd3b935ecde4dde32687fbe86161c30ed (diff)
New tlperl 5.34
git-svn-id: svn://tug.org/texlive/trunk@62701 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Digest/base.pm')
-rw-r--r--Master/tlpkg/tlperl/lib/Digest/base.pm46
1 files changed, 26 insertions, 20 deletions
diff --git a/Master/tlpkg/tlperl/lib/Digest/base.pm b/Master/tlpkg/tlperl/lib/Digest/base.pm
index b2844ba3400..0f3afcbda96 100644
--- a/Master/tlpkg/tlperl/lib/Digest/base.pm
+++ b/Master/tlpkg/tlperl/lib/Digest/base.pm
@@ -1,8 +1,9 @@
package Digest::base;
use strict;
-use vars qw($VERSION);
-$VERSION = "1.16";
+use warnings;
+
+our $VERSION = "1.19";
# subclass is supposed to implement at least these
sub new;
@@ -12,21 +13,21 @@ sub digest;
sub reset {
my $self = shift;
- $self->new(@_); # ugly
+ $self->new(@_); # ugly
}
sub addfile {
- my ($self, $handle) = @_;
+ my ( $self, $handle ) = @_;
my $n;
my $buf = "";
- while (($n = read($handle, $buf, 4*1024))) {
+ while ( ( $n = read( $handle, $buf, 4 * 1024 ) ) ) {
$self->add($buf);
}
- unless (defined $n) {
- require Carp;
- Carp::croak("Read failed: $!");
+ unless ( defined $n ) {
+ require Carp;
+ Carp::croak("Read failed: $!");
}
$self;
@@ -36,34 +37,39 @@ sub add_bits {
my $self = shift;
my $bits;
my $nbits;
- if (@_ == 1) {
- my $arg = shift;
- $bits = pack("B*", $arg);
- $nbits = length($arg);
+ if ( @_ == 1 ) {
+ my $arg = shift;
+ $bits = pack( "B*", $arg );
+ $nbits = length($arg);
}
else {
- ($bits, $nbits) = @_;
+ ( $bits, $nbits ) = @_;
}
- if (($nbits % 8) != 0) {
- require Carp;
- Carp::croak("Number of bits must be multiple of 8 for this algorithm");
+ if ( ( $nbits % 8 ) != 0 ) {
+ require Carp;
+ Carp::croak("Number of bits must be multiple of 8 for this algorithm");
}
- return $self->add(substr($bits, 0, $nbits/8));
+ return $self->add( substr( $bits, 0, $nbits / 8 ) );
}
sub hexdigest {
my $self = shift;
- return unpack("H*", $self->digest(@_));
+ return unpack( "H*", $self->digest(@_) );
}
sub b64digest {
my $self = shift;
- require MIME::Base64;
- my $b64 = MIME::Base64::encode($self->digest(@_), "");
+ my $b64 = $self->base64_padded_digest;
$b64 =~ s/=+$//;
return $b64;
}
+sub base64_padded_digest {
+ my $self = shift;
+ require MIME::Base64;
+ return MIME::Base64::encode( $self->digest(@_), "" );
+}
+
1;
__END__