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

don't die before resetting stty

commit - a1a2b34806e540fcb8714b457dd63b24b53cd168
commit + b23881a8b8211785ce34ba7b77bb709a896a6254
blob - 81e82c294261af78c4d17f82895fb5adaf558201
blob + 96ed7d9682eed9c072bb336daea35cfe6edd2947
--- gpm
+++ gpm
@@ -96,9 +96,9 @@ sub add {
 		print "Repeat:";
 		my $sec2 = <STDIN>;
 		print "\n";
-		die "Sorry\n" if $sec ne $sec2;
 
 		system "stty echo";
+		die "Sorry\n" if $sec ne $sec2;
 	} else { while (<STDIN>) { $sec .= $_; } }
 
 	my $pid = open2(my $reader, my $writer, $cmd);