commit f131ca382c5689cf4ad8d5a85047e67727853bf6
from: Alexander Arch <aa@manpager.org>
via: Alex Arx <aa@manpager.org>
date: Fri Nov 15 13:50:00 2024 UTC

undefine secret variables as soon as possible

commit - b23881a8b8211785ce34ba7b77bb709a896a6254
commit + f131ca382c5689cf4ad8d5a85047e67727853bf6
blob - 96ed7d9682eed9c072bb336daea35cfe6edd2947
blob + 2238bbb340780b596e49ace56c7837008b1a0c05
--- gpm
+++ gpm
@@ -99,11 +99,13 @@ sub add {
 
 		system "stty echo";
 		die "Sorry\n" if $sec ne $sec2;
+		undef $sec2;
 	} else { while (<STDIN>) { $sec .= $_; } }
 
 	my $pid = open2(my $reader, my $writer, $cmd);
 	print $writer $sec;
-	close($writer);
+	undef $sec;
+	close $writer;
 	my $out;
 	while (<$reader>) { $out .= $_; }
 	waitpid $pid, 0;