Hi all:

I am testing embperl Object from Embperl 2.09b but i saw something i do not
understand:

my base.eplo have this:
[- Execute ('config.eplo'); -]
[- Execute ('colors.eplo'); -]
[- Execute ({'isa' => 'mainfile.eplo'});         -]
[- Execute ({'isa' => 'subs.eplo'});     -]
[- Execute ('*') -]

i am calling a sub like this in a file called index.eplo:
elsif( $fdat{option} eq "displayform" ){ $req->display_form; }
This subroutine is in file mainfile.eplo

if i set my subroutine like this, nothing works:

[$ sub display_form $]
[- $optRawInput = 1 -]
[-
    $req = shift;
    local $escmode = 0;
    print OUT "testing ";
-]
[$ endsub $]

if i set my subroutine like this everything works ok:
[$ sub display_form $]
just adding some text here
[- $optRawInput = 1 -]
[-
    $req = shift;
    local $escmode = 0;
    print OUT "testing ";
-]
[$ endsub $]

and if i set my subroutine like this it works ok too:
[- $optRawInput = 1 -]
[-
sub display_form2
{
    $req = shift;
    local $escmode = 0;
    print OUT "testing ";
}
-]

Somebody could know why of this behavior?.
Do i have to change all my code for this subroutine to standard Perl code?

My original subroutine was working with embperl objects 1.3.4

Thank you in advance for your great help.

Carlos Kassab



---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Reply via email to