GIT 1.5.2
[gitweb.git] / git-cvsserver.perl
index ac88625fc2733b7de9f73bcdfc6bc466de44ac4a..fcfb99db65599650d5ac6188b40b54d27ecf6f60 100755 (executable)
     unless ($line eq 'anonymous') {
        print "E Only anonymous user allowed via pserver\n";
        print "I HATE YOU\n";
-       exit;
+       exit 1;
     }
     $line = <STDIN>; chomp $line;    # validate the password?
     $line = <STDIN>; chomp $line;