13 lines
463 B
Raku
13 lines
463 B
Raku
Index: main/Crypt.pm
|
|
diff -u main/Crypt.pm.orig main/Crypt.pm
|
|
--- main/Crypt.pm.orig 2010-02-12 03:34:31.000000000 +0900
|
|
+++ main/Crypt.pm 2014-05-28 10:25:14.117593425 +0900
|
|
@@ -25,7 +25,7 @@
|
|
# encryptedのsaltでrawをcrypt()してみて、一致したかどうかを真偽値で返す。
|
|
my ($raw,$encrypted) = @_;
|
|
|
|
- return crypt($raw,substr($encrypted,0,2)) eq $encrypted;
|
|
+ return crypt($raw,$encrypted) eq $encrypted;
|
|
}
|
|
|
|
sub gen_salt {
|