From b1e5dad4abbf9f54c05d4d4e06d266ca5132e7fa Mon Sep 17 00:00:00 2001
From: etienne
Date: Wed, 19 Apr 2006 09:26:12 +0000
Subject: optimisation des regexps ivy (bug introuduit en 2.0)

---
 src/IvyIO.pm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'src')

diff --git a/src/IvyIO.pm b/src/IvyIO.pm
index c933ffc..acaed69 100644
--- a/src/IvyIO.pm
+++ b/src/IvyIO.pm
@@ -83,7 +83,7 @@ sub bind_for_play_event {
     my $cb = shift;
     return unless $cb;
     return unless $ivy;
-    $ivy->bindRegexp("ClockStart", [sub { shift; &$cb(); }]);
+    $ivy->bindRegexp("^ClockStart", [sub { shift; &$cb(); }]);
 
 } # end bind_for_play_event
 
@@ -92,7 +92,7 @@ sub bind_for_pause_event {
     my $cb = shift;
     return unless $cb;
     return unless $ivy;
-    $ivy->bindRegexp("ClockStop", [sub { shift; &$cb(); }]);
+    $ivy->bindRegexp("^ClockStop", [sub { shift; &$cb(); }]);
     
 
 } # end bind_for_pause_event
@@ -103,9 +103,9 @@ sub bind_for_clock_and_rate_event {
     my $cb = shift;
     return unless $cb;
     return unless $ivy;
-    $ivy->bindRegexp('ClockEvent Time=(\d\d):(\d\d):(\d\d) Rate=(.*) Bs=.*',
+    $ivy->bindRegexp('^ClockEvent Time=(\d\d):(\d\d):(\d\d) Rate=(.*) Bs=.*',
 		     [sub { shift; &$cb(@_); }]);
-    $ivy->bindRegexp('ClockDatas Time=(\d\d):(\d\d):(\d\d) Rate=(.*) Bs=.*',
+    $ivy->bindRegexp('^ClockDatas Time=(\d\d):(\d\d):(\d\d) Rate=(.*) Bs=.*',
 		     [sub { shift; &$cb(@_); }]);
     
 } # end bind_for_clock_event
-- 
cgit v1.1