From a620bbe79908e7f0df121aeaad9aa27722bc23a8 Mon Sep 17 00:00:00 2001
From: Hajimu UMEMOTO <ume@FreeBSD.org>
Date: Wed, 28 May 2014 03:06:23 +0000
Subject: [PATCH] Make password work again on recent 9-STABLE and later.

---
 japanese/tiarra/Makefile                   |  2 +-
 japanese/tiarra/files/patch-main__Crypt.pm | 13 +++++++++++++
 2 files changed, 14 insertions(+), 1 deletion(-)
 create mode 100644 japanese/tiarra/files/patch-main__Crypt.pm

diff --git a/japanese/tiarra/Makefile b/japanese/tiarra/Makefile
index c6602020ddfd..34125dad8f17 100644
--- a/japanese/tiarra/Makefile
+++ b/japanese/tiarra/Makefile
@@ -3,7 +3,7 @@
 
 PORTNAME=	tiarra
 PORTVERSION=	20100212
-PORTREVISION=	2
+PORTREVISION=	3
 CATEGORIES=	japanese irc ipv6
 MASTER_SITES=	http://www.clovery.jp/tiarra/archive/2010/02/
 
diff --git a/japanese/tiarra/files/patch-main__Crypt.pm b/japanese/tiarra/files/patch-main__Crypt.pm
new file mode 100644
index 000000000000..93d4940759a6
--- /dev/null
+++ b/japanese/tiarra/files/patch-main__Crypt.pm
@@ -0,0 +1,13 @@
+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 {