Get 500 Internal server error while trying to start asp test script.

While trying to execute asp script 500 Internal error occured
From apache2 error log:

[Fri Sep 15 10:52:23 2006] [error] [client xxx.xxx.xxx.xxx] Can't locate object
method "get" via package "APR::Table" at /usr/share/perl5/Apache/ASP.pm line 2
016.\n at /usr/share/perl5/Apache/ASP.pm line 2016\n\tApache::ASP::get_dir_con
fig('APR::Table=HASH(0x7ee2c0)', 'Global') called at /usr/share/perl5/Apache/A
SP.pm line 275\n\tApache::ASP::new('Apache::ASP', 'Apache2::RequestRec=SCALAR(
0x7ee290)', '/var/www/host.domain.tld/...'
) called at /usr/share/perl5/Apache/ASP.pm line 183\n\tApache::ASP::handler('A
pache2::RequestRec=SCALAR(0x7ee290)') called at -e line 0\n\teval {...} called
 at -e line 0\n, referer: http://host.domain.tld

Probably this issue described in:
http://<email address hidden>/msg02428.html

Installed packages:
Package: apache2
Version: 2.0.55-4ubuntu2
Package: apache2-common
Version: 2.0.55-4ubuntu2
Package: libapache-asp-perl
Version: 2.59-2
Package: libapache2-mod-perl2
Version: 2.0.2-2ubuntu1

Following patch resolve the problem:
--- /usr/share/perl5/Apache/ASP.pm.orig 2006-09-15 11:24:49.000000000 -0400
+++ /usr/share/perl5/Apache/ASP.pm 2006-09-15 11:25:03.000000000 -0400
@@ -63,7 +63,10 @@
     }

     if($ENV{MOD_PERL}) {
- $ModPerl2 = ($mod_perl::VERSION >= 1.99);
+ my $ver = $mod_perl::VERSION;
+ if ($ver eq "") { $ver = $ENV{MOD_PERL_API_VERSION}; }
+ $ModPerl2 = ($ver >= 1.99);
+# $ModPerl2 = ($mod_perl::VERSION >= 1.99);
        if($ModPerl2) {
            eval "use Apache::ASP::ApacheCommon ();";
            die($@) if $@;