summaryrefslogtreecommitdiff
path: root/systems/texlive/tlnet/tlpkg/tlperl/lib/Digest
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2024-03-15 03:06:35 +0000
committerNorbert Preining <norbert@preining.info>2024-03-15 03:06:35 +0000
commit12679ab7d3c2a210f4123163671b532b8b55d5f9 (patch)
tree0060d13467186ad977f4e73488ee20dd6c0017ab /systems/texlive/tlnet/tlpkg/tlperl/lib/Digest
parent62170822e034fdd3f81de7274835d0d3b0467100 (diff)
CTAN sync 202403150306
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/tlperl/lib/Digest')
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/Digest/MD5.pm2
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/Digest/SHA.pm18
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/Digest/base.pm2
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/Digest/file.pm2
4 files changed, 17 insertions, 7 deletions
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Digest/MD5.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/Digest/MD5.pm
index 81e5142e4d..65a86f4e35 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Digest/MD5.pm
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Digest/MD5.pm
@@ -3,7 +3,7 @@ package Digest::MD5;
use strict;
use warnings;
-our $VERSION = '2.58';
+our $VERSION = '2.58_01';
require Exporter;
*import = \&Exporter::import;
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Digest/SHA.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/Digest/SHA.pm
index dccc0e7aeb..37a31e969a 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Digest/SHA.pm
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Digest/SHA.pm
@@ -6,9 +6,10 @@ use strict;
use warnings;
use vars qw($VERSION @ISA @EXPORT_OK $errmsg);
use Fcntl qw(O_RDONLY O_RDWR);
+use Cwd qw(getcwd);
use integer;
-$VERSION = '6.02';
+$VERSION = '6.04';
require Exporter;
@ISA = qw(Exporter);
@@ -120,9 +121,18 @@ sub addfile {
## by attempting to open with mode O_RDWR
local *FH;
- $file eq '-' and open(FH, '< -')
- or sysopen(FH, $file, -d $file ? O_RDWR : O_RDONLY)
+ if ($file eq '-') {
+ if (-d STDIN) {
+ sysopen(FH, getcwd(), O_RDWR)
+ or _bail('Open failed');
+ }
+ open(FH, '< -')
+ or _bail('Open failed');
+ }
+ else {
+ sysopen(FH, $file, -d $file ? O_RDWR : O_RDONLY)
or _bail('Open failed');
+ }
if ($BITS) {
my ($n, $buf) = (0, "");
@@ -810,7 +820,7 @@ darkness and moored it in so perfect a calm and in so brilliant a light"
=head1 COPYRIGHT AND LICENSE
-Copyright (C) 2003-2018 Mark Shelor
+Copyright (C) 2003-2022 Mark Shelor
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Digest/base.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/Digest/base.pm
index 0f3afcbda9..539559b261 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Digest/base.pm
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Digest/base.pm
@@ -3,7 +3,7 @@ package Digest::base;
use strict;
use warnings;
-our $VERSION = "1.19";
+our $VERSION = "1.20";
# subclass is supposed to implement at least these
sub new;
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Digest/file.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/Digest/file.pm
index 7d46938c0c..088fabf4b9 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Digest/file.pm
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Digest/file.pm
@@ -7,7 +7,7 @@ use Exporter ();
use Carp qw(croak);
use Digest ();
-our $VERSION = "1.19";
+our $VERSION = "1.20";
our @ISA = qw(Exporter);
our @EXPORT_OK = qw(digest_file_ctx digest_file digest_file_hex digest_file_base64);