Skip to content
This repository has been archived by the owner on Apr 30, 2021. It is now read-only.

Commit

Permalink
Rewrite Digest::SHA1 to Digest::SHA.
Browse files Browse the repository at this point in the history
I mean, that is time to remove Digest::SHA1 dependency.
Is obsolete in Debian (see https://bugs.debian.org/cgi-bin/bugreport.cgi?bug=594273)
When i see to releases of Digest::SHA1 and Digest::SHA is Digest::SHA1 obsolete.
  • Loading branch information
michal-josef-spacek committed Sep 1, 2014
1 parent b308388 commit 6958ea8
Show file tree
Hide file tree
Showing 2 changed files with 3 additions and 3 deletions.
2 changes: 1 addition & 1 deletion cpanfile
@@ -1,4 +1,4 @@
requires 'Carp' => 0;
requires 'Digest::MD5' => 0;
requires 'Digest::SHA1' => 0;
requires 'Digest::SHA' => 0;
requires 'Scalar::Util' => 0;
4 changes: 2 additions & 2 deletions lib/Protocol/WebSocket/Response.pm
Expand Up @@ -7,7 +7,7 @@ use base 'Protocol::WebSocket::Message';

require Carp;
use MIME::Base64 ();
use Digest::SHA1 ();
use Digest::SHA ();

use Protocol::WebSocket::URL;
use Protocol::WebSocket::Cookie::Response;
Expand Down Expand Up @@ -91,7 +91,7 @@ sub headers {
my $key = $self->key;
$key .= '258EAFA5-E914-47DA-95CA-C5AB0DC85B11'; # WTF
$key = Digest::SHA1::sha1($key);
$key = Digest::SHA::sha1($key);
$key = MIME::Base64::encode_base64($key);
$key =~ s{\s+}{}g;
Expand Down

0 comments on commit 6958ea8

Please sign in to comment.