blob: fd3cb432980a824b3ae8fdba8b1463c45424d3fa (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
--- EncryptForm.pm.orig 2010-03-11 15:18:24.000000000 -0500
+++ EncryptForm.pm 2010-03-11 15:18:50.000000000 -0500
@@ -10,7 +10,7 @@
package CGI::EncryptForm;
use Crypt::HCE_SHA;
-use Storable qw(freeze thaw);
+use Storable qw(nfreeze thaw);
use Digest::SHA1 qw(sha1);
use strict;
@@ -70,7 +70,7 @@
my $random_key = $self->_random_key();
- my $str = freeze($decrypted_hashref);
+ my $str = nfreeze($decrypted_hashref);
$str = sha1($str) . $str;
my $cipher = Crypt::HCE_SHA->new($secret_key, $random_key);
|
