diff options
| author | ribet | 2010-05-11 13:04:10 +0000 |
|---|---|---|
| committer | ribet | 2010-05-11 13:04:10 +0000 |
| commit | 1b12ab052c0cdfa5cea4aac0e2362212b56b443d (patch) | |
| tree | a2fc7dfd2f9406b31b8e52f3216c3c322ef1f321 /src/MTools.pm | |
| parent | 2e4df05af0308bfa4356010cbb67201690fcb64b (diff) | |
| download | mtc-1b12ab052c0cdfa5cea4aac0e2362212b56b443d.zip mtc-1b12ab052c0cdfa5cea4aac0e2362212b56b443d.tar.gz mtc-1b12ab052c0cdfa5cea4aac0e2362212b56b443d.tar.bz2 mtc-1b12ab052c0cdfa5cea4aac0e2362212b56b443d.tar.xz | |
Typo and debugging help
Diffstat (limited to 'src/MTools.pm')
| -rw-r--r-- | src/MTools.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/MTools.pm b/src/MTools.pm index 043975d..90f47a1 100644 --- a/src/MTools.pm +++ b/src/MTools.pm @@ -436,6 +436,7 @@ sub binding { if ($spec =~ /\<(.*)\>/) { $obj = ref ($obj) eq ''?$obj:$obj -> {instance}; + print "$spec" if !defined $obj; if (type ($obj) eq 'group') { mconfigure ($obj, '-atomic' => 1); @@ -573,11 +574,11 @@ sub mfind { } } } - print "#### Warning : can't find any object matching with $param \n"; + print "#### Warning : can't find any object matching with $param\n"; } else { - print "#### Warning : can't find any object matching with $param \n"; + print "#### Warning : can't find any object matching with $param\n"; } return undef; } |