Re: Fwd: undefined value in Emperl/Util.pm

[Benni Bärmann]

The line:

$sess = $Embperl::req -> app -> udat ;

The whole function:


sub CreateAliases

    {
    my $package = caller ;

    my $dummy ;

    no strict ;

    if (!defined(${"$package\:\:row"}))
        { # create new aliases for Embperl magic vars

        foreach (@AliasScalar)
            {
            *{"$package\:\:$_"}    = \${"Embperl\:\:$_"} ;
            $dummy = ${"$package\:\:$_"} ; # necessary to make sure
variable exists!
            }
        *{"$package\:\:epreq"} = \$Embperl::req ;
        *{"$package\:\:epapp"} = \$Embperl::app ;

        foreach (@AliasHash)
            {
            *{"$package\:\:$_"}    = \%{"Embperl\:\:$_"} ;
            }
        foreach (@AliasArray)
            {
            *{"$package\:\:$_"}    = \@{"Embperl\:\:$_"} ;
            }


        my $sess ;
        $sess = $Embperl::req -> app -> udat ;
        *{"$package\:\:udat"} = $sess if ($sess) ;
        $sess = $Embperl::req -> app -> mdat ;
        *{"$package\:\:mdat"} = $sess if ($sess) ;
        $sess = $Embperl::req -> app -> sdat ;
        *{"$package\:\:sdat"} = $sess if ($sess) ;

        *{"$package\:\:exit"}       = \&Embperl::exit ;
        *{"$package\:\:MailFormTo"} = \&Embperl::Util::MailFormTo ;
        *{"$package\:\:Execute"}    = \&Embperl::Req::ExecuteComponent ;

        tie *{"$package\:\:LOG"}, 'Embperl::Log' ;
        tie *{"$package\:\:OUT"}, 'Embperl::Out' ;

        my $addcleanup = \%{"$package\:\:CLEANUP"} ;
        $addcleanup -> {'CLEANUP'} = 0 ;
        $addcleanup -> {'EXPIRES'} = 0 ;
        $addcleanup -> {'CACHE_KEY'} = 0 ;
        $addcleanup -> {'OUT'} = 0 ;
        $addcleanup -> {'LOG'} = 0 ;
        }



    use strict ;
    }


Thanks, Benni


2017-05-17 8:15 GMT+02:00 Ruben Safir <ru...@mrbrklyn.com>:

> On Wed, May 17, 2017 at 07:55:31AM +0200, Benni Bärmann wrote:
> > Hello everybody,
> >
> > i try to give some new life to an old emperl aplication, but there is
> this
> > error (shown in the browser):
> >
> > Error in Perl code: Can't call method "app" on an undefined value at
> > /usr/lib/x86_64-linux-gnu/perl5/5.22/Embperl/Util.pm line 108.
> >
>
>
> what is the line?
>
> > My environment ist the standard packages for Apache2, mod_perl and
> Embperl
> > for Ubuntu 16.04
> >
> > Versions:
> >
> > Apache2: 2.4.18-2ubuntu3.2
> > Perl v5.22.1
> > mod_perl 2.0.9-4ubuntu1
> > Embperl 2.5.0
> >
> > any hints about this?
> >
> > Thanks, Benni
>
> --
> So many immigrant groups have swept through our town
> that Brooklyn, like Atlantis, reaches mythological
> proportions in the mind of the world - RI Safir 1998
> http://www.mrbrklyn.com
>
> DRM is THEFT - We are the STAKEHOLDERS - RI Safir 2002
> http://www.nylxs.com - Leadership Development in Free Software
> http://www2.mrbrklyn.com/resources - Unpublished Archive
> http://www.coinhangout.com - coins!
> http://www.brooklyn-living.com
>
> Being so tracked is for FARM ANIMALS and and extermination camps,
> but incompatible with living as a free human being. -RI Safir 2013
>
>