Группа :: Разработка/Perl
Пакет: perl-JSON-RPC-Common
Главная Изменения Спек Патчи Sources Загрузить Gear Bugs and FR Repocop
Патч: perl-JSON-RPC-Common-0.10-test.patch
Скачать
Скачать
Fix tests to work with Perl 5.18 (RT#87361)
--- t/marshal_http.t
+++ 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};
}
}