[libcgi-test-perl] 01/03: Updated test scripts to be compatible with the latest CGI.pm

[Axel Beckert]

This is an automated email from the git hooks/post-receive script.

abe pushed a commit to annotated tag 0.51
in repository libcgi-test-perl.

commit a2115c13e879a4a89e666a1f3eb96c439062eabb
Author: Alex Tokarev <nohuhu at nohuhu.org>
Date:   Sat Sep 6 23:15:14 2014 -0700

    Updated test scripts to be compatible with the latest CGI.pm
---
 t/cgi/getform     | 4 ++--
 t/cgi/getform.bat | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/t/cgi/getform b/t/cgi/getform
index 3d34444..ca2eb53 100755
--- a/t/cgi/getform
+++ b/t/cgi/getform
@@ -15,7 +15,7 @@ print header;
 my $method = param("method") || request_method();
 my $action = param("action") || url();
 print start_html("$method form"), h1("$method form");
-print startform(
+print start_form(
 	-method		=> $method eq "POST" ? "POST" : "GET",
 	-enctype	=> param("enctype") eq "M" ?
 			"multipart/form-data" : "application/x-www-form-urlencoded",
@@ -90,7 +90,7 @@ print p(
 	),
 );
 
-print endform;
+print end_form;
 print end_html;
 
 END_OF_SCRIPT
diff --git a/t/cgi/getform.bat b/t/cgi/getform.bat
index 0d08f0f..58056e7 100644
--- a/t/cgi/getform.bat
+++ b/t/cgi/getform.bat
@@ -21,7 +21,7 @@ print header;
 my $method = param("method") || request_method();
 my $action = param("action") || url();
 print start_html("$method form"), h1("$method form");
-print startform(
+print start_form(
 	-method		=> $method eq "POST" ? "POST" : "GET",
 	-enctype	=> param("enctype") eq "M" ?
 			"multipart/form-data" : "application/x-www-form-urlencoded",
@@ -96,7 +96,7 @@ print p(
 	),
 );
 
-print endform;
+print end_form;
 print end_html;
 
 

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libcgi-test-perl.git