jpm
/
scripts
1
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Disable debugging from kbd backlight script

This commit is contained in:
John Mertz 2022-04-19 00:18:33 -04:00
parent e6986d01ad
commit e3419b1252
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
thinkpad/kbd_backlight.pl
View File

@ -15,7 +15,6 @@ if (open(my $m, '<', $maxfile)) {
print "Failed to read $maxfile\n"; print "Failed to read $maxfile\n";
exit; exit;
} }
print STDERR "max = $max\n";
if (open(my $c, '<', $current)) { if (open(my $c, '<', $current)) {
$now = readline($c); $now = readline($c);
@ -25,7 +24,6 @@ if (open(my $c, '<', $current)) {
print "Failed to read $current\n"; print "Failed to read $current\n";
exit; exit;
} }
print STDERR "now = $now\n";
if (open(my $fh, '>', $current)) { if (open(my $fh, '>', $current)) {
$new = (($now+1) % ($max+1)); $new = (($now+1) % ($max+1));
@ -36,4 +34,4 @@ if (open(my $fh, '>', $current)) {
print "Failed to write $current\n"; print "Failed to write $current\n";
exit; exit;
} }
print STDERR "new = $new\n"; #print STDERR "$new\n";