From a2b50c9e2fd33a857c85356ad0647c06605e3dd4 Mon Sep 17 00:00:00 2001
From: Alexander Sulfrian <alex@spline.inf.fu-berlin.de>
Date: Fri, 17 Jun 2016 21:19:45 +0200
Subject: Fix handler call

---
 Spline/Socketmap.pm | 8 +++++---
 srs                 | 3 ++-
 2 files changed, 7 insertions(+), 4 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($) {
diff --git a/srs b/srs
index d3b6d66..0c7a203 100755
--- a/srs
+++ b/srs
@@ -9,6 +9,7 @@ use Spline::Srs;
  
 $Spline::Socketmap::timeout = 10;
 $Spline::Socketmap::handler = sub {
-    Spline::Srs->handle(@_);
+    my ($map, $key) = @_;
+    Spline::Srs::handle($map, $key);
 };
 Spline::Socketmap->run();
-- 
cgit v1.2.3-1-g7c22