From 200bda7fb548c77ff9311c5d6b6dd76e336479fe Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppi...@redhat.com>
Date: Mon, 22 Jun 2015 16:45:22 +0200
Subject: Import
diff --git a/.gitignore b/.gitignore
index e69de29..0f2fcfd 100644
--- a/.gitignore
+++ b/.gitignore
@@ -0,0 +1 @@
+/Log-Agent-1.000.tar.gz
diff --git a/Log-Agent-1.000-Escape-non-quantifying-curly-brackets.patch
b/Log-Agent-1.000-Escape-non-quantifying-curly-brackets.patch
new file mode 100644
index 0000000..212c495
--- /dev/null
+++ b/Log-Agent-1.000-Escape-non-quantifying-curly-brackets.patch
@@ -0,0 +1,60 @@
+From e679ea177cb2570488a7108d7a16e866eecde0fe Mon Sep 17 00:00:00 2001
+From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppi...@redhat.com>
+Date: Thu, 18 Jun 2015 15:45:13 +0200
+Subject: [PATCH] Escape non-quantifying curly brackets
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+Since perl 5.22.0, literal curly bracket in a regualar expression
+raises a warning. This patch fixes these typos.
+
+CPAN RT#105329
+
+Signed-off-by: Petr Písař <ppi...@redhat.com>
+---
+ Agent/Tag/Caller.pm | 8 ++++----
+ Agent/Tag/Priority.pm | 4 ++--
+ 2 files changed, 6 insertions(+), 6 deletions(-)
+
+diff --git a/Agent/Tag/Caller.pm b/Agent/Tag/Caller.pm
+index 89e1ea9..1bf7aff 100644
+--- a/Agent/Tag/Caller.pm
++++ b/Agent/Tag/Caller.pm
+@@ -178,13 +178,13 @@ sub string {
+ my $display = $self->display;
+ if ($display) {
+ $display =~ s/\$pack(?:age)?\b/$package/g;
+- $display =~ s/\${pack(?:age)?}/$package/g;
++ $display =~ s/\$\{pack(?:age)?\}/$package/g;
+ $display =~ s/\$file(?:name)?\b/$filename/g;
+- $display =~ s/\${file(?:name)?}/$filename/g;
++ $display =~ s/\$\{file(?:name)?\}/$filename/g;
+ $display =~ s/\$line\b/$line/g;
+- $display =~ s/\${line}/$line/g;
++ $display =~ s/\$\{line\}/$line/g;
+ $display =~ s/\$sub(?:routine)?\b/$subroutine/g;
+- $display =~ s/\${sub(?:routine)?}/$subroutine/g;
++ $display =~ s/\$\{sub(?:routine)?\}/$subroutine/g;
+ } else {
+ my @show = map { $caller[$_] } @{$self->indices};
+ my $format = $self->format || ($self->postfix ? "[%a]" : "(%a)");
+diff --git a/Agent/Tag/Priority.pm b/Agent/Tag/Priority.pm
+index 2013ad5..8fb6ea6 100644
+--- a/Agent/Tag/Priority.pm
++++ b/Agent/Tag/Priority.pm
+@@ -81,9 +81,9 @@ sub make {
+ #
+
+ $display =~ s/\$priority\b/$priority/g;
+- $display =~ s/\${priority}/$priority/g;
++ $display =~ s/\$\{priority\}/$priority/g;
+ $display =~ s/\$level\b/$level/g;
+- $display =~ s/\${level}/$level/g;
++ $display =~ s/\$\{level\}/$level/g;
+
+ #
+ # Now create the constant tag string.
+--
+2.1.0
+
diff --git a/perl-Log-Agent.spec b/perl-Log-Agent.spec
new file mode 100644
index 0000000..760e48e
--- /dev/null
+++ b/perl-Log-Agent.spec
@@ -0,0 +1,129 @@
+# Disable support for Carp-Datum because it is Artistic 1 only, CPAN RT#105332
+%bcond_with datum
+
+Name: perl-Log-Agent
+Version: 1.000
+Release: 1%{?dist}
+Summary: Logging agent
+License: Artistic 2.0
+Group: Development/Libraries
+URL: http://search.cpan.org/dist/Log-Agent/
+Source0:
http://www.cpan.org/authors/id/M/MR/MROGASKI/Log-Agent-%{version}.tar.gz
+# Fix typos in regular expressions, CPAN RT#105329
+Patch0: Log-Agent-1.000-Escape-non-quantifying-curly-brackets.patch
+BuildArch: noarch
+BuildRequires: findutils
+BuildRequires: make
+BuildRequires: perl
+BuildRequires: perl(ExtUtils::MakeMaker)
+# Run-time:
+BuildRequires: perl(AutoLoader)
+BuildRequires: perl(Carp)
+# Carp::Datum not needed at tests
+BuildRequires: perl(Exporter)
+BuildRequires: perl(Fcntl)
+# Mail::Mailer not needed at tests
+BuildRequires: perl(overload)
+BuildRequires: perl(strict)
+BuildRequires: perl(Symbol)
+# Sys::Syslog not needed at tests
+BuildRequires: perl(Tie::Array)
+BuildRequires: perl(vars)
+BuildRequires: perl(warnings)
+# Tests:
+BuildRequires: perl(Test)
+BuildRequires: perl(Test::More)
+# Optional tests:
+BuildRequires: perl(Callback)
+Requires: perl(:MODULE_COMPAT_%(eval "`perl -V:version`"; echo $version))
+Requires: perl(warnings)
+
+%description
+The Log::Agent Perl module provides an abstract layer for logging and tracing,
+which is independent from the actual method used to physically perform those
+activities. It acts as an agent (hence the name) that collects the requests
+and delegates processing to a logging driver.
+
+%if %{with datum}
+%package Carp-Datum
+Summary: Carp::Datum driver for Log::Agent Perl logging framework
+Requires: %{name} = %{?epoch:%{epoch}:}%{version}-%{release}
+Requires: perl(:MODULE_COMPAT_%(eval "`perl -V:version`"; echo $version))
+Requires: perl(Carp)
+Requires: perl(Carp::Datum)
+
+%description Carp-Datum
+The purpose of this logging driver is to cooperate with Carp::Datum by emitting
+traces to the debug channel via Carp::Datum's traces facilities.
+%endif
+
+%package mail
+Summary: E-mail driver for Log::Agent Perl logging framework
+Requires: %{name} = %{?epoch:%{epoch}:}%{version}-%{release}
+Requires: perl(:MODULE_COMPAT_%(eval "`perl -V:version`"; echo $version))
+
+%description mail
+This logging driver maps the log calls to email messages. Each call generates
+a separate email message.
+
+%package syslog
+Summary: Syslog driver for Log::Agent Perl logging framework
+Requires: %{name} = %{?epoch:%{epoch}:}%{version}-%{release}
+Requires: perl(:MODULE_COMPAT_%(eval "`perl -V:version`"; echo $version))
+Requires: perl(Carp)
+
+%description syslog
+This logging driver delegates log operations to syslog() via the
+Sys::Syslog interface.
+
+%prep
+%setup -q -n Log-Agent-%{version}
+%patch0 -p1
+
+%build
+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 {} \;
+%{_fixperms} $RPM_BUILD_ROOT/*
+
+%check
+make test
+
+%files
+%doc README
+%{perl_vendorlib}/*
+%{_mandir}/man3/*
+# Carp-Datum
+%exclude %{perl_vendorlib}/Log/Agent/Driver/Datum.pm
+%exclude %{_mandir}/man3/Log::Agent::Driver::Datum.*
+# mail
+%exclude %{perl_vendorlib}/Log/Agent/Driver/Mail.pm
+%exclude %{_mandir}/man3/Log::Agent::Driver::Mail.*
+# syslog
+%exclude %{perl_vendorlib}/Log/Agent/Channel/Syslog.pm
+%exclude %{perl_vendorlib}/Log/Agent/Driver/Syslog.pm
+%exclude %{_mandir}/man3/Log::Agent::Channel::Syslog.*
+%exclude %{_mandir}/man3/Log::Agent::Driver::Syslog.*
+
+%if %{with datum}
+%files Carp-Datum
+%{perl_vendorlib}/Log/Agent/Driver/Datum.pm
+%{_mandir}/man3/Log::Agent::Driver::Datum.*
+%endif
+
+%files mail
+%{perl_vendorlib}/Log/Agent/Driver/Mail.pm
+%{_mandir}/man3/Log::Agent::Driver::Mail.*
+
+%files syslog
+%{perl_vendorlib}/Log/Agent/Channel/Syslog.pm
+%{perl_vendorlib}/Log/Agent/Driver/Syslog.pm
+%{_mandir}/man3/Log::Agent::Channel::Syslog.*
+%{_mandir}/man3/Log::Agent::Driver::Syslog.*
+
+%changelog
+* Thu Jun 18 2015 Petr Pisar <ppi...@redhat.com> 1.000-1
+- Specfile autogenerated by cpanspec 1.78.
diff --git a/sources b/sources
index e69de29..5204ee1 100644
--- a/sources
+++ b/sources
@@ -0,0 +1 @@
+b8c8c335cdeca0a7c8bb92e22028403e Log-Agent-1.000.tar.gz
--
cgit v0.10.2
http://pkgs.fedoraproject.org/cgit/perl-Log-Agent.git/commit/?h=master&id=200bda7fb548c77ff9311c5d6b6dd76e336479fe
--
Fedora Extras Perl SIG
http://www.fedoraproject.org/wiki/Extras/SIGs/Perl
perl-devel mailing list
perl-devel@lists.fedoraproject.org
https://admin.fedoraproject.org/mailman/listinfo/perl-devel
