From 3668f428059e5b4dcf43c5b678ffced9b432fe90 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar@redhat.com>
Date: Sat, 3 Aug 2013 09:40:33 +0200
Subject: [PATCH] qw operator does not imply parentheses
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
<
https://rt.cpan.org/Public/Bug/Display.html?id=87361>
Signed-off-by: Petr PÃsaÅ <ppisar@redhat.com>
---
t/marshal_http.t | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/t/marshal_http.t b/t/marshal_http.t
index 671098f..d4bab42 100644
--- a/t/marshal_http.t
+++ b/t/marshal_http.t
@@ -58,7 +58,7 @@ use JSON::RPC::Common::Marshal::HTTP;
if ( $opts->{prefer_get} ) {
# GET can't guarantee version, we need to scrub that
foreach my $hash ( $def_1, $def_2 ) {
- foreach my $key qw(version jsonrpc) {
+ foreach my $key (qw(version jsonrpc)) {
delete $hash->{$key};
}
}
@@ -129,7 +129,7 @@ use JSON::RPC::Common::Marshal::HTTP;
if ( $opts->{prefer_get} ) {
# GET can't guarantee version, we need to scrub that
foreach my $hash ( $def_1, $def_2 ) {
- foreach my $key qw(version jsonrpc) {
+ foreach my $key (qw(version jsonrpc)) {
delete $hash->{$key};
}
}
--
1.8.1.4
