Better fix to avoid side effects and Jail warning (#2126 & #1717)

lemonldap-ng-manager/lib/Lemonldap/NG/Manager/Attributes.pm

@@ -19,9 +19,10 @@ sub perlExpr {
     $cpt->reval("BEGIN { 'warnings'->unimport; } $val");
     my $err = join(
         '',
-        grep( { $_ =~ /Undefined subroutine/ ? () : $_; } split( /\n/, $@, 0 ) )
+        grep( { $_ =~ /(?:Undefined subroutine|Devel::StackTrace)/ ? () : $_; }
+            split( /\n/, $@, 0 ) )
     );
-    return $err ? ( 0, "__badExpression__: $err" ) : 1;
+    return $err ? ( -1, "__badExpression__: $err" ) : 1;
 }
 
 sub types {

lemonldap-ng-manager/lib/Lemonldap/NG/Manager/Build/Attributes.pm

@@ -25,8 +25,8 @@ sub perlExpr {
         $Lemonldap::NG::Common::Safelib::functions );
     $cpt->reval("BEGIN { 'warnings'->unimport; } $val");
     my $err = join( '',
-        grep { $_ =~ /Undefined subroutine/ ? () : $_ } split( /\n/, $@ ) );
-    return $err ? ( 0, "__badExpression__: $err" ) : (1);
+        grep { $_ =~ /(?:Undefined subroutine|Devel::StackTrace)/ ? () : $_ } split( /\n/, $@ ) );
+    return $err ? ( -1, "__badExpression__: $err" ) : (1);
 }
 
 my $url = $RE{URI}{HTTP}{ -scheme => "https?" };

lemonldap-ng-manager/lib/Lemonldap/NG/Manager/Conf/Parser.pm

@@ -1207,7 +1207,14 @@ sub _execTest {
     if ( $ref eq 'CODE' ) {
         my ( $r, $m ) = ( $test->( $value, $conf, $attr ) );
         if ($m) {
-            push @{ $self->{ ( $r ? 'warnings' : 'errors' ) } },
+            push @{
+                $self->{ (
+                        $r > 0
+                        ? 'warnings'
+                        : ( $r < 0 ? 'needConfirmation' : 'errors' )
+                    )
+                }
+              },
               { message => "$key: $m" };
         }
         elsif ( !$r ) {