Minor fix to return value.

b483113b · Leigh B. Stoller · 7468b061 · b483113b
Commit b483113b authored Aug 06, 2007 by Leigh B. Stoller
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

db/Experiment.pm.in db/Experiment.pm.in +1 -1

No files found.
--- a/db/Experiment.pm.in
+++ b/db/Experiment.pm.in
@@ -963,7 +963,7 @@ sub AccessCheck($$$)
    my ($self, $user, $access_type) = @_;

    # Must be a real reference. 
-    return -1
+    return 0
 	if (! ref($self));

    if ($access_type < TB_EXPT_MIN ||