| Subject: | Pre-compiling 'end_form' with ':form' switch fails |
Show quoted text
shell> perl -MCGI -e 'CGI->compile(":form")'
Undefined subroutine CGI::end_form
at -e line 1
Perl tries to compile (nonexistent) 'end_form' routine
but it fails of the code below.
*end_form = \&endform;
--- CGI.pm.orig 2008-12-08 18:40:29.000000000 +0900
+++ CGI.pm 2008-12-08 18:40:48.000000000 +0900
@@ -834,6 +834,7 @@
sub _compile {
my($func) = $AUTOLOAD;
+ $func = 'CGI::endform' if $func eq 'CGI::end_form'; # or something
my($pack,$func_name);
{
local($1,$2); # this fixes an obscure variable suicide problem.