* more work towards perlcritic compliance, fixed the low-hanging fruit

  for level 4

git-svn-id: http://svn.openslx.org/svn/openslx/trunk@1234 95ad53e4-c205-0410-b2fa-d234c58c8868

1 files changed, 7 insertions, 1 deletions

diff --git a/bin/slxsettings b/bin/slxsettings
index 278cb2c2..5aa0dfa3 100755
--- a/bin/slxsettings
+++ b/bin/slxsettings
@@ -161,7 +161,11 @@ sub changedHandler
 
 	# invoke a key-specific change handler if it exists:
 	$key =~ tr[-][_];
-	eval { no strict 'refs'; "${key}_changed_handler"->(); };
+
+	no strict 'refs';		## no critic (ProhibitNoStrict)
+	"${key}_changed_handler"->();
+	
+	return;
 }
 
 sub private_path_changed_handler
@@ -169,6 +173,8 @@ sub private_path_changed_handler
 	# create the default config folders (for default system only):
 	require OpenSLX::ConfigFolder;
 	OpenSLX::ConfigFolder::createConfigFolderForDefaultSystem();
+
+	return;
 }
 
 =head1 NAME