return, not exit, on several places

This commit is contained in:
Daniel Stenberg 2005-05-16 07:07:00 +00:00
parent 4eaa3329ec
commit 1a31bff9fe
1 changed files with 5 additions and 5 deletions

View File

@ -525,7 +525,7 @@ sub runhttpserver {
# it is NOT alive
print "RUN: failed to start the HTTP server!\n";
stopservers($verbose);
exit;
return (0,0);
}
# Server is up. Verify that we can speak to it.
@ -579,7 +579,7 @@ sub runhttpsserver {
# it is NOT alive
print "RUN: failed to start the HTTPS server!\n";
stopservers($verbose);
exit;
return(0,0);
}
# Server is up. Verify that we can speak to it.
@ -1183,7 +1183,7 @@ sub singletest {
if(!$filename) {
print "ERROR: section client=>file has no name attribute!\n";
exit;
return -1;
}
my $fileContent = join('', @inputfile);
subVariables \$fileContent;
@ -1259,7 +1259,7 @@ sub singletest {
print "perl: $code\n";
print "precommand: $@";
stopservers($verbose);
exit;
return -1;
}
}
@ -1432,7 +1432,7 @@ sub singletest {
if(!$filename) {
print "ERROR: section verify=>file has no name attribute!\n";
stopservers($verbose);
exit;
return -1;
}
my $filemode=$hash{'mode'};