commit bcab13d49b578785dfc500e39f2b3d3756adbfa7
Author: Petr Písař <ppisar@xxxxxxxxxx>
Date: Wed Feb 20 15:47:25 2013 +0100
0.24 bump
.gitignore | 1 +
...Client-0.20-Do-not-use-Term-ReadLine-Perl.patch | 18 -----
...Client-0.24-Do-not-use-Term-ReadLine-Perl.patch | 34 +++++++++
Debug-Client-0.24-Use-IPv4-localhost.patch | 73 ++++++++++++++++++++
perl-Debug-Client.spec | 58 +++++++++++-----
sources | 2 +-
6 files changed, 148 insertions(+), 38 deletions(-)
---
diff --git a/.gitignore b/.gitignore
index cb87778..a3f4eb3 100644
--- a/.gitignore
+++ b/.gitignore
@@ -2,3 +2,4 @@ Debug-Client-0.11.tar.gz
/Debug-Client-0.16.tar.gz
/Debug-Client-0.18.tar.gz
/Debug-Client-0.20.tar.gz
+/Debug-Client-0.24.tar.gz
diff --git a/Debug-Client-0.24-Do-not-use-Term-ReadLine-Perl.patch b/Debug-Client-0.24-Do-not-use-Term-ReadLine-Perl.patch
new file mode 100644
index 0000000..790bb4c
--- /dev/null
+++ b/Debug-Client-0.24-Do-not-use-Term-ReadLine-Perl.patch
@@ -0,0 +1,34 @@
+From 21dc964cf95e019bde5326824c29faf1f318bba5 Mon Sep 17 00:00:00 2001
+From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar@xxxxxxxxxx>
+Date: Wed, 20 Feb 2013 14:16:37 +0100
+Subject: [PATCH] Do not use Term::ReadLine::Perl
+
+Loading this module hangs tests.
+---
+ t/01-compile.t | 3 +--
+ 1 file changed, 1 insertion(+), 2 deletions(-)
+
+diff --git a/t/01-compile.t b/t/01-compile.t
+index 2de2bec..170f9ff 100644
+--- a/t/01-compile.t
++++ b/t/01-compile.t
+@@ -1,7 +1,7 @@
+ #!/usr/bin/perl
+
+ use strict;
+-use Test::More tests => 14;
++use Test::More tests => 13;
+
+ use_ok('Debug::Client');
+ use_ok('t::lib::Debugger');
+@@ -10,7 +10,6 @@ use_ok( 'Carp', '1.20' );
+ use_ok( 'IO::Socket::IP', '0.18' );
+ use_ok( 'PadWalker', '1.96' );
+ use_ok( 'Term::ReadLine', '1.07' );
+-use_ok( 'Term::ReadLine::Perl', '1.0303' );
+
+ use_ok( 'File::HomeDir', '1.00' );
+ use_ok( 'File::Spec', '3.33' );
+--
+1.8.1.2
+
diff --git a/Debug-Client-0.24-Use-IPv4-localhost.patch b/Debug-Client-0.24-Use-IPv4-localhost.patch
new file mode 100644
index 0000000..4663b92
--- /dev/null
+++ b/Debug-Client-0.24-Use-IPv4-localhost.patch
@@ -0,0 +1,73 @@
+From 89ac71b33e9c6efa35590bc6b476208aded4e9bf Mon Sep 17 00:00:00 2001
+From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar@xxxxxxxxxx>
+Date: Wed, 20 Feb 2013 15:22:16 +0100
+Subject: [PATCH] Use IPv4 localhost
+
+Until perl uses IO::Socket::IP, we have to create IPv4 socket by
+default, otherwise perl debugger could not connect to IPv6 localhost.
+
+<https://rt.perl.org/rt3/Ticket/Display.html?id=116433>
+---
+ lib/Debug/Client.pm | 2 +-
+ t/06-initialize.t | 6 +++---
+ t/lib/Debugger.pm | 2 +-
+ 3 files changed, 5 insertions(+), 5 deletions(-)
+
+diff --git a/lib/Debug/Client.pm b/lib/Debug/Client.pm
+index de9daad..6745802 100644
+--- a/lib/Debug/Client.pm
++++ b/lib/Debug/Client.pm
+@@ -36,7 +36,7 @@ sub new {
+ sub _initialize {
+ my ( $self, %args ) = @_;
+
+- $self->{local_host} = $args{host} // 'localhost';
++ $self->{local_host} = $args{host} // '127.0.0.1';
+ $self->{local_port} = $args{port} // 24_642;
+
+ #for IO::Socket::IP
+diff --git a/t/06-initialize.t b/t/06-initialize.t
+index f2a0046..3d104f9 100644
+--- a/t/06-initialize.t
++++ b/t/06-initialize.t
+@@ -20,7 +20,7 @@ use Time::HiRes 'sleep';
+ use File::Temp qw(tempdir);
+ my ( $host, $port, $porto, $listen, $reuse_addr );
+ SCOPE: {
+- $host = 'localhost';
++ $host = '127.0.0.1';
+ $port = 24642;
+ $porto = 'tcp';
+ # $listen = 'SOMAXCONN';
+@@ -46,7 +46,7 @@ SCOPE: {
+ }
+
+ SCOPE: {
+- $host = 'localhost';
++ $host = '127.0.0.1';
+ $port = 24642;
+ my ( $dir, $pid ) = run_perl5db( 't/eg/05-io.pl', $host, $port );
+ require Debug::Client;
+@@ -100,4 +100,4 @@ done_testing();
+
+ __END__
+
+-Info: 06-initialize.t is effectively testing the win32/(linux, osx) bits of t/lib/Debugger.pm
+\ No newline at end of file
++Info: 06-initialize.t is effectively testing the win32/(linux, osx) bits of t/lib/Debugger.pm
+diff --git a/t/lib/Debugger.pm b/t/lib/Debugger.pm
+index de77fd2..92d35f0 100644
+--- a/t/lib/Debugger.pm
++++ b/t/lib/Debugger.pm
+@@ -21,7 +21,7 @@ use Time::HiRes 'sleep';
+ our @ISA = 'Exporter';
+ our @EXPORT = qw(start_script start_debugger slurp rc_file);
+
+-my $host = 'localhost';
++my $host = '127.0.0.1';
+ my $port = 24642 + int rand(1000);
+
+ sub start_script {
+--
+1.8.1.2
+
diff --git a/perl-Debug-Client.spec b/perl-Debug-Client.spec
index a014a73..416f41b 100644
--- a/perl-Debug-Client.spec
+++ b/perl-Debug-Client.spec
@@ -1,28 +1,45 @@
Name: perl-Debug-Client
-Version: 0.20
-Release: 4%{?dist}
+Version: 0.24
+Release: 1%{?dist}
Summary: Client side code for perl debugger
License: GPL+ or Artistic
Group: Development/Libraries
URL: http://search.cpan.org/dist/Debug-Client/
Source0: http://search.cpan.org/CPAN/authors/id/B/BO/BOWTIE/Debug-Client-%{version}.tar.gz
# Tests fail with Term::ReadLine::Perl
-Patch0: Debug-Client-0.20-Do-not-use-Term-ReadLine-Perl.patch
+Patch0: Debug-Client-0.24-Do-not-use-Term-ReadLine-Perl.patch
+# perl debugger does not support IPv6 yet, RT#116433
+Patch1: Debug-Client-0.24-Use-IPv4-localhost.patch
BuildArch: noarch
-BuildRequires: perl(inc::Module::Install::DSL) >= 1.04
-# Run-time
-BuildRequires: perl(Carp) >= 1.23
-BuildRequires: perl(IO::Socket) >= 1.31
-# Tests only
-BuildRequires: perl(File::HomeDir) >= 0.98
-BuildRequires: perl(PadWalker) >= 1.92
-# Tests fail with perl(Term::ReadLine::Perl) = 1.0303. It's not needed.
-BuildRequires: perl(Test::Class) >= 0.36
-BuildRequires: perl(Test::Deep) >= 0.108
-BuildRequires: perl(Test::More) >= 0.47
-Requires: perl(:MODULE_COMPAT_%(eval "`%{__perl} -V:version`"; echo $version))
-Requires: perl(Carp) >= 1.23
-Requires: perl(IO::Socket) >= 1.31
+BuildRequires: perl(inc::Module::Install::DSL) >= 1.0
+# Run-time:
+BuildRequires: perl(Carp) >= 1.20
+BuildRequires: perl(constant)
+BuildRequires: perl(English)
+BuildRequires: perl(IO::Socket::IP) >= 0.18
+BuildRequires: perl(strict)
+BuildRequires: perl(utf8)
+BuildRequires: perl(warnings)
+# Tests:
+BuildRequires: perl(base)
+BuildRequires: perl(Exporter)
+BuildRequires: perl(FindBin)
+BuildRequires: perl(File::HomeDir) >= 1.00
+BuildRequires: perl(File::Spec) >= 3.33
+BuildRequires: perl(File::Temp) >= 0.22
+BuildRequires: perl(lib)
+BuildRequires: perl(PadWalker) >= 1.96
+## Tests fail with perl(Term::ReadLine::Perl) = 1.0303. It's not needed.
+BuildRequires: perl(Test::Class) >= 0.38
+BuildRequires: perl(Test::Deep) >= 0.110
+BuildRequires: perl(Test::More) >= 0.98
+BuildRequires: perl(Time::HiRes) >= 1.9725
+# Optional tests:
+BuildRequires: perl(Test::Pod) >= 1.45
+BuildRequires: perl(Test::Pod::Coverage) >= 1.08
+Requires: perl(:MODULE_COMPAT_%(eval "`perl -V:version`"; echo $version))
+Requires: perl(Carp) >= 1.20
+Requires: perl(IO::Socket::IP) >= 0.18
# Remove under-specified dependencies
%global __requires_exclude %{?__requires_exclude:%__requires_exclude|}^perl\\(Carp|IO::Socket\\)$
@@ -33,18 +50,18 @@ Client side module for debugging. This module is part of padre's debugger.
%prep
%setup -q -n Debug-Client-%{version}
%patch0 -p1
+%patch1 -p1
# Removed bundled EE::MM
rm -r inc
sed -i -e '/^inc\//d' MANIFEST
%build
-%{__perl} Makefile.PL INSTALLDIRS=vendor
+perl Makefile.PL INSTALLDIRS=vendor
make %{?_smp_mflags}
%install
make pure_install DESTDIR=$RPM_BUILD_ROOT
find $RPM_BUILD_ROOT -type f -name .packlist -exec rm -f {} \;
-find $RPM_BUILD_ROOT -depth -type d -exec rmdir {} 2>/dev/null \;
%{_fixperms} $RPM_BUILD_ROOT/*
%check
@@ -56,6 +73,9 @@ make test
%{_mandir}/man3/*
%changelog
+* Wed Feb 20 2013 Petr Pisar <ppisar@xxxxxxxxxx> - 0.24-1
+- 0.24 bump
+
* Thu Feb 14 2013 Fedora Release Engineering <rel-eng@xxxxxxxxxxxxxxxxxxxxxxx> - 0.20-4
- Rebuilt for https://fedoraproject.org/wiki/Fedora_19_Mass_Rebuild
diff --git a/sources b/sources
index 17a94b0..57ae14f 100644
--- a/sources
+++ b/sources
@@ -1 +1 @@
-d5250a44e0753bc975e9afba7a63e8b6 Debug-Client-0.20.tar.gz
+ab2dfd895d5a23487460e3f2c3e4e348 Debug-Client-0.24.tar.gz
--
Fedora Extras Perl SIG
http://www.fedoraproject.org/wiki/Extras/SIGs/Perl
perl-devel mailing list
perl-devel@xxxxxxxxxxxxxxxxxxxxxxx
https://admin.fedoraproject.org/mailman/listinfo/perl-devel
