Upgrade to CGI.pm-3.48

[perl5.git] / cpan / CGI / examples / frameset.cgi

diff --git a/cpan/CGI/examples/frameset.cgi b/cpan/CGI/examples/frameset.cgi
index fc86e92..77a748b 100644 (file)
--- a/cpan/CGI/examples/frameset.cgi
+++ b/cpan/CGI/examples/frameset.cgi
@@ -54,7 +54,7 @@ sub print_end {
 sub print_query {
     $script_name = $query->script_name;
     print "<H1>Frameset Query</H1>\n";
-    print $query->startform(-action=>"$script_name/response",-TARGET=>"response");
+    print $query->start_form(-action=>"$script_name/response",-TARGET=>"response");
     print "What's your name? ",$query->textfield('name');
     print "<P>What's the combination?<P>",
     $query->checkbox_group(-name=>'words',