From c5b0bd19e9395cc8980ad963949a7177e0b4e44b Mon Sep 17 00:00:00 2001
From: Sam Hartman <hartmans@debian.org>
Date: Tue, 2 Sep 2014 13:44:40 -0400
Subject: [PATCH] Fix client to continue

---
 test/gssweb_client.pl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/test/gssweb_client.pl b/test/gssweb_client.pl
index fc08ae7..e0a7030 100755
--- a/test/gssweb_client.pl
+++ b/test/gssweb_client.pl
@@ -50,7 +50,7 @@ my ($url, $gssname) = @ARGV;
 my $www = WWW::Mechanize->new('autocheck' => 0);
 my $done = 0;
 my $response_token = undef;
-unless ($done) {
+   while (!$done) {
 
     $www->post($url, 'Content' => token_body($gssname, $response_token));
     my $status = $www->status();
@@ -66,5 +66,6 @@ unless ($done) {
     } else {
 	print "Unexpected response status: $status\n";
 	print $www->content();
+	      $done = 1;
     }
 }
-- 
2.1.4