Bug fix in bindings : when a message matches a regular expression

containing several bracketing constructs, only the string
corresponding to the first bracketing construct is displayed.

1 files changed, 8 insertions, 3 deletions

diff --git a/src/ivymon b/src/ivymon
index 1c72a93..a12fcbe 100755
--- a/src/ivymon
+++ b/src/ivymon
@@ -797,12 +797,18 @@ sub addIvyBinding {
     my $binding = shift;
     #print "in addIvyBinding $binding\n";
     $ivy->bindRegexp($binding, [sub {
+	my $sender = shift;
+	my $message;
+	for (my $i = 0; $i < @_; $i++) {
+	    $_[$i] = '"'.$_[$i].'"';
+	}
+	$message = join(' ', @_);
 	$messagesNumber++;
 	if ($stopFlag) {
-	    &bufferizeMessages(@_);
+	    &bufferizeMessages($sender, $message);
 	} else {
 	    &beforeUpdatingMessages;
-	    &updateMessages(@_);
+	    &updateMessages($sender, $message);
 	    &afterUpdatingMessages;
 	}
     }]);
@@ -1106,7 +1112,6 @@ sub beforeUpdatingMessages {
 sub updateMessages {
     my ($sender, $message) = @_;
     chomp($message);
-    $message = '"' . $message . '"' ;
     # If scrolling is available, format and then display message.
     # Unless file has been loaded, look at history : compare widget text lines
     # number with history size