From 893dbd2f65d12a991cae9f35f76eb007d34a018f Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar@redhat.com>
Date: Wed, 7 Aug 2013 08:55:38 +0200
Subject: [PATCH] Adjust to Safe-2.35
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Since Safe-2.35, t/51-client_branch_module.t test fails with:

Error while evaluating `^/([^/]+)/([^/]+)/': 'ref-to-glob cast'
trapped by operation mask at (eval 162) line 1.

This patch fixes it. (Though I'm not sure about the security.)

Signed-off-by: Petr Písař <ppisar@redhat.com>
---
 lib/App/KGB/Client.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/App/KGB/Client.pm b/lib/App/KGB/Client.pm
index eb9cef4..f544b22 100644
--- a/lib/App/KGB/Client.pm
+++ b/lib/App/KGB/Client.pm
@@ -448,7 +448,7 @@ sub detect_branch_and_module {
     my $safe = Safe->new;
     $safe->permit_only(
         qw(padany lineseq match const leaveeval
-            rv2sv pushmark list warn)
+            rv2gv rv2sv pushmark list warn)
     );
 
     my ( $branch, $module, $matched_re );
-- 
1.8.1.4