diff options
Diffstat (limited to 'atc-therm-receiver/test.pl')
| -rw-r--r-- | atc-therm-receiver/test.pl | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/atc-therm-receiver/test.pl b/atc-therm-receiver/test.pl index 1c5bc2c..57df7d7 100644 --- a/atc-therm-receiver/test.pl +++ b/atc-therm-receiver/test.pl @@ -99,6 +99,7 @@ sub look_at_device($path,$interfaces) { $new_obj->connect_to_signal( 'PropertiesChanged', sub($interface,$props,@) { + say "PropertiesChanged $path"; maybe_handle_data($path,{$interface=>$props}) or return; } @@ -108,6 +109,7 @@ sub look_at_device($path,$interfaces) { $timer = $reactor->add_timeout( 5_000, sub { + say "timer $path"; try { my $raw_data = $new_obj->Get( 'org.bluez.Device1', |