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

Группа :: Разработка/Perl
Пакет: perl-HTTP-Message

 Главная   Изменения   Спек   Патчи   Sources   Загрузить   Gear   Bugs and FR  Repocop 

Патч: perl-HTTP-Message-6.02-alt2.patch
Скачать


 .gear/rules            |    2 ++
 .gear/tags/list        |    1 +
 lib/HTTP/Headers.pm    |   12 +++---------
 perl-HTTP-Message.spec |   44 ++++++++++++++++++++++++++++++++++++++++++++
 4 files changed, 50 insertions(+), 9 deletions(-)
diff --git a/.gear/rules b/.gear/rules
new file mode 100644
index 0000000..7191553
--- /dev/null
+++ b/.gear/rules
@@ -0,0 +1,2 @@
+tar: HTTP-Message/@version@:. name=HTTP-Message-@version@
+diff: HTTP-Message/@version@:. .
diff --git a/.gear/tags/list b/.gear/tags/list
new file mode 100644
index 0000000..6a6e93e
--- /dev/null
+++ b/.gear/tags/list
@@ -0,0 +1 @@
+4b6658c103d1733643d33c7d11c5002e16ca7bd6 HTTP-Message/6.02
diff --git a/lib/HTTP/Headers.pm b/lib/HTTP/Headers.pm
index 67f1d2e..87af880 100644
--- a/lib/HTTP/Headers.pm
+++ b/lib/HTTP/Headers.pm
@@ -279,15 +279,9 @@ sub _process_newline {
 
 
 
-if (eval { require Storable; 1 }) {
-    *clone = \&Storable::dclone;
-} else {
-    *clone = sub {
-	my $self = shift;
-	my $clone = HTTP::Headers->new;
-	$self->scan(sub { $clone->push_header(@_);} );
-	$clone;
-    };
+sub clone {
+    require Storable;
+    goto &Storable::dclone;
 }
 
 
diff --git a/perl-HTTP-Message.spec b/perl-HTTP-Message.spec
new file mode 100644
index 0000000..4dfcca3
--- /dev/null
+++ b/perl-HTTP-Message.spec
@@ -0,0 +1,44 @@
+%define dist HTTP-Message
+Name: perl-%dist
+Version: 6.02
+Release: alt2
+
+Summary: HTTP style messages
+License: GPL or Artistic
+Group: Development/Perl
+
+URL: %CPAN %dist
+Source: %dist-%version.tar
+Patch: %name-%version-%release.patch
+
+Conflicts: perl-libwww < 6
+
+BuildArch: noarch
+
+# Automatically added by buildreq on Mon Mar 21 2011
+BuildRequires: perl-Encode-Locale perl-HTML-Parser perl-HTTP-Date perl-IO-Compress perl-LWP-MediaTypes perl-devel
+
+%description
+An C<HTTP::Message> object contains some headers and a content body.
+The following methods are available:
+
+%prep
+%setup -q -n %dist-%version
+%patch -p1
+
+%build
+%perl_vendor_build
+
+%install
+%perl_vendor_install
+
+%files
+%doc Changes README
+%perl_vendor_privlib/HTTP*
+
+%changelog
+* Tue Mar 22 2011 Alexey Tourbin <at@altlinux.ru> 6.02-alt2
+- HTTP/Headers.pm: enabled explicit dependency on Sotrable
+
+* Mon Mar 21 2011 Alexey Tourbin <at@altlinux.ru> 6.02-alt1
+- initial revision
 
дизайн и разработка: Vladimir Lettiev aka crux © 2004-2005, Andrew Avramenko aka liks © 2007-2008
текущий майнтейнер: Michael Shigorin