diff options
author | Oliver Tappe | 2007-07-10 23:02:06 +0200 |
---|---|---|
committer | Oliver Tappe | 2007-07-10 23:02:06 +0200 |
commit | 8a429d3f9145858ef0d0467a1825ab499e6a65df (patch) | |
tree | b7fedd0baf5518d7915fb51fcf516a9b19ce0645 /bin | |
parent | * more work towards perlcritic compliance, fixed the low-hanging fruit (diff) | |
download | core-8a429d3f9145858ef0d0467a1825ab499e6a65df.tar.gz core-8a429d3f9145858ef0d0467a1825ab499e6a65df.tar.xz core-8a429d3f9145858ef0d0467a1825ab499e6a65df.zip |
* fixed crashing bug introduced with last commit
git-svn-id: http://svn.openslx.org/svn/openslx/trunk@1235 95ad53e4-c205-0410-b2fa-d234c58c8868
Diffstat (limited to 'bin')
-rwxr-xr-x | bin/slxsettings | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/bin/slxsettings b/bin/slxsettings index 5aa0dfa3..f1b35019 100755 --- a/bin/slxsettings +++ b/bin/slxsettings @@ -162,8 +162,12 @@ sub changedHandler # invoke a key-specific change handler if it exists: $key =~ tr[-][_]; - no strict 'refs'; ## no critic (ProhibitNoStrict) - "${key}_changed_handler"->(); + # we do the following function call in an eval as that function may simply + # not exist: + eval { + no strict 'refs'; ## no critic (ProhibitNoStrict) + "${key}_changed_handler"->(); + }; return; } |