Can't undef active subroutine

[Arnon Weinberg]

I'm getting the following in my error_log:
[asp] [12696] [error] Can't undef active subroutine at 
/usr/lib/perl5/site_perl/5.8.0/Apache/ASP.pm line 1320. <--> , 
/usr/lib/perl5/site_perl/5.8.0/Apache/ASP.pm line 1518

The following code is sufficient to replicate the problem.  Basically, a 
recursive script that declares a subroutine.  I saw in the style guide that 
in-script subroutine declaration is bad because of closures, but I'm 
getting a run-time error here, and there are no variables being declared - 
in fact the subroutine is not even being called.

<%
  sub foo {}
  if ( ! $_[0] )
  {
    print "1st entry<br>\n";
    $Response->Include ( $ENV{SCRIPT_FILENAME}, 1 );
  }
  else
  {
    print "Re-entry<br>\n";
  }
%>
This error happens with Apache::ASP version 2.57-8, but not with 2.35-1 (I 
didn't try other versions) - ie, downgrading fixes the problem for 
me.  However, I would like to be able to upgrade at some point using this code.

Further details:
mod_perl-1.99_12-2
httpd-2.0.50-1.0
Any thoughts?
----------------------------------------------------------------------------
Arnon Weinberg <[EMAIL PROTECTED]>
Rapid Applications Development (RAD) Programmer
Systems group, MCI Canada
416-216-5311     pager: 416-791-7594     vnet: 842-5311
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]