Hi,
I'm still getting this error at random times.
In Embperl code at /usr/local/lib/perl/5.8.2/Embperl/Object.pm
it shows that it's used in EMBPERL_OBJECT_APP initalization.
How can I debug what is failing?
I added use strict; to EMBPERL_OBJECT_APP (application.pl) and
everything seems fine, but this error still occures.
application.pl
---
use strict;
sub init
{
my $self = shift ;
my $req = shift ;
$req->{apache} = $Embperl::req -> apache_req ;
# Hidden parameters in URI
my $uri = $req -> param -> uri ;
while ($uri =~ s/\.-(.*?)-(.*?)-\././g) { $fdat{$1} = $2 ; }
while ($uri =~ s/\.,(.*?),(.*?),\././g) { $fdat{$1} = $2 ; }
while ($uri =~ s/\._(.*?)_(.*?)_\././g) { $fdat{$1} = $2 ; }
# Remove hidden parameters from URI
$req -> param -> uri ($uri);
# removed any return [01.01.2004]
}
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
