From 1b12ab052c0cdfa5cea4aac0e2362212b56b443d Mon Sep 17 00:00:00 2001
From: ribet
Date: Tue, 11 May 2010 13:04:10 +0000
Subject: Typo and debugging help

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

(limited to 'src/MTools.pm')

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;
 }
-- 
cgit v1.1