diff options
Diffstat (limited to 'Spline/Socketmap.pm')
| -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($) { |