1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
|
Description: Refer to Digest::SHA instead of Digest::SHA1 as
Digest::SHA is in perl core since 5.9.3.
Origin: vendor
Bug: https://rt.cpan.org/Ticket/Display.html?id=74213
Forwarded: yes
Author: Salvatore Bonaccorso <carnil@debian.org>
Last-Update: 2012-01-21
--- a/lib/Digest/BubbleBabble.pm
+++ b/lib/Digest/BubbleBabble.pm
@@ -60,7 +60,7 @@
my $fingerprint = bubblebabble( Digest => "Pineapple" );
# Create a fingerprint of a SHA-1 hash.
- use Digest::SHA1 qw( sha1 );
+ use Digest::SHA qw( sha1 );
$fingerprint = bubblebabble( Digest => sha1("hello") );
=head1 DESCRIPTION
@@ -77,7 +77,7 @@
(and, consequently, by I<Net::SSH::Perl>, the Perl SSH
implementation) to display easy-to-remember key fingerprints.
The key (a DSA or RSA key) is converted into a textual form,
-digested using I<Digest::SHA1>, and run through I<bubblebabble>
+digested using I<Digest::SHA>, and run through I<bubblebabble>
to create the key fingerprint.
=head1 USAGE
@@ -93,7 +93,7 @@
Currently takes only one pair of arguments, the key of
which must be I<Digest>, the value of which is the actual
message digest I<$digest>. You should generate this message
-digest yourself using either I<Digest::MD5> of I<Digest::SHA1>.
+digest yourself using either I<Digest::MD5> of I<Digest::SHA>.
Returns the bubble babble form of the digest.
@@ -114,4 +114,4 @@
Except where otherwise noted, Digest::BubbleBabble is Copyright
2001 Benjamin Trott. All rights reserved.
-=cut
\ No newline at end of file
+=cut
|
