Commit 3be88cd1 authored by Leigh B Stoller's avatar Leigh B Stoller

Fix IsError test, was reversed.

parent 89452740
...@@ -46,6 +46,7 @@ use GeniCredential; ...@@ -46,6 +46,7 @@ use GeniCredential;
use GeniRegistry; use GeniRegistry;
use emutil; use emutil;
use URI; use URI;
use Data::Dumper;
# Filter out any credentials of an uknown type leaving only geni_sfa # Filter out any credentials of an uknown type leaving only geni_sfa
# version 2 and version 3 credentials in a list. Also invokes # version 2 and version 3 credentials in a list. Also invokes
...@@ -242,7 +243,7 @@ sub CheckCredentials($) ...@@ -242,7 +243,7 @@ sub CheckCredentials($)
# #
$speakee = shift(@credentials); $speakee = shift(@credentials);
$speakee = GeniCredential::CheckCredential($speakee); $speakee = GeniCredential::CheckCredential($speakee);
if (!GeniResponse::IsError($speakee)) { if (GeniResponse::IsError($speakee)) {
$error = $speakee; $error = $speakee;
goto bad; goto bad;
} }
...@@ -253,7 +254,7 @@ sub CheckCredentials($) ...@@ -253,7 +254,7 @@ sub CheckCredentials($)
# #
foreach my $credential (@rest) { foreach my $credential (@rest) {
$credential = GeniCredential::CheckCredential($credential); $credential = GeniCredential::CheckCredential($credential);
if (!GeniResponse::IsError($credential)) { if (GeniResponse::IsError($credential)) {
$error = $credential; $error = $credential;
goto bad; goto bad;
} }
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment