From d5113273cf2cefd1db9942e4d743f455aa8f669a Mon Sep 17 00:00:00 2001
From: Oliver Tappe
Date: Tue, 10 Jul 2007 20:57:27 +0000
Subject: * 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
---
 bin/slxsettings | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

(limited to 'bin/slxsettings')

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
-- 
cgit v1.2.3-55-g7522