rpms/perl-Mail-Mbox-MessageParser/devel Mail-Mbox-MessageParser-1.5002-warning.patch, NONE, 1.1 perl-Mail-Mbox-MessageParser.spec, 1.19, 1.20

[Paul Howarth]

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 at city-fan.org> 1.5002-5
+- Fix used-only-once warning that breaks grepmail with perl 5.12.0
+
 * Mon May 03 2010 Marcela Maslanova <mmaslano at redhat.com> - 1.5002-4
 - Mass rebuild with perl-5.12.0