In perl.git, the branch maint-5.18 has been updated <http://perl5.git.perl.org/perl.git/commitdiff/79fe14581c9c8fd21f45b89148045403b0fdccd5?hp=0ec7dc753859025ffc69eb02bf79a3f27f794ab1>
- Log ----------------------------------------------------------------- commit 79fe14581c9c8fd21f45b89148045403b0fdccd5 Author: Chris 'BinGOs' Williams <[email protected]> Date: Fri Jun 28 13:07:34 2013 +0100 [perl #118649] maint-5.18: Digest-SHA crash fix in 5.85 Backported minimal changes from blead ----------------------------------------------------------------------- Summary of changes: cpan/Digest-SHA/SHA.xs | 3 +++ cpan/Digest-SHA/lib/Digest/SHA.pm | 2 +- 2 files changed, 4 insertions(+), 1 deletion(-) diff --git a/cpan/Digest-SHA/SHA.xs b/cpan/Digest-SHA/SHA.xs index b93c232..47bef28 100644 --- a/cpan/Digest-SHA/SHA.xs +++ b/cpan/Digest-SHA/SHA.xs @@ -31,6 +31,9 @@ PROTOTYPES: ENABLE int shaclose(s) SHA * s +CODE: + RETVAL = shaclose(s); + sv_setiv(SvRV(ST(0)), 0); int shadump(file, s) diff --git a/cpan/Digest-SHA/lib/Digest/SHA.pm b/cpan/Digest-SHA/lib/Digest/SHA.pm index ef5be0a..b8f66af 100644 --- a/cpan/Digest-SHA/lib/Digest/SHA.pm +++ b/cpan/Digest-SHA/lib/Digest/SHA.pm @@ -62,7 +62,7 @@ sub new { sub DESTROY { my $self = shift; - shaclose($$self) if $$self; + if ($$self) { shaclose($$self); $$self = undef } } sub clone { -- Perl5 Master Repository
