From fd4731af57a8d2eefd5444cc0cb8ae90f2a77f59 Mon Sep 17 00:00:00 2001
From: Yuriy Nevinitsin <nevinitsin@corp.mail.ru>
Date: Tue, 6 Dec 2011 22:23:18 +0400
Subject: [PATCH] [connector][perl] check if space given
---
connector/perl/lib/MR/Tarantool/Box.pm | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/connector/perl/lib/MR/Tarantool/Box.pm b/connector/perl/lib/MR/Tarantool/Box.pm
index 1c552f2100..a08daa9e53 100644
--- a/connector/perl/lib/MR/Tarantool/Box.pm
+++ b/connector/perl/lib/MR/Tarantool/Box.pm
@@ -244,7 +244,8 @@ sub new {
$self->{iprotoclass} = $arg->{iprotoclass} || $class->IPROTOCLASS;
$self->{_last_error} = 0;
- $arg->{spaces} = $arg->{namespaces} = [@{ $arg->{spaces} ||= $arg->{namespaces} }];
+ $arg->{spaces} = $arg->{namespaces} = [@{ $arg->{spaces} ||= $arg->{namespaces} || confess "no spaces given" }];
+ confess "no spaces given" unless @{$arg->{spaces}};
my %namespaces;
for my $ns (@{$arg->{spaces}}) {
$ns = { %$ns };
--
GitLab