diff options
| author | ribet | 2007-09-12 13:56:39 +0000 |
|---|---|---|
| committer | ribet | 2007-09-12 13:56:39 +0000 |
| commit | eb5f4280cce6d20f1462885a726788224451d2dc (patch) | |
| tree | 6ed413905db5c4e3c710f89246261f9164291149 | |
| parent | 1058aa0b4f1b0ceb142cc98e612a0e728411c20c (diff) | |
| download | mtc-eb5f4280cce6d20f1462885a726788224451d2dc.zip mtc-eb5f4280cce6d20f1462885a726788224451d2dc.tar.gz mtc-eb5f4280cce6d20f1462885a726788224451d2dc.tar.bz2 mtc-eb5f4280cce6d20f1462885a726788224451d2dc.tar.xz | |
Fix when parent is undefined.
| -rw-r--r-- | src/MTools.pm | 4 |
1 files changed, 2 insertions, 2 deletions
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}; } } |