Show the window refnum in debug output if there's not window name

Signed-off-by: martin f. krafft <redacted>

diff --git a/scripts/ctrlact.pl b/scripts/ctrlact.pl
index da39804c6c8fff231543c7363eae2d544ec8429b..3854132319ba7adb96127b7456d4b496971b534f 100644 (file)
--- a/scripts/ctrlact.pl
+++ b/scripts/ctrlact.pl
@@ -343,7 +343,7 @@ sub maybe_inhibit_win_hilight {
                my ($th, $tth, $match) = get_win_threshold($wname, $wtag);
                my $inhibit = $newlevel > 0 && $newlevel < $th;
                debugprint(sprintf(DEBUGEVENTFORMAT, 'window', $wtag,
-                               $wname?$wname:'(unnamed)', $newlevel,
+                               $wname?$wname:"$win->{'refnum'}(unnamed)", $newlevel,
                                $inhibit ? ('<',$th,'inhibit'):('≥',$th,'pass'),
                                $tth, $match));
                inhibit_win_hilight($win) if $inhibit;