fix searching of %INC

OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/perl-MailTools?expand=0&rev=23

incsearch.diff

@@ -0,0 +1,17 @@
+%INC is randomized nowadays, so sort it to get consistent results.
+Also, more important, make sure $INC{$f} is really set, otherwise
+we end up searching the filesystem root.
+
+--- ./lib/Mail/Field.pm.orig	2013-07-15 12:06:12.000000000 +0000
++++ ./lib/Mail/Field.pm	2013-07-15 12:07:24.000000000 +0000
+@@ -63,8 +63,9 @@ sub import
+     }
+ 
+     my($dir,$dir_sep);
+-    foreach my $f (keys %INC)
++    foreach my $f (sort keys %INC)
+     {   next if $f !~ /^Mail(\W)Field\W/i;
++        next unless $INC{$f};
+         $dir_sep = $1;
+         $dir = ($INC{$f} =~ /(.*Mail\W+Field)/i)[0] . $dir_sep;
+         last;

perl-MailTools.changes

@@ -1,3 +1,9 @@
+-------------------------------------------------------------------
+Mon Jul 15 14:09:27 CEST 2013 - mls@suse.de
+
+- fix searching of %INC, make sure the entry really has a set
+  value. Fixes the perl-MIME-tools module.
+
 -------------------------------------------------------------------
 Thu Mar 01 19:46:02 UTC 2012 - pascal.bleser@opensuse.org
 

perl-MailTools.spec

@@ -1,7 +1,7 @@
 #
 # spec file for package perl-MailTools
 #
-# Copyright (c) 2012 SUSE LINUX Products GmbH, Nuernberg, Germany.
+# Copyright (c) 2013 SUSE LINUX Products GmbH, Nuernberg, Germany.
 #
 # All modifications and additions to the file contributed by third parties
 # remain the property of their copyright owners, unless otherwise agreed
@@ -15,19 +15,18 @@
 # Please submit bugfixes or comments via http://bugs.opensuse.org/
 #
 
-# norootforbuild
-
 
 Name:           perl-MailTools
 Url:            http://cpan.org/modules/by-module/Mail/
 Version:        2.09
-Release:        1
+Release:        0
 Provides:       p_mtools = %{version}
 Obsoletes:      p_mtools < %{version}
+Summary:        Set of perl modules related to mail applications
 License:        GPL-1.0+ or Artistic-1.0
 Group:          Development/Libraries/Perl
-Summary:        Set of perl modules related to mail applications
 Source:         http://search.cpan.org/CPAN/authors/id/M/MA/MARKOV/MailTools-%{version}.tar.gz
+Patch:          incsearch.diff
 BuildRoot:      %{_tmppath}/%{name}-%{version}-build
 %{perl_requires}
 BuildRequires:  perl
@@ -39,6 +38,7 @@ a set of perl modules related to mail applications
 
 %prep
 %setup -q -n MailTools-%{version}
+%patch
 # ---------------------------------------------------------------------------
 
 %build