Hello community, here is the log from the commit of package perl-File-HomeDir for openSUSE:Factory checked in at 2012-02-21 12:23:33 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 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 "[email protected]" Changes: -------- --- /work/SRC/openSUSE:Factory/perl-File-HomeDir/perl-File-HomeDir.changes 2011-12-21 10:01:56.000000000 +0100 +++ /work/SRC/openSUSE:Factory/.perl-File-HomeDir.new/perl-File-HomeDir.changes 2012-02-21 12:23:35.000000000 +0100 @@ -1,0 +2,9 @@ +Tue Feb 21 09:03:28 UTC 2012 - [email protected] + +- updated to 0.99 + - Updating to Module::Install 1.04 + - Removed deprecated interfaces from the documentation + - Don't require music and video directories in FreeDesktop tests + - The use of deprecated %~ now emits a warning + +------------------------------------------------------------------- Old: ---- File-HomeDir-0.98.tar.gz New: ---- File-HomeDir-0.99.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-File-HomeDir.spec ++++++ --- /var/tmp/diff_new_pack.ue3QNp/_old 2012-02-21 12:23:36.000000000 +0100 +++ /var/tmp/diff_new_pack.ue3QNp/_new 2012-02-21 12:23:36.000000000 +0100 @@ -1,7 +1,7 @@ # # spec file for package perl-File-HomeDir # -# Copyright (c) 2011 SUSE LINUX Products GmbH, Nuernberg, Germany. +# Copyright (c) 2012 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 @@ -17,28 +17,37 @@ Name: perl-File-HomeDir -Version: 0.98 +Version: 0.99 Release: 0 %define cpan_name File-HomeDir Summary: Find your home and other directories on any platform -License: GPL-1.0+ or Artistic-1.0 +License: Artistic-1.0 or GPL-1.0+ Group: Development/Libraries/Perl Url: http://search.cpan.org/dist/File-HomeDir/ -Source: http://www.cpan.org/authors/id/A/AD/ADAMK/File-HomeDir-%{version}.tar.gz +Source: http://www.cpan.org/authors/id/A/AD/ADAMK/%{cpan_name}-%{version}.tar.gz BuildArch: noarch BuildRoot: %{_tmppath}/%{name}-%{version}-build BuildRequires: perl BuildRequires: perl-macros -BuildRequires: perl(Carp) -BuildRequires: perl(Cwd) >= 3.12 BuildRequires: perl(File::Path) >= 2.01 -BuildRequires: perl(File::Spec) >= 3.12 BuildRequires: perl(File::Temp) >= 0.19 BuildRequires: perl(File::Which) >= 0.05 -Requires: perl(Carp) -Requires: perl(Cwd) >= 3.12 +#BuildRequires: perl(File::HomeDir) +#BuildRequires: perl(File::HomeDir::Darwin) +#BuildRequires: perl(File::HomeDir::Darwin::Cocoa) +#BuildRequires: perl(File::HomeDir::Driver) +#BuildRequires: perl(File::HomeDir::Test) +#BuildRequires: perl(File::HomeDir::Unix) +#BuildRequires: perl(inc::Module::Install) >= 1.04 +#BuildRequires: perl(JSON) +#BuildRequires: perl(LWP::Simple) +#BuildRequires: perl(Mac::Files) +#BuildRequires: perl(Mac::SystemDirectory) +#BuildRequires: perl(Module::Build) +#BuildRequires: perl(Module::Install::Base) +#BuildRequires: perl(Parse::CPAN::Meta) +#BuildRequires: perl(YAML::Tiny) Requires: perl(File::Path) >= 2.01 -Requires: perl(File::Spec) >= 3.12 Requires: perl(File::Temp) >= 0.19 Requires: perl(File::Which) >= 0.05 %{perl_requires} @@ -70,25 +79,6 @@ Perl toolchain convention of a 10 year support period for legacy APIs that are potentially or actually in common use). -Platform Neutrality - In the Unix world, many different types of data can be mixed together - in your home directory (although on some Unix platforms this is no - longer the case, particularly for "desktop"-oriented platforms). - - On some non-Unix platforms, separate directories are allocated for - different types of data and have been for a long time. - - When writing applications on top of *File::HomeDir*, you should thus - always try to use the most specific method you can. User documents - should be saved in 'my_documents', data that supports an application - but isn't normally editing by the user directory should go into - 'my_data'. - - On platforms that do not make any distinction, all these different - methods will harmlessly degrade to the main home directory, but on - platforms that care *File::HomeDir* will always try to Do The Right - Thing(tm). - %prep %setup -q -n %{cpan_name}-%{version} @@ -104,11 +94,8 @@ %perl_process_packlist %perl_gen_filelist -%clean -%{__rm} -rf %{buildroot} - %files -f %{name}.files -%defattr(644,root,root,755) -%doc Changes LICENSE README +%defattr(-,root,root,755) +%doc Changes LICENSE MYMETA.json README %changelog ++++++ File-HomeDir-0.98.tar.gz -> File-HomeDir-0.99.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-HomeDir-0.98/Changes new/File-HomeDir-0.99/Changes --- old/File-HomeDir-0.98/Changes 2011-07-07 09:00:42.000000000 +0200 +++ new/File-HomeDir-0.99/Changes 2012-01-25 14:49:24.000000000 +0100 @@ -1,5 +1,11 @@ Changes for Perl extension File-HomeDir +0.99 Thu 26 Jan 2012 + - Updating to Module::Install 1.04 + - Removed deprecated interfaces from the documentation + - Don't require music and video directories in FreeDesktop tests + - The use of deprecated %~ now emits a warning + 0.98 Thu 7 Jul 2011 - Updating to Module::Install 1.01 - If Win32::GetFolderPath returns a \\UNC type path do not do the diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-HomeDir-0.98/MANIFEST new/File-HomeDir-0.99/MANIFEST --- old/File-HomeDir-0.98/MANIFEST 2011-07-07 09:01:09.000000000 +0200 +++ new/File-HomeDir-0.99/MANIFEST 2012-01-25 14:49:52.000000000 +0100 @@ -21,6 +21,7 @@ Makefile.PL MANIFEST This list of files META.yml +MYMETA.json README t/01_compile.t t/02_main.t diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-HomeDir-0.98/META.yml new/File-HomeDir-0.99/META.yml --- old/File-HomeDir-0.98/META.yml 2011-07-07 09:01:09.000000000 +0200 +++ new/File-HomeDir-0.99/META.yml 2012-01-25 14:49:52.000000000 +0100 @@ -3,12 +3,13 @@ author: - 'Adam Kennedy <[email protected]>' build_requires: - ExtUtils::MakeMaker: 6.42 + ExtUtils::MakeMaker: 6.36 Test::More: 0.47 configure_requires: - ExtUtils::MakeMaker: 6.42 + ExtUtils::MakeMaker: 6.36 distribution_type: module -generated_by: 'Module::Install version 1.01' +dynamic_config: 1 +generated_by: 'Module::Install version 1.04' license: perl meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html @@ -32,4 +33,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.98 +version: 0.99 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-HomeDir-0.98/MYMETA.json new/File-HomeDir-0.99/MYMETA.json --- old/File-HomeDir-0.98/MYMETA.json 1970-01-01 01:00:00.000000000 +0100 +++ new/File-HomeDir-0.99/MYMETA.json 2012-01-25 14:49:52.000000000 +0100 @@ -0,0 +1,59 @@ +{ + "abstract" : "Find your home and other directories on any platform", + "author" : [ + "Adam Kennedy <[email protected]>" + ], + "dynamic_config" : 0, + "generated_by" : "Module::Install version 1.04, CPAN::Meta::Converter version 2.112621", + "license" : [ + "perl_5" + ], + "meta-spec" : { + "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec";, + "version" : "2" + }, + "name" : "File-HomeDir", + "no_index" : { + "directory" : [ + "inc", + "t", + "xt" + ] + }, + "prereqs" : { + "build" : { + "requires" : { + "ExtUtils::MakeMaker" : "6.36", + "Test::More" : "0.47" + } + }, + "configure" : { + "requires" : { + "ExtUtils::MakeMaker" : "6.36" + } + }, + "runtime" : { + "requires" : { + "Carp" : 0, + "Cwd" : "3.12", + "File::Path" : "2.01", + "File::Spec" : "3.12", + "File::Temp" : "0.19", + "File::Which" : "0.05", + "perl" : "5.00503" + } + } + }, + "release_status" : "stable", + "resources" : { + "license" : [ + "http://dev.perl.org/licenses/"; + ], + "repository" : { + "url" : "http://svn.ali.as/cpan/trunk/File-HomeDir"; + }, + "x_ChangeLog" : "http://fisheye2.atlassian.com/changelog/cpan/trunk/File-HomeDir"; + }, + "version" : "0.99", + "x_module_name" : "File::HomeDir" +} diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-HomeDir-0.98/Makefile.PL new/File-HomeDir-0.99/Makefile.PL --- old/File-HomeDir-0.98/Makefile.PL 2011-07-07 09:00:42.000000000 +0200 +++ new/File-HomeDir-0.99/Makefile.PL 2012-01-25 14:49:24.000000000 +0100 @@ -1,4 +1,4 @@ -use inc::Module::Install 1.01; +use inc::Module::Install 1.04; use Config; all_from 'lib/File/HomeDir.pm'; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-HomeDir-0.98/README new/File-HomeDir-0.99/README --- old/File-HomeDir-0.98/README 2011-07-07 09:00:42.000000000 +0200 +++ new/File-HomeDir-0.99/README 2012-01-25 14:49:24.000000000 +0100 @@ -23,12 +23,6 @@ $pics = File::HomeDir->users_pictures('foo'); $video = File::HomeDir->users_videos('foo'); $data = File::HomeDir->users_data('foo'); - - # Legacy Interfaces - print "My dir is ", home(), " and root's is ", home('root'), "\n"; - print "My dir is $~{''} and root's is $~{root}\n"; - # These both print the same thing, something like: - # "My dir is /home/user/mojo and root's is /" DESCRIPTION File::HomeDir is a module for locating the directories that are "owned" @@ -349,7 +343,7 @@ File::ShareDir, File::HomeDir::Win32 (legacy) COPYRIGHT - Copyright 2005 - 2011 Adam Kennedy. + Copyright 2005 - 2012 Adam Kennedy. Some parts copyright 2000 Sean M. Burke. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-HomeDir-0.98/inc/Module/Install/Base.pm new/File-HomeDir-0.99/inc/Module/Install/Base.pm --- old/File-HomeDir-0.98/inc/Module/Install/Base.pm 2011-07-07 09:01:09.000000000 +0200 +++ new/File-HomeDir-0.99/inc/Module/Install/Base.pm 2012-01-25 14:49:52.000000000 +0100 @@ -4,7 +4,7 @@ use strict 'vars'; use vars qw{$VERSION}; BEGIN { - $VERSION = '1.01'; + $VERSION = '1.04'; } # Suspend handler for "redefined" warnings diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-HomeDir-0.98/inc/Module/Install/Can.pm new/File-HomeDir-0.99/inc/Module/Install/Can.pm --- old/File-HomeDir-0.98/inc/Module/Install/Can.pm 2011-07-07 09:01:09.000000000 +0200 +++ new/File-HomeDir-0.99/inc/Module/Install/Can.pm 2012-01-25 14:49:52.000000000 +0100 @@ -9,7 +9,7 @@ use vars qw{$VERSION @ISA $ISCORE}; BEGIN { - $VERSION = '1.01'; + $VERSION = '1.04'; @ISA = 'Module::Install::Base'; $ISCORE = 1; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-HomeDir-0.98/inc/Module/Install/Fetch.pm new/File-HomeDir-0.99/inc/Module/Install/Fetch.pm --- old/File-HomeDir-0.98/inc/Module/Install/Fetch.pm 2011-07-07 09:01:09.000000000 +0200 +++ new/File-HomeDir-0.99/inc/Module/Install/Fetch.pm 2012-01-25 14:49:52.000000000 +0100 @@ -6,7 +6,7 @@ use vars qw{$VERSION @ISA $ISCORE}; BEGIN { - $VERSION = '1.01'; + $VERSION = '1.04'; @ISA = 'Module::Install::Base'; $ISCORE = 1; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-HomeDir-0.98/inc/Module/Install/Makefile.pm new/File-HomeDir-0.99/inc/Module/Install/Makefile.pm --- old/File-HomeDir-0.98/inc/Module/Install/Makefile.pm 2011-07-07 09:01:09.000000000 +0200 +++ new/File-HomeDir-0.99/inc/Module/Install/Makefile.pm 2012-01-25 14:49:52.000000000 +0100 @@ -8,7 +8,7 @@ use vars qw{$VERSION @ISA $ISCORE}; BEGIN { - $VERSION = '1.01'; + $VERSION = '1.04'; @ISA = 'Module::Install::Base'; $ISCORE = 1; } @@ -219,14 +219,14 @@ # an underscore, even though its own version may contain one! # Hence the funny regexp to get rid of it. See RT #35800 # for details. - my $v = $ExtUtils::MakeMaker::VERSION =~ /^(\d+\.\d+)/; + my ($v) = $ExtUtils::MakeMaker::VERSION =~ /^(\d+\.\d+)/; $self->build_requires( 'ExtUtils::MakeMaker' => $v ); $self->configure_requires( 'ExtUtils::MakeMaker' => $v ); } else { # Allow legacy-compatibility with 5.005 by depending on the # most recent EU:MM that supported 5.005. - $self->build_requires( 'ExtUtils::MakeMaker' => 6.42 ); - $self->configure_requires( 'ExtUtils::MakeMaker' => 6.42 ); + $self->build_requires( 'ExtUtils::MakeMaker' => 6.36 ); + $self->configure_requires( 'ExtUtils::MakeMaker' => 6.36 ); } # Generate the MakeMaker params @@ -241,7 +241,6 @@ 'all_from' if you prefer) in Makefile.PL. EOT - $DB::single = 1; if ( $self->tests ) { my @tests = split ' ', $self->tests; my %seen; @@ -412,4 +411,4 @@ __END__ -#line 541 +#line 540 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-HomeDir-0.98/inc/Module/Install/Metadata.pm new/File-HomeDir-0.99/inc/Module/Install/Metadata.pm --- old/File-HomeDir-0.98/inc/Module/Install/Metadata.pm 2011-07-07 09:01:09.000000000 +0200 +++ new/File-HomeDir-0.99/inc/Module/Install/Metadata.pm 2012-01-25 14:49:52.000000000 +0100 @@ -6,7 +6,7 @@ use vars qw{$VERSION @ISA $ISCORE}; BEGIN { - $VERSION = '1.01'; + $VERSION = '1.04'; @ISA = 'Module::Install::Base'; $ISCORE = 1; } @@ -151,15 +151,21 @@ sub install_as_vendor { $_[0]->installdirs('vendor') } sub dynamic_config { - my $self = shift; - unless ( @_ ) { - warn "You MUST provide an explicit true/false value to dynamic_config\n"; - return $self; + my $self = shift; + my $value = @_ ? shift : 1; + if ( $self->{values}->{dynamic_config} ) { + # Once dynamic we never change to static, for safety + return 0; } - $self->{values}->{dynamic_config} = $_[0] ? 1 : 0; + $self->{values}->{dynamic_config} = $value ? 1 : 0; return 1; } +# Convenience command +sub static_config { + shift->dynamic_config(0); +} + sub perl_version { my $self = shift; return $self->{values}->{perl_version} unless @_; @@ -170,7 +176,7 @@ # Normalize the version $version = $self->_perl_version($version); - # We don't support the reall old versions + # We don't support the really old versions unless ( $version >= 5.005 ) { die "Module::Install only supports 5.005 or newer (use ExtUtils::MakeMaker)\n"; } @@ -582,7 +588,7 @@ sub requires_from { my $self = shift; my $content = Module::Install::_readperl($_[0]); - my @requires = $content =~ m/^use\s+([^\W\d]\w*(?:::\w+)*)\s+([\d\.]+)/mg; + my @requires = $content =~ m/^use\s+([^\W\d]\w*(?:::\w+)*)\s+(v?[\d\.]+)/mg; while ( @requires ) { my $module = shift @requires; my $version = shift @requires; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-HomeDir-0.98/inc/Module/Install/Win32.pm new/File-HomeDir-0.99/inc/Module/Install/Win32.pm --- old/File-HomeDir-0.98/inc/Module/Install/Win32.pm 2011-07-07 09:01:09.000000000 +0200 +++ new/File-HomeDir-0.99/inc/Module/Install/Win32.pm 2012-01-25 14:49:52.000000000 +0100 @@ -6,7 +6,7 @@ use vars qw{$VERSION @ISA $ISCORE}; BEGIN { - $VERSION = '1.01'; + $VERSION = '1.04'; @ISA = 'Module::Install::Base'; $ISCORE = 1; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-HomeDir-0.98/inc/Module/Install/WriteAll.pm new/File-HomeDir-0.99/inc/Module/Install/WriteAll.pm --- old/File-HomeDir-0.98/inc/Module/Install/WriteAll.pm 2011-07-07 09:01:09.000000000 +0200 +++ new/File-HomeDir-0.99/inc/Module/Install/WriteAll.pm 2012-01-25 14:49:52.000000000 +0100 @@ -6,7 +6,7 @@ use vars qw{$VERSION @ISA $ISCORE}; BEGIN { - $VERSION = '1.01'; + $VERSION = '1.04'; @ISA = qw{Module::Install::Base}; $ISCORE = 1; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-HomeDir-0.98/inc/Module/Install.pm new/File-HomeDir-0.99/inc/Module/Install.pm --- old/File-HomeDir-0.98/inc/Module/Install.pm 2011-07-07 09:01:09.000000000 +0200 +++ new/File-HomeDir-0.99/inc/Module/Install.pm 2012-01-25 14:49:51.000000000 +0100 @@ -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.01'; + $VERSION = '1.04'; # Storage for the pseudo-singleton $MAIN = undef; @@ -451,7 +451,7 @@ } sub _cmp ($$) { - _version($_[0]) <=> _version($_[1]); + _version($_[1]) <=> _version($_[2]); } # Cloned from Params::Util::_CLASS diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-HomeDir-0.98/lib/File/HomeDir/Darwin/Carbon.pm new/File-HomeDir-0.99/lib/File/HomeDir/Darwin/Carbon.pm --- old/File-HomeDir-0.98/lib/File/HomeDir/Darwin/Carbon.pm 2011-07-07 09:00:42.000000000 +0200 +++ new/File-HomeDir-0.99/lib/File/HomeDir/Darwin/Carbon.pm 2012-01-25 14:49:24.000000000 +0100 @@ -11,7 +11,7 @@ use vars qw{$VERSION @ISA}; BEGIN { - $VERSION = '0.98'; + $VERSION = '0.99'; # 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.98/lib/File/HomeDir/Darwin/Cocoa.pm new/File-HomeDir-0.99/lib/File/HomeDir/Darwin/Cocoa.pm --- old/File-HomeDir-0.98/lib/File/HomeDir/Darwin/Cocoa.pm 2011-07-07 09:00:42.000000000 +0200 +++ new/File-HomeDir-0.99/lib/File/HomeDir/Darwin/Cocoa.pm 2012-01-25 14:49:24.000000000 +0100 @@ -8,7 +8,7 @@ use vars qw{$VERSION @ISA}; BEGIN { - $VERSION = '0.98'; + $VERSION = '0.99'; @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.98/lib/File/HomeDir/Darwin.pm new/File-HomeDir-0.99/lib/File/HomeDir/Darwin.pm --- old/File-HomeDir-0.98/lib/File/HomeDir/Darwin.pm 2011-07-07 09:00:42.000000000 +0200 +++ new/File-HomeDir-0.99/lib/File/HomeDir/Darwin.pm 2012-01-25 14:49:24.000000000 +0100 @@ -8,7 +8,7 @@ use vars qw{$VERSION @ISA}; BEGIN { - $VERSION = '0.98'; + $VERSION = '0.99'; @ISA = 'File::HomeDir::Unix'; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-HomeDir-0.98/lib/File/HomeDir/Driver.pm new/File-HomeDir-0.99/lib/File/HomeDir/Driver.pm --- old/File-HomeDir-0.98/lib/File/HomeDir/Driver.pm 2011-07-07 09:00:42.000000000 +0200 +++ new/File-HomeDir-0.99/lib/File/HomeDir/Driver.pm 2012-01-25 14:49:24.000000000 +0100 @@ -9,7 +9,7 @@ use vars qw{$VERSION}; BEGIN { - $VERSION = '0.98'; + $VERSION = '0.99'; } sub my_home { diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-HomeDir-0.98/lib/File/HomeDir/FreeDesktop.pm new/File-HomeDir-0.99/lib/File/HomeDir/FreeDesktop.pm --- old/File-HomeDir-0.98/lib/File/HomeDir/FreeDesktop.pm 2011-07-07 09:00:42.000000000 +0200 +++ new/File-HomeDir-0.99/lib/File/HomeDir/FreeDesktop.pm 2012-01-25 14:49:24.000000000 +0100 @@ -14,7 +14,7 @@ use vars qw{$VERSION @ISA}; BEGIN { - $VERSION = '0.98'; + $VERSION = '0.99'; @ISA = 'File::HomeDir::Unix'; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-HomeDir-0.98/lib/File/HomeDir/MacOS9.pm new/File-HomeDir-0.99/lib/File/HomeDir/MacOS9.pm --- old/File-HomeDir-0.98/lib/File/HomeDir/MacOS9.pm 2011-07-07 09:00:42.000000000 +0200 +++ new/File-HomeDir-0.99/lib/File/HomeDir/MacOS9.pm 2012-01-25 14:49:24.000000000 +0100 @@ -11,7 +11,7 @@ use vars qw{$VERSION @ISA}; BEGIN { - $VERSION = '0.98'; + $VERSION = '0.99'; @ISA = 'File::HomeDir::Driver'; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-HomeDir-0.98/lib/File/HomeDir/Test.pm new/File-HomeDir-0.99/lib/File/HomeDir/Test.pm --- old/File-HomeDir-0.98/lib/File/HomeDir/Test.pm 2011-07-07 09:00:42.000000000 +0200 +++ new/File-HomeDir-0.99/lib/File/HomeDir/Test.pm 2012-01-25 14:49:24.000000000 +0100 @@ -9,7 +9,7 @@ use vars qw{$VERSION @ISA %DIR $ENABLED}; BEGIN { - $VERSION = '0.98'; + $VERSION = '0.99'; @ISA = 'File::HomeDir::Driver'; %DIR = (); $ENABLED = 0; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-HomeDir-0.98/lib/File/HomeDir/Unix.pm new/File-HomeDir-0.99/lib/File/HomeDir/Unix.pm --- old/File-HomeDir-0.98/lib/File/HomeDir/Unix.pm 2011-07-07 09:00:42.000000000 +0200 +++ new/File-HomeDir-0.99/lib/File/HomeDir/Unix.pm 2012-01-25 14:49:24.000000000 +0100 @@ -9,7 +9,7 @@ use vars qw{$VERSION @ISA}; BEGIN { - $VERSION = '0.98'; + $VERSION = '0.99'; @ISA = 'File::HomeDir::Driver'; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-HomeDir-0.98/lib/File/HomeDir/Windows.pm new/File-HomeDir-0.99/lib/File/HomeDir/Windows.pm --- old/File-HomeDir-0.98/lib/File/HomeDir/Windows.pm 2011-07-07 09:00:42.000000000 +0200 +++ new/File-HomeDir-0.99/lib/File/HomeDir/Windows.pm 2012-01-25 14:49:24.000000000 +0100 @@ -10,7 +10,7 @@ use vars qw{$VERSION @ISA}; BEGIN { - $VERSION = '0.98'; + $VERSION = '0.99'; @ISA = 'File::HomeDir::Driver'; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-HomeDir-0.98/lib/File/HomeDir.pm new/File-HomeDir-0.99/lib/File/HomeDir.pm --- old/File-HomeDir-0.98/lib/File/HomeDir.pm 2011-07-07 09:00:42.000000000 +0200 +++ new/File-HomeDir-0.99/lib/File/HomeDir.pm 2012-01-25 14:49:24.000000000 +0100 @@ -12,7 +12,7 @@ # Globals use vars qw{$VERSION @ISA @EXPORT @EXPORT_OK $IMPLEMENTED_BY}; BEGIN { - $VERSION = '0.98'; + $VERSION = '0.99'; # Inherit manually require Exporter; @@ -159,17 +159,17 @@ sub my_dist_config { my $params = ref $_[-1] eq 'HASH' ? pop : {}; my $dist = pop or Carp::croak("The my_dist_config method requires an argument"); - + # not all platforms support a specific my_config() method my $config = $IMPLEMENTED_BY->can('my_config') ? $IMPLEMENTED_BY->my_config : $IMPLEMENTED_BY->my_documents; - # If neither configdir nor my_documents is defined, there's - # nothing we can do: bail out and return nothing... + # If neither configdir nor my_documents is defined, there's + # nothing we can do: bail out and return nothing... return undef unless defined $config; - # On traditional unixes, hide the top-level dir + # On traditional unixes, hide the top-level dir my $etc = $config eq home() ? File::Spec->catdir( $config, '.perl', $dist ) : File::Spec->catdir( $config, 'Perl', $dist ); @@ -302,6 +302,7 @@ } # Get a named user's homedir + Carp::carp("The tied %~ hash has been deprecated"); return File::HomeDir::home($_[1]); } @@ -353,12 +354,6 @@ $pics = File::HomeDir->users_pictures('foo'); $video = File::HomeDir->users_videos('foo'); $data = File::HomeDir->users_data('foo'); - - # Legacy Interfaces - print "My dir is ", home(), " and root's is ", home('root'), "\n"; - print "My dir is $~{''} and root's is $~{root}\n"; - # These both print the same thing, something like: - # "My dir is /home/user/mojo and root's is /" =head1 DESCRIPTION @@ -709,7 +704,7 @@ =head1 COPYRIGHT -Copyright 2005 - 2011 Adam Kennedy. +Copyright 2005 - 2012 Adam Kennedy. Some parts copyright 2000 Sean M. Burke. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-HomeDir-0.98/t/02_main.t new/File-HomeDir-0.99/t/02_main.t --- old/File-HomeDir-0.98/t/02_main.t 2011-07-07 09:00:42.000000000 +0200 +++ new/File-HomeDir-0.99/t/02_main.t 2012-01-25 14:49:24.000000000 +0100 @@ -113,8 +113,8 @@ # On FreeDesktop we can't trust people to have a desktop (annoyingly) $HAVEHOME = 1; $HAVEDESKTOP = 0; - $HAVEMUSIC = 1; - $HAVEVIDEOS = 1; + $HAVEMUSIC = 0; + $HAVEVIDEOS = 0; $HAVEPICTURES = 0; $HAVEOTHERS = 0; @@ -207,16 +207,6 @@ ok( !!($my_documents2 and $my_documents2), 'Found our documents directory' ); } -# Find this user's music directory -SKIP: { - skip("Cannot assume existance of music", 3) unless $HAVEMUSIC; - my $my_music = File::HomeDir->my_music; - my $my_music2 = File::HomeDir::my_music(); - is( $my_music, $my_music2, 'Different APIs give the same results' ); - ok( !!($my_music and is_dir $my_music), 'Our music directory exists' ); - ok( !!($my_music2 and is_dir $my_music2), 'Our music directory exists' ); -} - # Find this user's pictures directory SKIP: { skip("Cannot assume existance of pictures", 3) unless $HAVEPICTURES; @@ -227,6 +217,16 @@ ok( !!($my_pictures2 and is_dir $my_pictures2), 'Our pictures directory exists' ); } +# Find this user's music directory +SKIP: { + skip("Cannot assume existance of music", 3) unless $HAVEMUSIC; + my $my_music = File::HomeDir->my_music; + my $my_music2 = File::HomeDir::my_music(); + is( $my_music, $my_music2, 'Different APIs give the same results' ); + ok( !!($my_music and is_dir $my_music), 'Our music directory exists' ); + ok( !!($my_music2 and is_dir $my_music2), 'Our music directory exists' ); +} + # Find this user's video directory SKIP: { skip("Cannot assume existance of videos", 3) unless $HAVEVIDEOS; -- To unsubscribe, e-mail: [email protected] For additional commands, e-mail: [email protected]
