Hello community, here is the log from the commit of package perl-File-HomeDir for openSUSE:Factory checked in at 2011-12-21 10:01:55 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-File-HomeDir (Old) and /work/SRC/openSUSE:Factory/.perl-File-HomeDir.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-File-HomeDir", Maintainer is "p...@suse.com" Changes: -------- --- /work/SRC/openSUSE:Factory/perl-File-HomeDir/perl-File-HomeDir.changes 2011-09-23 12:37:04.000000000 +0200 +++ /work/SRC/openSUSE:Factory/.perl-File-HomeDir.new/perl-File-HomeDir.changes 2011-12-21 10:01:56.000000000 +0100 @@ -1,0 +2,8 @@ +Mon Dec 19 15:36:31 UTC 2011 - co...@suse.de + +- update to 0.98 + - Updating to Module::Install 1.01 + - If Win32::GetFolderPath returns a \\UNC type path do not do the + normal -d sanity check, as strange and unusual bugs may occur. + +------------------------------------------------------------------- Old: ---- File-HomeDir-0.97.tar.gz New: ---- File-HomeDir-0.98.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-File-HomeDir.spec ++++++ --- /var/tmp/diff_new_pack.WjuiAd/_old 2011-12-21 10:01:57.000000000 +0100 +++ /var/tmp/diff_new_pack.WjuiAd/_new 2011-12-21 10:01:57.000000000 +0100 @@ -16,17 +16,15 @@ # - Name: perl-File-HomeDir -Version: 0.97 -Release: 1 -License: GPL+ or Artistic +Version: 0.98 +Release: 0 %define cpan_name File-HomeDir Summary: Find your home and other directories on any platform -Url: http://search.cpan.org/dist/File-HomeDir/ +License: GPL-1.0+ or Artistic-1.0 Group: Development/Libraries/Perl -#Source: http://www.cpan.org/authors/id/A/AD/ADAMK/File-HomeDir-%{version}.tar.gz -Source: %{cpan_name}-%{version}.tar.gz +Url: http://search.cpan.org/dist/File-HomeDir/ +Source: http://www.cpan.org/authors/id/A/AD/ADAMK/File-HomeDir-%{version}.tar.gz BuildArch: noarch BuildRoot: %{_tmppath}/%{name}-%{version}-build BuildRequires: perl ++++++ File-HomeDir-0.97.tar.gz -> File-HomeDir-0.98.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-HomeDir-0.97/Changes new/File-HomeDir-0.98/Changes --- old/File-HomeDir-0.97/Changes 2011-02-20 13:59:47.000000000 +0100 +++ new/File-HomeDir-0.98/Changes 2011-07-07 09:00:42.000000000 +0200 @@ -1,5 +1,10 @@ Changes for Perl extension File-HomeDir +0.98 Thu 7 Jul 2011 + - Updating to Module::Install 1.01 + - If Win32::GetFolderPath returns a \\UNC type path do not do the + normal -d sanity check, as strange and unusual bugs may occur. + 0.97 Sun 20 Feb 2011 - Looks good, moving to production release - This should finally pass on ActivePerl Mac diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-HomeDir-0.97/META.yml new/File-HomeDir-0.98/META.yml --- old/File-HomeDir-0.97/META.yml 2011-02-20 14:00:19.000000000 +0100 +++ new/File-HomeDir-0.98/META.yml 2011-07-07 09:01:09.000000000 +0200 @@ -8,7 +8,7 @@ configure_requires: ExtUtils::MakeMaker: 6.42 distribution_type: module -generated_by: 'Module::Install version 1.00' +generated_by: 'Module::Install version 1.01' license: perl meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html @@ -32,4 +32,4 @@ ChangeLog: http://fisheye2.atlassian.com/changelog/cpan/trunk/File-HomeDir license: http://dev.perl.org/licenses/ repository: http://svn.ali.as/cpan/trunk/File-HomeDir -version: 0.97 +version: 0.98 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-HomeDir-0.97/Makefile.PL new/File-HomeDir-0.98/Makefile.PL --- old/File-HomeDir-0.97/Makefile.PL 2011-02-20 13:59:47.000000000 +0100 +++ new/File-HomeDir-0.98/Makefile.PL 2011-07-07 09:00:42.000000000 +0200 @@ -1,4 +1,4 @@ -use inc::Module::Install 1.00; +use inc::Module::Install 1.01; use Config; all_from 'lib/File/HomeDir.pm'; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-HomeDir-0.97/inc/Module/Install/Base.pm new/File-HomeDir-0.98/inc/Module/Install/Base.pm --- old/File-HomeDir-0.97/inc/Module/Install/Base.pm 2011-02-20 14:00:18.000000000 +0100 +++ new/File-HomeDir-0.98/inc/Module/Install/Base.pm 2011-07-07 09:01:09.000000000 +0200 @@ -4,7 +4,7 @@ use strict 'vars'; use vars qw{$VERSION}; BEGIN { - $VERSION = '1.00'; + $VERSION = '1.01'; } # Suspend handler for "redefined" warnings diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-HomeDir-0.97/inc/Module/Install/Can.pm new/File-HomeDir-0.98/inc/Module/Install/Can.pm --- old/File-HomeDir-0.97/inc/Module/Install/Can.pm 2011-02-20 14:00:18.000000000 +0100 +++ new/File-HomeDir-0.98/inc/Module/Install/Can.pm 2011-07-07 09:01:09.000000000 +0200 @@ -9,7 +9,7 @@ use vars qw{$VERSION @ISA $ISCORE}; BEGIN { - $VERSION = '1.00'; + $VERSION = '1.01'; @ISA = 'Module::Install::Base'; $ISCORE = 1; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-HomeDir-0.97/inc/Module/Install/Fetch.pm new/File-HomeDir-0.98/inc/Module/Install/Fetch.pm --- old/File-HomeDir-0.97/inc/Module/Install/Fetch.pm 2011-02-20 14:00:18.000000000 +0100 +++ new/File-HomeDir-0.98/inc/Module/Install/Fetch.pm 2011-07-07 09:01:09.000000000 +0200 @@ -6,7 +6,7 @@ use vars qw{$VERSION @ISA $ISCORE}; BEGIN { - $VERSION = '1.00'; + $VERSION = '1.01'; @ISA = 'Module::Install::Base'; $ISCORE = 1; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-HomeDir-0.97/inc/Module/Install/Makefile.pm new/File-HomeDir-0.98/inc/Module/Install/Makefile.pm --- old/File-HomeDir-0.97/inc/Module/Install/Makefile.pm 2011-02-20 14:00:18.000000000 +0100 +++ new/File-HomeDir-0.98/inc/Module/Install/Makefile.pm 2011-07-07 09:01:09.000000000 +0200 @@ -8,7 +8,7 @@ use vars qw{$VERSION @ISA $ISCORE}; BEGIN { - $VERSION = '1.00'; + $VERSION = '1.01'; @ISA = 'Module::Install::Base'; $ISCORE = 1; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-HomeDir-0.97/inc/Module/Install/Metadata.pm new/File-HomeDir-0.98/inc/Module/Install/Metadata.pm --- old/File-HomeDir-0.97/inc/Module/Install/Metadata.pm 2011-02-20 14:00:18.000000000 +0100 +++ new/File-HomeDir-0.98/inc/Module/Install/Metadata.pm 2011-07-07 09:01:09.000000000 +0200 @@ -6,7 +6,7 @@ use vars qw{$VERSION @ISA $ISCORE}; BEGIN { - $VERSION = '1.00'; + $VERSION = '1.01'; @ISA = 'Module::Install::Base'; $ISCORE = 1; } @@ -515,6 +515,7 @@ 'GNU Free Documentation license' => 'unrestricted', 1, 'GNU Affero General Public License' => 'open_source', 1, '(?:Free)?BSD license' => 'bsd', 1, + 'Artistic license 2\.0' => 'artistic_2', 1, 'Artistic license' => 'artistic', 1, 'Apache (?:Software )?license' => 'apache', 1, 'GPL' => 'gpl', 1, @@ -550,9 +551,9 @@ sub _extract_bugtracker { my @links = $_[0] =~ m#L<( - \Qhttp://rt.cpan.org/\E[^>]+| - \Qhttp://github.com/\E[\w_]+/[\w_]+/issues| - \Qhttp://code.google.com/p/\E[\w_\-]+/issues/list + https?\Q://rt.cpan.org/\E[^>]+| + https?\Q://github.com/\E[\w_]+/[\w_]+/issues| + https?\Q://code.google.com/p/\E[\w_\-]+/issues/list )>#gx; my %links; @links{@links}=(); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-HomeDir-0.97/inc/Module/Install/Win32.pm new/File-HomeDir-0.98/inc/Module/Install/Win32.pm --- old/File-HomeDir-0.97/inc/Module/Install/Win32.pm 2011-02-20 14:00:18.000000000 +0100 +++ new/File-HomeDir-0.98/inc/Module/Install/Win32.pm 2011-07-07 09:01:09.000000000 +0200 @@ -6,7 +6,7 @@ use vars qw{$VERSION @ISA $ISCORE}; BEGIN { - $VERSION = '1.00'; + $VERSION = '1.01'; @ISA = 'Module::Install::Base'; $ISCORE = 1; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-HomeDir-0.97/inc/Module/Install/WriteAll.pm new/File-HomeDir-0.98/inc/Module/Install/WriteAll.pm --- old/File-HomeDir-0.97/inc/Module/Install/WriteAll.pm 2011-02-20 14:00:18.000000000 +0100 +++ new/File-HomeDir-0.98/inc/Module/Install/WriteAll.pm 2011-07-07 09:01:09.000000000 +0200 @@ -6,7 +6,7 @@ use vars qw{$VERSION @ISA $ISCORE}; BEGIN { - $VERSION = '1.00'; + $VERSION = '1.01'; @ISA = qw{Module::Install::Base}; $ISCORE = 1; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-HomeDir-0.97/inc/Module/Install.pm new/File-HomeDir-0.98/inc/Module/Install.pm --- old/File-HomeDir-0.97/inc/Module/Install.pm 2011-02-20 14:00:18.000000000 +0100 +++ new/File-HomeDir-0.98/inc/Module/Install.pm 2011-07-07 09:01:09.000000000 +0200 @@ -31,7 +31,7 @@ # This is not enforced yet, but will be some time in the next few # releases once we can make sure it won't clash with custom # Module::Install extensions. - $VERSION = '1.00'; + $VERSION = '1.01'; # Storage for the pseudo-singleton $MAIN = undef; @@ -467,4 +467,4 @@ 1; -# Copyright 2008 - 2010 Adam Kennedy. +# Copyright 2008 - 2011 Adam Kennedy. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-HomeDir-0.97/lib/File/HomeDir/Darwin/Carbon.pm new/File-HomeDir-0.98/lib/File/HomeDir/Darwin/Carbon.pm --- old/File-HomeDir-0.97/lib/File/HomeDir/Darwin/Carbon.pm 2011-02-20 13:59:47.000000000 +0100 +++ new/File-HomeDir-0.98/lib/File/HomeDir/Darwin/Carbon.pm 2011-07-07 09:00:42.000000000 +0200 @@ -11,7 +11,7 @@ use vars qw{$VERSION @ISA}; BEGIN { - $VERSION = '0.97'; + $VERSION = '0.98'; # This is only a child class of the pure Perl darwin # class so that we can do homedir detection of all three diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-HomeDir-0.97/lib/File/HomeDir/Darwin/Cocoa.pm new/File-HomeDir-0.98/lib/File/HomeDir/Darwin/Cocoa.pm --- old/File-HomeDir-0.97/lib/File/HomeDir/Darwin/Cocoa.pm 2011-02-20 13:59:47.000000000 +0100 +++ new/File-HomeDir-0.98/lib/File/HomeDir/Darwin/Cocoa.pm 2011-07-07 09:00:42.000000000 +0200 @@ -8,7 +8,7 @@ use vars qw{$VERSION @ISA}; BEGIN { - $VERSION = '0.97'; + $VERSION = '0.98'; @ISA = 'File::HomeDir::Darwin'; # Load early if in a forking environment and we have diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-HomeDir-0.97/lib/File/HomeDir/Darwin.pm new/File-HomeDir-0.98/lib/File/HomeDir/Darwin.pm --- old/File-HomeDir-0.97/lib/File/HomeDir/Darwin.pm 2011-02-20 13:59:47.000000000 +0100 +++ new/File-HomeDir-0.98/lib/File/HomeDir/Darwin.pm 2011-07-07 09:00:42.000000000 +0200 @@ -8,7 +8,7 @@ use vars qw{$VERSION @ISA}; BEGIN { - $VERSION = '0.97'; + $VERSION = '0.98'; @ISA = 'File::HomeDir::Unix'; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-HomeDir-0.97/lib/File/HomeDir/Driver.pm new/File-HomeDir-0.98/lib/File/HomeDir/Driver.pm --- old/File-HomeDir-0.97/lib/File/HomeDir/Driver.pm 2011-02-20 13:59:47.000000000 +0100 +++ new/File-HomeDir-0.98/lib/File/HomeDir/Driver.pm 2011-07-07 09:00:42.000000000 +0200 @@ -9,7 +9,7 @@ use vars qw{$VERSION}; BEGIN { - $VERSION = '0.97'; + $VERSION = '0.98'; } sub my_home { diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-HomeDir-0.97/lib/File/HomeDir/FreeDesktop.pm new/File-HomeDir-0.98/lib/File/HomeDir/FreeDesktop.pm --- old/File-HomeDir-0.97/lib/File/HomeDir/FreeDesktop.pm 2011-02-20 13:59:47.000000000 +0100 +++ new/File-HomeDir-0.98/lib/File/HomeDir/FreeDesktop.pm 2011-07-07 09:00:42.000000000 +0200 @@ -14,7 +14,7 @@ use vars qw{$VERSION @ISA}; BEGIN { - $VERSION = '0.97'; + $VERSION = '0.98'; @ISA = 'File::HomeDir::Unix'; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-HomeDir-0.97/lib/File/HomeDir/MacOS9.pm new/File-HomeDir-0.98/lib/File/HomeDir/MacOS9.pm --- old/File-HomeDir-0.97/lib/File/HomeDir/MacOS9.pm 2011-02-20 13:59:47.000000000 +0100 +++ new/File-HomeDir-0.98/lib/File/HomeDir/MacOS9.pm 2011-07-07 09:00:42.000000000 +0200 @@ -11,7 +11,7 @@ use vars qw{$VERSION @ISA}; BEGIN { - $VERSION = '0.97'; + $VERSION = '0.98'; @ISA = 'File::HomeDir::Driver'; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-HomeDir-0.97/lib/File/HomeDir/Test.pm new/File-HomeDir-0.98/lib/File/HomeDir/Test.pm --- old/File-HomeDir-0.97/lib/File/HomeDir/Test.pm 2011-02-20 13:59:47.000000000 +0100 +++ new/File-HomeDir-0.98/lib/File/HomeDir/Test.pm 2011-07-07 09:00:42.000000000 +0200 @@ -9,7 +9,7 @@ use vars qw{$VERSION @ISA %DIR $ENABLED}; BEGIN { - $VERSION = '0.97'; + $VERSION = '0.98'; @ISA = 'File::HomeDir::Driver'; %DIR = (); $ENABLED = 0; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-HomeDir-0.97/lib/File/HomeDir/Unix.pm new/File-HomeDir-0.98/lib/File/HomeDir/Unix.pm --- old/File-HomeDir-0.97/lib/File/HomeDir/Unix.pm 2011-02-20 13:59:47.000000000 +0100 +++ new/File-HomeDir-0.98/lib/File/HomeDir/Unix.pm 2011-07-07 09:00:42.000000000 +0200 @@ -9,7 +9,7 @@ use vars qw{$VERSION @ISA}; BEGIN { - $VERSION = '0.97'; + $VERSION = '0.98'; @ISA = 'File::HomeDir::Driver'; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-HomeDir-0.97/lib/File/HomeDir/Windows.pm new/File-HomeDir-0.98/lib/File/HomeDir/Windows.pm --- old/File-HomeDir-0.97/lib/File/HomeDir/Windows.pm 2011-02-20 13:59:47.000000000 +0100 +++ new/File-HomeDir-0.98/lib/File/HomeDir/Windows.pm 2011-07-07 09:00:42.000000000 +0200 @@ -10,7 +10,7 @@ use vars qw{$VERSION @ISA}; BEGIN { - $VERSION = '0.97'; + $VERSION = '0.98'; @ISA = 'File::HomeDir::Driver'; } @@ -55,14 +55,14 @@ SCOPE: { require Win32; my $dir = Win32::GetFolderPath(Win32::CSIDL_DESKTOP(), CREATE); - return $dir if $dir and -d $dir; + return $dir if $dir and $class->_d($dir); } # MSWindows sets WINDIR, MS WinNT sets USERPROFILE. foreach my $e ( 'USERPROFILE', 'WINDIR' ) { next unless $ENV{$e}; my $desktop = File::Spec->catdir($ENV{$e}, 'Desktop'); - return $desktop if $desktop and -d $desktop; + return $desktop if $desktop and $class->_d($desktop); } # As a last resort, try some hard-wired values @@ -76,7 +76,7 @@ "C:/win95/desktop", "C:/windows/desktop", ) { - return $fixed if -d $fixed; + return $fixed if $class->_d($fixed); } return undef; @@ -89,7 +89,7 @@ SCOPE: { require Win32; my $dir = Win32::GetFolderPath(Win32::CSIDL_PERSONAL(), CREATE); - return $dir if $dir and -d $dir; + return $dir if $dir and $class->_d($dir); } return undef; @@ -102,7 +102,7 @@ SCOPE: { require Win32; my $dir = Win32::GetFolderPath(Win32::CSIDL_LOCAL_APPDATA(), CREATE); - return $dir if $dir and -d $dir; + return $dir if $dir and $class->_d($dir); } return undef; @@ -115,7 +115,7 @@ SCOPE: { require Win32; my $dir = Win32::GetFolderPath(Win32::CSIDL_MYMUSIC(), CREATE); - return $dir if $dir and -d $dir; + return $dir if $dir and $class->_d($dir); } return undef; @@ -128,7 +128,7 @@ SCOPE: { require Win32; my $dir = Win32::GetFolderPath(Win32::CSIDL_MYPICTURES(), CREATE); - return $dir if $dir and -d $dir; + return $dir if $dir and $class->_d($dir); } return undef; @@ -141,12 +141,34 @@ SCOPE: { require Win32; my $dir = Win32::GetFolderPath(Win32::CSIDL_MYVIDEO(), CREATE); - return $dir if $dir and -d $dir; + return $dir if $dir and $class->_d($dir); } return undef; } +# Special case version of -d +sub _d { + my $self = shift; + my $path = shift; + + # Window can legally return a UNC path from GetFolderPath. + # Not only is the meaning of -d complicated in this situation, + # but even on a local network calling -d "\\\\cifs\\path" can + # take several seconds. UNC can also do even weirder things, + # like launching processes and such. + # To avoid various crazy bugs caused by this, we do NOT attempt + # to validate UNC paths at all so that the code that is calling + # us has an opportunity to take special actions without our + # blundering getting in the way. + if ( $path =~ /\\\\/ ) { + return 1; + } + + # Otherwise do a stat as normal + return -d $path; +} + 1; =pod @@ -174,6 +196,22 @@ common user directories. In normal usage this module will always be used via L<File::HomeDir>. +Internally this module will use L<Win32>::GetFolderPath to fetch the location +of your directories. As a result of this, in certain unusual situations +(usually found inside large organisations) the methods may return UNC paths +such as C<\\cifs.local\home$>. + +If your application runs on Windows and you want to have it work comprehensively +everywhere, you may need to implement your own handling for these paths as they +can cause strange behaviour. + +For example, stat calls to UNC paths may work but block for several seconds, but +opendir() may not be able to read any files (creating the appearance of an existing +but empty directory). + +To avoid complicating the problem any further, in the rare situation that a UNC path +is returned by C<GetFolderPath> the usual -d validation checks will B<not> be done. + =head1 SUPPORT See the support section the main L<File::HomeDir> module. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-HomeDir-0.97/lib/File/HomeDir.pm new/File-HomeDir-0.98/lib/File/HomeDir.pm --- old/File-HomeDir-0.97/lib/File/HomeDir.pm 2011-02-20 13:59:47.000000000 +0100 +++ new/File-HomeDir-0.98/lib/File/HomeDir.pm 2011-07-07 09:00:42.000000000 +0200 @@ -12,7 +12,7 @@ # Globals use vars qw{$VERSION @ISA @EXPORT @EXPORT_OK $IMPLEMENTED_BY}; BEGIN { - $VERSION = '0.97'; + $VERSION = '0.98'; # Inherit manually require Exporter; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-HomeDir-0.97/xt/pmv.t new/File-HomeDir-0.98/xt/pmv.t --- old/File-HomeDir-0.97/xt/pmv.t 2011-02-20 13:59:47.000000000 +0100 +++ new/File-HomeDir-0.98/xt/pmv.t 2011-07-07 09:00:42.000000000 +0200 @@ -9,7 +9,7 @@ } my @MODULES = ( - 'Perl::MinimumVersion 1.25', + 'Perl::MinimumVersion 1.27', 'Test::MinimumVersion 0.101080', ); -- To unsubscribe, e-mail: opensuse-commit+unsubscr...@opensuse.org For additional commands, e-mail: opensuse-commit+h...@opensuse.org