perl-embperl mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From "Gerald Richter" <rich...@ecos.de>
Subject Re: Embperl::Object::Execute missing %fdat
Date Thu, 11 Mar 2004 22:32:35 GMT
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:     richter@ecos.de          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: embperl-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-help@perl.apache.org


Mime
View raw message