diff options
| author | ribet | 2007-08-30 15:48:17 +0000 |
|---|---|---|
| committer | ribet | 2007-08-30 15:48:17 +0000 |
| commit | bd9d73890a5cd27aa95c90dd9590612e8aeca410 (patch) | |
| tree | 9d511d7e967ce876b73a0fb863bc41bcb85e81ac /src/MTools.pm | |
| parent | 5d8d8e5962056be63bfd5a581113e1943e122a26 (diff) | |
| download | mtc-bd9d73890a5cd27aa95c90dd9590612e8aeca410.zip mtc-bd9d73890a5cd27aa95c90dd9590612e8aeca410.tar.gz mtc-bd9d73890a5cd27aa95c90dd9590612e8aeca410.tar.bz2 mtc-bd9d73890a5cd27aa95c90dd9590612e8aeca410.tar.xz | |
Rétablissement de l'argument optionnel de tget.
Diffstat (limited to 'src/MTools.pm')
| -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 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 { |