diff options
| -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; } |