From 7d346747d6b6e596ff1cc8c3621b27e6fae49f16 Mon Sep 17 00:00:00 2001
From: Isaac Connor <iconnor@pseudo.connortechnology.com>
Date: Wed, 2 Mar 2016 10:18:58 -0500
Subject: [PATCH] use Digest::SHA instead of Digest::SHA1.  API appears to be
 the same

---
 onvif/modules/lib/WSSecurity/SecuritySerializer.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/onvif/modules/lib/WSSecurity/SecuritySerializer.pm b/onvif/modules/lib/WSSecurity/SecuritySerializer.pm
index cbb6ae8f9..11a918af7 100644
--- a/onvif/modules/lib/WSSecurity/SecuritySerializer.pm
+++ b/onvif/modules/lib/WSSecurity/SecuritySerializer.pm
@@ -26,7 +26,7 @@ use strict;
 use warnings;
 use SOAP::WSDL::Factory::Serializer;
 use Time::Local;
-use Digest::SHA1;
+use Digest::SHA;
 use MIME::Base64;
 
 
@@ -94,7 +94,7 @@ sub ws_authen {
     my $nonce = $nonce_generator->();
     my $timestamp = timestamp();
 
-    my $pwDigest =  Digest::SHA1::sha1( $nonce . $timestamp . $password );
+    my $pwDigest =  Digest::SHA::sha1( $nonce . $timestamp . $password );
     my $passwordHash = MIME::Base64::encode_base64($pwDigest,"");
     my $nonceHash = MIME::Base64::encode_base64($nonce,"");