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 <noh...@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 _______________________________________________ Pkg-perl-cvs-commits mailing list Pkg-perl-cvs-commits@lists.alioth.debian.org http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits