From a8c6ff7b8e8c6037333c21f9b3f6b38b9278df4f Mon Sep 17 00:00:00 2001
From: Chris 'BinGOs' Williams <chris@bingosnet.co.uk>
Date: Tue, 15 Jan 2013 10:32:29 +0000
Subject: Update Digest-SHA to CPAN version 5.81

  [DELTA]

  5.81  Mon Jan 14 05:17:08 MST 2013
        - corrected load subroutine (SHA.pm) to prevent double-free
              -- Bug #82655: Security issue - segfault
              -- thanks to Victor Efimov and Nicholas Clark
                 for technical expertise and suggestions
---
 cpan/Digest-SHA/lib/Digest/SHA.pm | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

(limited to 'cpan/Digest-SHA/lib')

diff --git a/cpan/Digest-SHA/lib/Digest/SHA.pm b/cpan/Digest-SHA/lib/Digest/SHA.pm
index 40934b6aac..24fbc8b274 100644
--- a/cpan/Digest-SHA/lib/Digest/SHA.pm
+++ b/cpan/Digest-SHA/lib/Digest/SHA.pm
@@ -7,7 +7,7 @@ use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
 use Fcntl;
 use integer;
 
-$VERSION = '5.80';
+$VERSION = '5.81';
 
 require Exporter;
 require DynaLoader;
@@ -50,7 +50,7 @@ sub new {
 			return($class);
 		}
 		shaclose($$class) if $$class;
-		$$class = shaopen($alg) || return;
+		return unless $$class = shaopen($alg);
 		return($class);
 	}
 	$alg = 1 unless defined $alg;
@@ -163,18 +163,21 @@ sub Addfile {
 
 sub dump {
 	my $self = shift;
-	my $file = shift || "";
+	my $file = shift;
 
+	$file = "" unless defined $file;
 	shadump($file, $$self) || return;
 	return($self);
 }
 
 sub load {
 	my $class = shift;
-	my $file = shift || "";
+	my $file = shift;
+
+	$file = "" unless defined $file;
 	if (ref($class)) {	# instance method
 		shaclose($$class) if $$class;
-		$$class = shaload($file) || return;
+		return unless $$class = shaload($file);
 		return($class);
 	}
 	my $state = shaload($file) || return;
-- 
cgit v1.2.1