diff options
author | Norbert Preining <norbert@preining.info> | 2024-03-15 03:06:35 +0000 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2024-03-15 03:06:35 +0000 |
commit | 12679ab7d3c2a210f4123163671b532b8b55d5f9 (patch) | |
tree | 0060d13467186ad977f4e73488ee20dd6c0017ab /systems/texlive/tlnet/tlpkg/tlperl/lib/Digest | |
parent | 62170822e034fdd3f81de7274835d0d3b0467100 (diff) |
CTAN sync 202403150306
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/tlperl/lib/Digest')
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); |