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 <ruben@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
>
>