From f349e31816588b0f0434c43f3b22592d7d71e5b4 Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Sat, 18 Jun 2011 22:45:08 +0200
Subject: [PATCH] die on hash response (failure)

---
 ferweb-xmlrpc.pl | 1 +
 1 file changed, 1 insertion(+)

diff --git a/ferweb-xmlrpc.pl b/ferweb-xmlrpc.pl
index 3453564..0fc459e 100755
--- a/ferweb-xmlrpc.pl
+++ b/ferweb-xmlrpc.pl
@@ -17,6 +17,7 @@ my $code = shift @ARGV;
 my $auth = RPC::XML::Client->new('https://www.fer.hr/xmlrpc/xr_auth.php');
 
 my $login_id = $auth->send_request('auth.rlogin', '_koha', $ENV{PASSWD} )->value;
+die dump $login_id if ref $login_id eq 'HASH';
 
 warn "# login_id $login_id\n";
 
-- 
2.20.1