From 75385619a033c6e7e50c69d6078678ac01632748 Mon Sep 17 00:00:00 2001
From: Yuriy Nevinitsin <nevinitsin@corp.mail.ru>
Date: Sun, 11 Mar 2012 21:06:56 +0400
Subject: [PATCH] [connector][perl] fix
---
connector/perl/lib/MR/IProto.pm | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/connector/perl/lib/MR/IProto.pm b/connector/perl/lib/MR/IProto.pm
index 0a0fefa9a8..c48c7e6985 100644
--- a/connector/perl/lib/MR/IProto.pm
+++ b/connector/perl/lib/MR/IProto.pm
@@ -380,7 +380,7 @@ around BUILDARGS => sub {
$srvargs{tcp_nodelay} = delete $args{tcp_nodelay} if exists $args{tcp_nodelay};
$srvargs{tcp_keepalive} = delete $args{tcp_keepalive} if exists $args{tcp_keepalive};
$srvargs{dump_no_ints} = delete $args{dump_no_ints} if exists $args{dump_no_ints};
- $srvargs{prefix} = $args{name};
+ $srvargs{prefix} = $args{name} if exists $args{name} and defined $args{name};
my %clusterargs;
$clusterargs{balance} = delete $args{balance} if exists $args{balance};
$clusterargs{servers} = [
--
GitLab