Re: [PATCH] Update gitweb.perl to current CGI.pm API

Jakub Narębski [off-list ref] writes:

On Thu, Oct 16, 2014 at 9:36 PM, Junio C Hamano [off-list ref] wrote:

quoted

Looks sensible to me; Jakub, ack?

Ack.

Nb. this code follows back to original gitweb.cgi by Kay Sievers, very
early in the development (2005)

Thanks.  I realize that Ack sounds as if "Yeah, I acknowledge and
admit I was in the wrong earlier", but I didn't mean "I think this
is your bug---do you think it is a good fix?"  I just meant the
latter half of that sentence.

Here is what I'll queue (note: I've retitled so that an entry in
"git shortlog" would mean something).

Thanks, both.

-- >8 --
From: Roland Mas <redacted>
Subject: [PATCH] gitweb: use start_form, not startform that was removed in CGI.pm 4.04

CGI.pm 4.04 removed the startform method, which had previously been
deprecated in favour of start_form.  Changes file for CGI.pm says:

    4.04 2014-09-04
     [ REMOVED / DEPRECATIONS ]
	- startform and endform methods removed (previously deprecated,
	  you should be using the start_form and end_form methods)

Signed-off-by: Roland Mas <redacted>
Reviewed-by: Jakub Narębski <redacted>
Signed-off-by: Junio C Hamano <redacted>
---
 gitweb/gitweb.perl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/gitweb/gitweb.perl b/gitweb/gitweb.perl
index a9f57d6..ccf7516 100755
--- a/gitweb/gitweb.perl
+++ b/gitweb/gitweb.perl

@@ -4100,7 +4100,7 @@ sub print_search_form {
 	if ($use_pathinfo) {
 		$action .= "/".esc_url($project);
 	}
-	print $cgi->startform(-method => "get", -action => $action) .
+	print $cgi->start_form(-method => "get", -action => $action) .
 	      "<div class=\"search\">\n" .
 	      (!$use_pathinfo &&
 	      $cgi->input({-name=>"p", -value=>$project, -type=>"hidden"}) . "\n") .

@@ -5510,7 +5510,7 @@ sub git_project_search_form {
 	}
 
 	print "<div class=\"projsearch\">\n";
-	print $cgi->startform(-method => 'get', -action => $my_uri) .
+	print $cgi->start_form(-method => 'get', -action => $my_uri) .
 	      $cgi->hidden(-name => 'a', -value => 'project_list')  . "\n";
 	print $cgi->hidden(-name => 'pf', -value => $project_filter). "\n"
 		if (defined $project_filter);

-- 
2.1.2-561-gc401a55