X-Git-Url: http://jsfdemo.indexdata.com/?a=blobdiff_plain;f=lib%2FZOOM%2FIRSpy.pm;h=93b519291e87f982667fa3ff74734bfccd556128;hb=ded663f1c0b5c997b1b215320c4290761fdaa520;hp=de2c56163ba51af55b3a2013d6020bf264e0b0f1;hpb=a71cc3bc7959020502c5a2ba0fe907cd7afaab6c;p=irspy-moved-to-github.git diff --git a/lib/ZOOM/IRSpy.pm b/lib/ZOOM/IRSpy.pm index de2c561..93b5192 100644 --- a/lib/ZOOM/IRSpy.pm +++ b/lib/ZOOM/IRSpy.pm @@ -65,6 +65,7 @@ BEGIN { ZOOM::Log::mask_str("irspy_unhandled"); ZOOM::Log::mask_str("irspy_test"); ZOOM::Log::mask_str("irspy_task"); + ZOOM::Log::mask_str("irspy_data"); } sub new { @@ -533,7 +534,9 @@ sub check { $conn->option(current_test_address => $nextaddr); my $tname = $node->name(); if ($this->should_skip_test($tname)) { - warn "skipping test '$tname' due to rule"; + $conn->log("irspy_test", + "skipping test '$nextaddr' = $tname due to rule"); + $nskipped += 1; goto NEXT_TEST; } @@ -639,7 +642,7 @@ sub check { my $skipcount = 0; while (defined $node->next() && length($node->next()->address()) >= length($address)) { - $conn->log("irspy_debug", "skipping from '", + $conn->log("irspy_test", "skipping from '", $node->address(), "' to '", $node->next()->address(), "'"); $node = $node->next();