diff options
Diffstat (limited to 'src/IvyIO.pm')
| -rw-r--r-- | src/IvyIO.pm | 8 |
1 files changed, 4 insertions, 4 deletions
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 |