diff options
author | Alexander Sulfrian <alex@spline.inf.fu-berlin.de> | 2016-06-17 21:19:45 +0200 |
---|---|---|
committer | Alexander Sulfrian <alex@spline.inf.fu-berlin.de> | 2016-06-17 21:19:45 +0200 |
commit | a2b50c9e2fd33a857c85356ad0647c06605e3dd4 (patch) | |
tree | 3220e8ff20886da27e192773395f3b2a3f4fd2a9 /Spline | |
parent | 9b0f79561def6c8b8697d7997e2bdf550391ac24 (diff) | |
download | srs-a2b50c9e2fd33a857c85356ad0647c06605e3dd4.tar.gz srs-a2b50c9e2fd33a857c85356ad0647c06605e3dd4.tar.bz2 srs-a2b50c9e2fd33a857c85356ad0647c06605e3dd4.zip |
Fix handler call
Diffstat (limited to 'Spline')
-rw-r--r-- | Spline/Socketmap.pm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/Spline/Socketmap.pm b/Spline/Socketmap.pm index 6633525..20c8078 100644 --- a/Spline/Socketmap.pm +++ b/Spline/Socketmap.pm @@ -11,9 +11,11 @@ our @EXPORT_OK = qw( ); our $timeout = 10; our $handler = undef; -sub call_handler(@) { - return unless ref($handler) eq 'CODE'; - return \&$handler(@_); + +sub call_handler($@) { + die 'No handler configured' unless ref($handler) eq 'CODE'; + + return &$handler(@_); } sub handle_request($) { |