X-Git-Url: http://git.iain.cx/?p=profile.git;a=blobdiff_plain;f=opt%2Fbin%2Fktmux_helper;h=e2b58a50cb4ffe9ef7741a49aac9e0afb4153eb4;hp=0e48ad4536becc7586cf42b430376755314ed8eb;hb=08392e37a0280a6943b36d0b857f916cd650a3d5;hpb=fe30b7850bf867b45fb233f351012c97a1b9d068

diff --git a/opt/bin/ktmux_helper b/opt/bin/ktmux_helper
index 0e48ad4..e2b58a5 100755
--- a/opt/bin/ktmux_helper
+++ b/opt/bin/ktmux_helper
@@ -35,6 +35,8 @@ my $klist = $opts{'L'} || "klist";
 my $krenew = $opts{'R'} || "krenew";
 my $tmux = $opts{'T'} || "tmux";
 
+my $avoid_race = 0;
+
 my $exitasap = 0;
 my $pid = 0;
 
@@ -111,9 +113,12 @@ sub check_credentials {
 
 # We were signalled by our child which noticed that our credentials expired.
 sub want_credentials {
+  return sleep 1 if $avoid_race;
+  $avoid_race = 1;
   # Do we already know?
-  return sleep 1 if &check_kinit_child;
-  system $tmux, "new-window", "-n", "Renew Kerberos credentials", "exec $kinit";
+  system $tmux, "new-window", "-n", "Renew Kerberos credentials", "exec $kinit" unless &check_kinit_child;
+  sleep 1;
+  $avoid_race = 0;
 }
 
 sub cleanup {