dani/lemonldap-ng
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Use wrap_code_ref only on CODE reference (#270)

Browse Source
This commit is contained in:
Clément Oudot 2011-02-10 09:54:19 +00:00
parent 6adf9a9d4a
commit 0750dcb6ae
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
modules/lemonldap-ng-common/lib/Lemonldap/NG/Common/Safe.pm
View File

@ -11,7 +11,7 @@ use constant SAFEWRAP => ( Safe->can("wrap_code_ref") ? 1 : 0 );
our $VERSION = 1.0.2;
our $self; # Safe cannot share a variable declared with my
our $self; # Safe cannot share a variable declared with my
## @constructor Lemonldap::NG::Common::Safe new(Lemonldap::NG::Portal::Simple portal)
# Build a new Safe object
@ -23,13 +23,13 @@ sub new {
unless ( $portal->{useSafeJail} ) {
# Fake jail
# Fake jail
$portal->lmLog( "Creating a fake Safe jail", 'debug' );
bless $self, $class;
}
else {
# Safe jail
# Safe jail
$self = $class->SUPER::new();
$portal->lmLog( "Creating a real Safe jail", 'debug' );
}
@ -63,14 +63,14 @@ sub reval {
# Test SAFEWRAP and run reval
$result = (
SAFEWRAP
( SAFEWRAP and ref($e) eq 'CODE' )
? $self->SUPER::wrap_code_ref( $self->SUPER::reval($e) )
: $self->SUPER::reval($e)
);
}
else {
# Use a standard eval
# Use a standard eval
$result = eval $e;
}