Репозиторий Sisyphus
Последнее обновление: 1 октября 2023 | Пакетов: 18631 | Посещений: 37047621
en ru br
Репозитории ALT

Группа :: Разработка/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};
 					}
 				}
 
дизайн и разработка: Vladimir Lettiev aka crux © 2004-2005, Andrew Avramenko aka liks © 2007-2008
текущий майнтейнер: Michael Shigorin