From e3419b1252df27045a82f2a88017cb2a38bfb3ed Mon Sep 17 00:00:00 2001
From: John Mertz <john.mertz@mailcleaner.net>
Date: Tue, 19 Apr 2022 00:18:33 -0400
Subject: [PATCH] Disable debugging from kbd backlight script

---
 thinkpad/kbd_backlight.pl | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/thinkpad/kbd_backlight.pl b/thinkpad/kbd_backlight.pl
index 2107247..fdb62cb 100755
--- a/thinkpad/kbd_backlight.pl
+++ b/thinkpad/kbd_backlight.pl
@@ -15,7 +15,6 @@ if (open(my $m, '<', $maxfile)) {
         print "Failed to read $maxfile\n";
         exit;
 }
-print STDERR "max = $max\n";
 
 if (open(my $c, '<', $current)) {
         $now = readline($c);
@@ -25,7 +24,6 @@ if (open(my $c, '<', $current)) {
         print "Failed to read $current\n";
         exit;
 }
-print STDERR "now = $now\n";
 
 if (open(my $fh, '>', $current)) {
         $new = (($now+1) % ($max+1));
@@ -36,4 +34,4 @@ if (open(my $fh, '>', $current)) {
         print "Failed to write $current\n";
         exit;
 }
-print STDERR "new = $new\n";
+#print STDERR "$new\n";