From eb5f4280cce6d20f1462885a726788224451d2dc Mon Sep 17 00:00:00 2001
From: ribet
Date: Wed, 12 Sep 2007 13:56:39 +0000
Subject: Fix when parent is undefined.

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

(limited to 'src')

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