Commit 32f01bb5 authored by Ken Coar's avatar Ken Coar
Browse files

Fixed a Perl misteak (used "leave" instead of "last" - too 

	much BLISS lately.. ;-).


git-svn-id: https://svn.apache.org/repos/asf/httpd/httpd/trunk@78216 13f79535-47bb-0310-9956-ffa450edef68
parent 3fb7fe87

docs/manual/search/manual-index.cgi

+60 −58
Original line number Diff line number Diff line
@@ -157,13 +157,14 @@ EOHT 
# closure code.

#

QUERY:

    {

	if ($word) {

	    #

	    # Try and open the index file; complain bitterly if we can't.

	    #

	    if (! open (INDEX, "<$INDEX")) {

		printf ("Can't find documentation index!");

	    leave QUERY;

		last QUERY;

	    }

	    #

	    # Got it; display the search-results header.
@@ -187,7 +188,7 @@ QUERY: 
	    $word = lc ($word);

	    if (! exists ($Index{$word})) {

		printf ("  <P>\n  <EM>Sorry, no matches found.</EM>\n  </P>\n");

	    leave QUERY;

		last QUERY;

	    }

	    #

	    # Found an entry, so turn the hash value (a comma-separated list
@@ -217,6 +218,7 @@ QUERY: 
	    # C'est tout!

	    #

	}

    }



#

# Back to common code - the exit path.  Display the page trailer.