Hi,
>> Any thoughts on a workaround or another way to debug this?
>>
>
> It's a problem with Embperl::Object, which ignores the fdat parameter
> (with Embperl::Execute it works, but not with
> Embperl::Object::Execute).
>
The following patch solves the problem. It's also available from the CVS.
Gerald
--- Object.pm 23 Jan 2004 06:50:56 -0000 1.4
+++ Object.pm 11 Mar 2004 22:31:12 -0000 1.5
@@ -137,6 +137,23 @@
return $rc ;
}
+
+ if (exists $req -> {fdat} && ref ($req -> {fdat}) eq 'HASH')
+ {
+ %Embperl::fdat = %{$req -> {fdat}} ;
+ if (ref $req -> {ffld} eq 'ARRAY')
+ {
+ @Embperl::ffld = @%{$req -> {ffld}};
+ }
+ else
+ {
+ @Embperl::ffld = keys %Embperl::fdat ;
+ }
+ delete $req -> {fdat};
+ delete $req -> {ffld} ;
+ }
+
+
my $app = $r -> app ;
my $appcfg = $app -> config;
---------------------------------------------------------------------------
Gerald Richter ecos electronic communication services gmbh
IT-Securitylösungen * Webapplikationen mit Apache/Perl/mod_perl/Embperl
Post: Tulpenstrasse 5 D-55276 Dienheim b. Mainz
E-Mail: [EMAIL PROTECTED] Voice: +49 6133 939-122
WWW: http://www.ecos.de/ Fax: +49 6133 939-333
---------------------------------------------------------------------------
Besuchen Sie uns auf der CeBIT (18. - 24. März 2004)
Halle 6 Stand B38-452
ECOS BB-5000 Firewall- und IT-Security Appliance: www.bb-5000.info
---------------------------------------------------------------------------
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
