From 1058aa0b4f1b0ceb142cc98e612a0e728411c20c Mon Sep 17 00:00:00 2001
From: ribet
Date: Wed, 12 Sep 2007 13:30:05 +0000
Subject: Fixing parent group for objects returned by minstance.

---
 src/MTools.pm | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'src')

diff --git a/src/MTools.pm b/src/MTools.pm
index 6c1ee9b..22d4ad9 100644
--- a/src/MTools.pm
+++ b/src/MTools.pm
@@ -696,12 +696,14 @@ sub minstance {
 			}
 			else
 			{
+				chggroup ($obj, $parent);
 				return $obj;
 			}
 		}
 	}
 	else
 	{
+		$obj -> chggroup ($parent);
 		return $obj -> {instance};
 	}
 }
-- 
cgit v1.1