[perl-PlRPC] Enable tests

[Petr Pisar]

commit 028b8eb0839765b6bf54ec02e212d25d9827c3f5
Author: Petr Písař <ppisar at redhat.com>
Date:   Fri Jan 27 11:31:00 2012 +0100

    Enable tests

 perl-PlRPC-0.2020-Do-not-use-syslog.patch |   52 +++++++++++++++++++++++++++++
 perl-PlRPC.spec                           |    6 +++-
 2 files changed, 57 insertions(+), 1 deletions(-)
---
diff --git a/perl-PlRPC-0.2020-Do-not-use-syslog.patch b/perl-PlRPC-0.2020-Do-not-use-syslog.patch
new file mode 100644
index 0000000..cf11c57
--- /dev/null
+++ b/perl-PlRPC-0.2020-Do-not-use-syslog.patch
@@ -0,0 +1,52 @@
+From acb5f1175c617f0be89f23648a0f3e0a4394230a Mon Sep 17 00:00:00 2001
+From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar at redhat.com>
+Date: Fri, 27 Jan 2012 11:06:08 +0100
+Subject: [PATCH] Do not use syslog
+
+---
+ t/client.t |    2 +-
+ t/lib.pl   |    1 +
+ t/server   |    2 +-
+ 3 files changed, 3 insertions(+), 2 deletions(-)
+
+diff --git a/t/client.t b/t/client.t
+index a283f2d..e19231d 100644
+--- a/t/client.t
++++ b/t/client.t
+@@ -30,7 +30,7 @@ my @opts = ('peeraddr' => '127.0.0.1', 'peerport' => $port, 'debug' => 1,
+ my $client;
+ 
+ # Making a first connection and closing it immediately
+-Test(eval { RPC::PlClient->new(@opts) })
++Test(eval { RPC::PlClient->new(@opts, 'logfile' => 1) })
+     or print "Failed to make first connection: $@\n";
+ 
+ RunTests(@opts);
+diff --git a/t/lib.pl b/t/lib.pl
+index bc61b2c..559b899 100644
+--- a/t/lib.pl
++++ b/t/lib.pl
+@@ -18,6 +18,7 @@ sub RunTests (@) {
+ 	shift;
+ 	$key = shift;
+     }
++    push @_, 'logfile', 1;
+ 
+     # Making a new connection
+     Test($client = eval { RPC::PlClient->new(@_) })
+diff --git a/t/server b/t/server
+index 46dcf97..c44f10a 100644
+--- a/t/server
++++ b/t/server
+@@ -74,7 +74,7 @@ sub Version ($) {
+ 
+ package main;
+ 
+-my $server = CalcServer->new({'pidfile' => 'none'}, \@ARGV);
++my $server = CalcServer->new({'pidfile' => 'none', 'logfile' => 1}, \@ARGV);
+ 
+ $server->Bind();
+ 
+-- 
+1.7.7.6
+
diff --git a/perl-PlRPC.spec b/perl-PlRPC.spec
index 09deafd..5bf82ec 100644
--- a/perl-PlRPC.spec
+++ b/perl-PlRPC.spec
@@ -4,8 +4,10 @@ Release:    9%{?dist}
 License:    GPL+ or Artistic
 Group:      Development/Libraries
 Summary:    Interface for writing PlRPC clients and servers
-Source:     http://search.cpan.org/CPAN/authors/id/M/MN/MNOONING/PlRPC/PlRPC-%{version}.tar.gz 
 Url:        http://search.cpan.org/dist/PlRPC
+Source:     http://search.cpan.org/CPAN/authors/id/M/MN/MNOONING/PlRPC/PlRPC-%{version}.tar.gz 
+# See <https://rt.cpan.org/Public/Bug/Display.html?id=74430>
+Patch0:     %{name}-0.2020-Do-not-use-syslog.patch
 BuildArch:  noarch
 BuildRequires:  perl(ExtUtils::MakeMaker)
 # perldoc utility is called from Makefile
@@ -37,6 +39,7 @@ defining a set of methods that may be executed by the client.
 
 %prep
 %setup -q -n PlRPC
+%patch0 -p1
 
 %build
 %{__perl} Makefile.PL INSTALLDIRS=vendor
@@ -59,6 +62,7 @@ make test
 %changelog
 * Thu Jan 26 2012 Petr Pisar <ppisar at redhat.com> - 0.2020-9
 - Modernize spec file
+- Enable tests
 
 * Fri Jan 13 2012 Fedora Release Engineering <rel-eng at lists.fedoraproject.org> - 0.2020-8
 - Rebuilt for https://fedoraproject.org/wiki/Fedora_17_Mass_Rebuild