Author: pghmcfc
Update of /cvs/pkgs/rpms/perl-Mail-Mbox-MessageParser/devel
In directory cvs01.phx2.fedoraproject.org:/tmp/cvs-serv28172
Modified Files:
perl-Mail-Mbox-MessageParser.spec
Added Files:
Mail-Mbox-MessageParser-1.5002-warning.patch
Log Message:
Fix used-only-once warning that breaks grepmail with perl 5.12.0
Mail-Mbox-MessageParser-1.5002-warning.patch:
MessageParser.pm | 5 ++---
1 file changed, 2 insertions(+), 3 deletions(-)
--- NEW FILE Mail-Mbox-MessageParser-1.5002-warning.patch ---
--- Mail-Mbox-MessageParser-1.5002/lib/Mail/Mbox/MessageParser.pm 2009-08-09 21:14:47.000000000 +0100
+++ Mail-Mbox-MessageParser-1.5002/lib/Mail/Mbox/MessageParser.pm 2010-06-01 21:28:41.820260814 +0100
@@ -293,8 +293,7 @@
dprint "Calling \"$filter_command\" to decompress file \"$file_name\".";
- use vars qw(*OLDSTDERR);
- open OLDSTDERR,">&STDERR" or die "Can't save STDERR: $!\n";
+ open my $OLDSTDERR,">&STDERR" or die "Can't save STDERR: $!\n";
open STDERR,">" . File::Spec->devnull()
or die "Can't redirect STDERR to " . File::Spec->devnull() . ": $!\n";
@@ -305,7 +304,7 @@
binmode $file_handle;
- open STDERR,">&OLDSTDERR" or die "Can't restore STDERR: $!\n";
+ open STDERR,">&", $OLDSTDERR or die "Can't restore STDERR: $!\n";
if (eof($file_handle))
{
Index: perl-Mail-Mbox-MessageParser.spec
===================================================================
RCS file: /cvs/pkgs/rpms/perl-Mail-Mbox-MessageParser/devel/perl-Mail-Mbox-MessageParser.spec,v
retrieving revision 1.19
retrieving revision 1.20
diff -u -p -r1.19 -r1.20
--- perl-Mail-Mbox-MessageParser.spec 3 May 2010 02:05:12 -0000 1.19
+++ perl-Mail-Mbox-MessageParser.spec 1 Jun 2010 20:43:20 -0000 1.20
@@ -1,12 +1,13 @@
Summary: A fast and simple mbox folder reader
Name: perl-Mail-Mbox-MessageParser
Version: 1.5002
-Release: 4%{?dist}
+Release: 5%{?dist}
License: GPL+
Group: Development/Libraries
Url: http://search.cpan.org/dist/Mail-Mbox-MessageParser/
Source0: http://search.cpan.org/CPAN/authors/id/D/DC/DCOPPIT/Mail-Mbox-MessageParser-%{version}.tar.gz
Source1: perl-module-version-filter
+Patch0: Mail-Mbox-MessageParser-1.5002-warning.patch
BuildRoot: %{_tmppath}/%{name}-%{version}-%{release}-root-%(%{__id_u} -n)
BuildArch: noarch
Requires: grep, gzip, bzip2, /usr/bin/diff
@@ -23,6 +24,9 @@ information, GNU grep, or highly optimiz
%prep
%setup -q -n Mail-Mbox-MessageParser-%{version}
+# Fix used-only-once warning that breaks grepmail with perl 5.12.0
+%patch0 -p1
+
# Auto provides aren't clever enough for what Mail::Mbox::MessageParser does
%global provfilt /bin/sh -c "%{__perl_provides} | %{__perl} -n -s %{SOURCE1} -lib=%{_builddir}/%{buildsubdir}/lib"
%define __perl_provides %{provfilt}
@@ -61,6 +65,9 @@ information, GNU grep, or highly optimiz
%{_mandir}/man3/Mail::Mbox::MessageParser::Perl.3pm*
%changelog
+* Tue Jun 1 2010 Paul Howarth <paul@xxxxxxxxxxxx> 1.5002-5
+- Fix used-only-once warning that breaks grepmail with perl 5.12.0
+
* Mon May 03 2010 Marcela Maslanova <mmaslano@xxxxxxxxxx> - 1.5002-4
- Mass rebuild with perl-5.12.0
--
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
