From bd9d73890a5cd27aa95c90dd9590612e8aeca410 Mon Sep 17 00:00:00 2001
From: ribet
Date: Thu, 30 Aug 2007 15:48:17 +0000
Subject: Rétablissement de l'argument optionnel de tget.

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

(limited to 'src/MTools.pm')

diff --git a/src/MTools.pm b/src/MTools.pm
index 4b24c74..067fa36 100644
--- a/src/MTools.pm
+++ b/src/MTools.pm
@@ -469,8 +469,8 @@ sub tset {
 }
 
 sub tget {
-	my ($obj) = @_;
-	return $zinc -> tget (ref ($obj) eq '' ? $obj : $obj -> {instance});
+	my ($obj, $ref) = @_;
+	return $zinc -> tget (ref ($obj) eq '' ? $obj : $obj -> {instance}, $ref);
 }
 
 sub treset {
-- 
cgit v1.1