perl-embperl mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From Aare Vesi <a...@myrien.com>
Subject RE: Can't locate object method "init" via package"Embperl::__2
Date Sun, 04 Jan 2004 08:47:37 GMT
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: embperl-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-help@perl.apache.org


Mime
View raw message