Projects
Mega:23.09
perl-Digest-SHA
Sign Up
Log In
Username
Password
Overview
Repositories
Revisions
Requests
Users
Attributes
Meta
Expand all
Collapse all
Changes of Revision 3
View file
_service:tar_scm:perl-Digest-SHA.spec
Changed
@@ -3,8 +3,8 @@ Name: perl-%{mod_name} Epoch: 1 -Version: 6.02 -Release: 8 +Version: 6.04 +Release: 1 Summary: Perl extension for SHA-1/224/256/384/512 License: GPL+ or Artistic URL: https://metacpan.org/release/%{mod_name} @@ -68,6 +68,9 @@ %{_mandir}/*/Digest::SHA.3* %changelog +* Wed Oct 25 2023 wangyuhang <wangyuhang27@huawei.com> - 1:6.04-1 +- upgrade version to 6.04 + * Wed Oct 26 2022 wangyuhang <wangyuhang27@huawei.com> - 1:6.02-8 - define mod_name to opitomize the specfile
View file
_service
Changed
@@ -2,7 +2,7 @@ <service name="tar_scm"> <param name="url">git@gitee.com:src-openeuler/perl-Digest-SHA.git</param> <param name="scm">git</param> - <param name="revision">openEuler-23.09</param> + <param name="revision">master</param> <param name="exclude">*</param> <param name="extract">*</param> </service>
View file
_service:tar_scm:Digest-SHA-6.02.tar.gz/Changes -> _service:tar_scm:Digest-SHA-6.04.tar.gz/Changes
Changed
@@ -1,5 +1,16 @@ Revision history for Perl extension Digest::SHA. +6.04 Sat Feb 25 12:00:50 PM MST 2023 + - modified SHA_INIT/sharewind to silence warnings from gcc 12 + -- resolves rt.cpan.org #146585 + -- thanks to Yves (yves@cpan.org) for patch, + amended slightly to preserve style + +6.03 Mon 08 Aug 2022 11:30:32 AM MST + - corrected addfile to report error when stdin is a directory + -- ref. rt.cpan.org #143899 + -- thanks to Gregor Herrmann for pointing this out + 6.02 Fri Apr 20 16:25:30 MST 2018 - silenced compiler warnings from VS2017 -- ref. rt.cpan.org #124477
View file
_service:tar_scm:Digest-SHA-6.02.tar.gz/META.yml -> _service:tar_scm:Digest-SHA-6.04.tar.gz/META.yml
Changed
@@ -1,6 +1,6 @@ --- #YAML:1.0 name: Digest-SHA -version: 6.02 +version: 6.04 abstract: Perl extension for SHA-1/224/256/384/512 license: perl author: @@ -10,7 +10,7 @@ provides: Digest::SHA: file: lib/Digest/SHA.pm - version: 6.02 + version: 6.04 meta-spec: version: 1.3 url: http://module-build.sourceforge.net/META-spec-v1.3.html
View file
_service:tar_scm:Digest-SHA-6.02.tar.gz/README -> _service:tar_scm:Digest-SHA-6.04.tar.gz/README
Changed
@@ -1,4 +1,4 @@ -Digest::SHA version 6.02 +Digest::SHA version 6.04 ======================== Digest::SHA is a complete implementation of the NIST Secure Hash @@ -33,7 +33,7 @@ COPYRIGHT AND LICENSE -Copyright (C) 2003-2018 Mark Shelor +Copyright (C) 2003-2023 Mark Shelor This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
View file
_service:tar_scm:Digest-SHA-6.02.tar.gz/lib/Digest/SHA.pm -> _service:tar_scm:Digest-SHA-6.04.tar.gz/lib/Digest/SHA.pm
Changed
@@ -6,9 +6,10 @@ 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 @@ ## 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 @@ =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.
View file
_service:tar_scm:Digest-SHA-6.02.tar.gz/shasum -> _service:tar_scm:Digest-SHA-6.04.tar.gz/shasum
Changed
@@ -2,10 +2,10 @@ ## shasum: filter for computing SHA digests (ref. sha1sum/md5sum) ## - ## Copyright (C) 2003-2018 Mark Shelor, All Rights Reserved + ## Copyright (C) 2003-2023 Mark Shelor, All Rights Reserved ## - ## Version: 6.02 - ## Fri Apr 20 16:25:30 MST 2018 + ## Version: 6.04 + ## Sat Feb 25 12:00:50 PM MST 2023 ## shasum SYNOPSIS adapted from GNU Coreutils sha1sum. Add ## "-a" option for algorithm selection, @@ -97,7 +97,7 @@ =head1 AUTHOR -Copyright (C) 2003-2018 Mark Shelor <mshelor@cpan.org>. +Copyright (C) 2003-2023 Mark Shelor <mshelor@cpan.org>. =head1 SEE ALSO @@ -107,7 +107,7 @@ END_OF_POD -my $VERSION = "6.02"; +my $VERSION = "6.04"; sub usage { my($err, $msg) = @_;
View file
_service:tar_scm:Digest-SHA-6.02.tar.gz/src/sha.c -> _service:tar_scm:Digest-SHA-6.04.tar.gz/src/sha.c
Changed
@@ -3,10 +3,10 @@ * * Ref: NIST FIPS PUB 180-4 Secure Hash Standard * - * Copyright (C) 2003-2018 Mark Shelor, All Rights Reserved + * Copyright (C) 2003-2023 Mark Shelor, All Rights Reserved * - * Version: 6.02 - * Fri Apr 20 16:25:30 MST 2018 + * Version: 6.04 + * Sat Feb 25 12:00:50 PM MST 2023 * */ @@ -279,14 +279,11 @@ return(buf); } -#define SHA_INIT(s, algo, transform) \ +#define SHA_INIT(s, algo, transform, state, state_t) \ do { \ Zero(s, 1, SHA); \ s->alg = algo; s->sha = sha ## transform; \ - if (s->alg <= SHA256) \ - Copy(H0 ## algo, s->H32, 8, SHA32); \ - else \ - Copy(H0 ## algo, s->H64, 8, SHA64); \ + Copy(H0 ## algo, s->state, 8, state_t); \ s->blocksize = SHA ## algo ## _BLOCK_BITS; \ s->digestlen = SHA ## algo ## _DIGEST_BITS >> 3; \ } while (0) @@ -294,13 +291,13 @@ /* sharewind: resets digest object */ static void sharewind(SHA *s) { - if (s->alg == SHA1) SHA_INIT(s, 1, 1); - else if (s->alg == SHA224) SHA_INIT(s, 224, 256); - else if (s->alg == SHA256) SHA_INIT(s, 256, 256); - else if (s->alg == SHA384) SHA_INIT(s, 384, 512); - else if (s->alg == SHA512) SHA_INIT(s, 512, 512); - else if (s->alg == SHA512224) SHA_INIT(s, 512224, 512); - else if (s->alg == SHA512256) SHA_INIT(s, 512256, 512); + if (s->alg == SHA1) SHA_INIT(s, 1, 1, H32, SHA32); + else if (s->alg == SHA224) SHA_INIT(s, 224, 256, H32, SHA32); + else if (s->alg == SHA256) SHA_INIT(s, 256, 256, H32, SHA32); + else if (s->alg == SHA384) SHA_INIT(s, 384, 512, H64, SHA64); + else if (s->alg == SHA512) SHA_INIT(s, 512, 512, H64, SHA64); + else if (s->alg == SHA512224) SHA_INIT(s, 512224, 512, H64, SHA64); + else if (s->alg == SHA512256) SHA_INIT(s, 512256, 512, H64, SHA64); } /* shainit: initializes digest object */
View file
_service:tar_scm:Digest-SHA-6.02.tar.gz/src/sha.h -> _service:tar_scm:Digest-SHA-6.04.tar.gz/src/sha.h
Changed
@@ -3,10 +3,10 @@ * * Ref: NIST FIPS PUB 180-4 Secure Hash Standard * - * Copyright (C) 2003-2018 Mark Shelor, All Rights Reserved + * Copyright (C) 2003-2023 Mark Shelor, All Rights Reserved * - * Version: 6.02 - * Fri Apr 20 16:25:30 MST 2018 + * Version: 6.04 + * Sat Feb 25 12:00:50 PM MST 2023 * */
View file
_service:tar_scm:Digest-SHA-6.02.tar.gz/src/sha64bit.c -> _service:tar_scm:Digest-SHA-6.04.tar.gz/src/sha64bit.c
Changed
@@ -3,10 +3,10 @@ * * Ref: NIST FIPS PUB 180-4 Secure Hash Standard * - * Copyright (C) 2003-2018 Mark Shelor, All Rights Reserved + * Copyright (C) 2003-2023 Mark Shelor, All Rights Reserved * - * Version: 6.02 - * Fri Apr 20 16:25:30 MST 2018 + * Version: 6.04 + * Sat Feb 25 12:00:50 PM MST 2023 * */
View file
_service:tar_scm:Digest-SHA-6.02.tar.gz/src/sha64bit.h -> _service:tar_scm:Digest-SHA-6.04.tar.gz/src/sha64bit.h
Changed
@@ -3,10 +3,10 @@ * * Ref: NIST FIPS PUB 180-4 Secure Hash Standard * - * Copyright (C) 2003-2018 Mark Shelor, All Rights Reserved + * Copyright (C) 2003-2023 Mark Shelor, All Rights Reserved * - * Version: 6.02 - * Fri Apr 20 16:25:30 MST 2018 + * Version: 6.04 + * Sat Feb 25 12:00:50 PM MST 2023 * * The following macros supply placeholder values that enable the * sha.c module to successfully compile when 64-bit integer types
Locations
Projects
Search
Status Monitor
Help
Open Build Service
OBS Manuals
API Documentation
OBS Portal
Reporting a Bug
Contact
Mailing List
Forums
Chat (IRC)
Twitter
Open Build Service (OBS)
is an
openSUSE project
.
浙ICP备2022010568号-2