From 92a49f9c479dabdc9e9830a0503e8a8acc4ca24a Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Wed, 17 Apr 2019 14:37:43 +0200
Subject: [PATCH] (Pes) Use perfect for subjunctive in haveVerb

---
 src/persian/MorphoPes.gf | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/persian/MorphoPes.gf b/src/persian/MorphoPes.gf
index 24b4dd89..d5378f19 100644
--- a/src/persian/MorphoPes.gf
+++ b/src/persian/MorphoPes.gf
@@ -315,7 +315,8 @@ oper
 
   haveVerb : Verb = haveRegV ** {s = table {
     ImpPrefix _ => [] ;
-    VAor Neg agr => imperfectSuffix agr (addN "دار") ;
+    VAor Neg agr  => imperfectSuffix agr (addN "دار") ;
+    VSubj pol agr => haveRegV.s ! VPerf pol agr ;
     vf          => haveRegV.s ! vf }
   } where { haveRegV = mkVerb "داشتن" "دار" } ;