Hello community, here is the log from the commit of package perl-Module-Info for openSUSE:Factory checked in at 2014-07-23 22:06:35 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Module-Info (Old) and /work/SRC/openSUSE:Factory/.perl-Module-Info.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Module-Info" Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Module-Info/perl-Module-Info.changes 2011-09-23 12:38:06.000000000 +0200 +++ /work/SRC/openSUSE:Factory/.perl-Module-Info.new/perl-Module-Info.changes 2014-07-24 00:51:37.000000000 +0200 @@ -1,0 +2,17 @@ +Sun Jul 20 07:25:16 UTC 2014 - co...@suse.com + +- updated to 0.35 + - Handle 'package NAME VERSION' syntax (patch by Norbert Gruener) + - Added repository and license info to metadata + - Tweaked format of Changes (this file) to match CPAN::Changes::Spec + + 0.34 2013-05-21 21:48:49 CEST + - Replace Test::Soundex in tests with Class::Struct, since + Text::Soundex will not be in core in Perl 5.19 and up. + - Replace ExtUtils::MY_Metafile with META_MERGE in Makefile.PL. + + 0.33 2013-02-9 13:12:22 CET + - Fix tests under Perl 5.6.2 when some core modules have been + upgraded (patch by Andreas Koenig). + +------------------------------------------------------------------- Old: ---- Module-Info-0.32.tar.gz New: ---- Module-Info-0.35.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Module-Info.spec ++++++ --- /var/tmp/diff_new_pack.cx1lgn/_old 2014-07-24 00:51:54.000000000 +0200 +++ /var/tmp/diff_new_pack.cx1lgn/_new 2014-07-24 00:51:54.000000000 +0200 @@ -1,7 +1,7 @@ # # spec file for package perl-Module-Info # -# Copyright (c) 2011 SUSE LINUX Products GmbH, Nuernberg, Germany. +# Copyright (c) 2014 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 @@ -16,25 +16,21 @@ # - Name: perl-Module-Info -Version: 0.32 -Release: 3 -License: GPL-1.0+ or Artistic-1.0 +Version: 0.35 +Release: 0 %define cpan_name Module-Info Summary: Information about Perl modules -Url: http://search.cpan.org/dist/Module-Info/ +License: Artistic-1.0 or GPL-1.0+ Group: Development/Libraries/Perl -#Source: http://www.cpan.org/authors/id/M/MB/MBARBON/Module-Info-%{version}.tar.gz -Source: %{cpan_name}-%{version}.tar.gz +Url: http://search.cpan.org/dist/Module-Info/ +Source: http://www.cpan.org/authors/id/M/MB/MBARBON/%{cpan_name}-%{version}.tar.gz Patch0: fix_provides.diff BuildArch: noarch BuildRoot: %{_tmppath}/%{name}-%{version}-build BuildRequires: perl -BuildRequires: perl(Module::Build) BuildRequires: perl-macros -BuildRequires: perl(File::Spec) >= 0.8 -Requires: perl(File::Spec) >= 0.8 +BuildRequires: perl(Module::Build) >= 0.40 %{perl_requires} %description @@ -57,11 +53,8 @@ ./Build install destdir=%{buildroot} create_packlist=0 %perl_gen_filelist -%clean -%{__rm} -rf %{buildroot} - %files -f %{name}.files -%defattr(644,root,root,755) +%defattr(-,root,root,755) %doc Changes %changelog ++++++ Module-Info-0.32.tar.gz -> Module-Info-0.35.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Module-Info-0.32/Changes new/Module-Info-0.35/Changes --- old/Module-Info-0.32/Changes 2010-09-08 23:15:25.000000000 +0200 +++ new/Module-Info-0.35/Changes 2013-09-08 14:12:29.000000000 +0200 @@ -1,101 +1,117 @@ -0.32 Wed Sep 8 23:15:13 CEST 2010 - + Add archlib and privlib to the search path for core modules +Revision history for perl module Module::Info + +0.35 2013-09-08 14:10:31 CEST + - Handle 'package NAME VERSION' syntax (patch by Norbert Gruener) + - Added repository and license info to metadata + - Tweaked format of Changes (this file) to match CPAN::Changes::Spec + +0.34 2013-05-21 21:48:49 CEST + - Replace Test::Soundex in tests with Class::Struct, since + Text::Soundex will not be in core in Perl 5.19 and up. + - Replace ExtUtils::MY_Metafile with META_MERGE in Makefile.PL. + +0.33 2013-02-9 13:12:22 CET + - Fix tests under Perl 5.6.2 when some core modules have been + upgraded (patch by Andreas Koenig). + +0.32 2010-09-8 23:15:13 CEST + - Add archlib and privlib to the search path for core modules (patch by Jonas B. Nielsen). -0.31_01 Mon Apr 12 23:53:53 CEST 2010 - * Many test fixes. +0.31_01 2010-04-12 23:53:53 CEST + - Many test fixes. -0.31 Mon May 28 21:40:10 CEST 2007 - * Fixed tests in presence of version.pm 0.72 or newer. +0.31 2007-05-28 21:40:10 CEST + - Fixed tests in presence of version.pm 0.72 or newer. - Added -h option to module_info. -0.30 Tue Dec 20 20:17:09 CET 2005 - * Renamed the forked B::Utils to B::BUtils to avoid clashes +0.30 2005-12-20 20:17:09 CET + - Renamed the forked B::Utils to B::BUtils to avoid clashes until it is merged into the mainline. -0.29 Tue Nov 22 21:28:26 CET 2005 - * Fixed version() for complex expressions. +0.29 2005-11-22 21:28:26 CET + - Fixed version() for complex expressions. - Corrected some POD errors in module_info. -0.28_50 Sun Jul 10 21:48:19 CEST 2005 - * Added support for version.pm (based upon a +0.28_50 2005-07-10 21:48:19 CEST + - Added support for version.pm (based upon a patch by John Peacock). - * Fixed the safe() attribute to be per-object instead + - Fixed the safe() attribute to be per-object instead of global. -0.28 Sun Apr 17 17:10:33 CET 2005 +0.28 2005-04-17 17:10:33 CET - Correct the attributions of the fixes in 0.27 (I swapped authors' names). - * Added Module::Build support as an alternative to + - Added Module::Build support as an alternative to ExtUtils::MakeMaker. - * Added safe() option to forbid unsafe operations (currently + - Added safe() option to forbid unsafe operations (currently executes version() code in a Safe compartment and forbids most other operations). - * Fixed compatibility down to Perl 5.004_04. + - Fixed compatibility down to Perl 5.004_04. -0.27 Fri Mar 4 07:56:58 CET 2005 +0.27 2005-03-4 07:56:58 CET - Added missing localization of $_ in version(). (thanks to Johan Lodin) - Fixed new_from_loaded() to return nothing when the module is in fact not loaded. (thanks to Boris Zentner) -0.26 Sun Jul 11 17:15:36 CEST 2004 +0.26 2004-07-11 17:15:36 CEST - Fix tests for Perl 5.8.x and 5.6.x. -0.25 Sun Jul 11 16:36:11 CEST 2004 +0.25 2004-07-11 16:36:11 CEST - Fix test to work around modules_required reporting different version numbers (0.25 vs. 0.250) under bleadperl. - * Report subroutine/method calls and modules required + - Report subroutine/method calls and modules required inside anonymous subroutines. -0.24 Wed Oct 1 11:45:45 CEST 2003 +0.24 2003-10-1 11:45:45 CEST - Fixed version reported by modules_required for bleadperl. -0.23 Thu Sep 4 17:44:52 CEST 2003 +0.23 2003-09-4 17:44:52 CEST - Fixes for modules other than the one being examined loaded from paths containing spaces. -0.22 Mon Aug 18 14:44:23 CEST 2003 - * Fixed reporting of static method calls in Perl 5.8.1 RC4 +0.22 2003-08-18 14:44:23 CEST + - Fixed reporting of static method calls in Perl 5.8.1 RC4 - Fixed reporting of module versions in Perl 5.8.1 RC4 when "use Foo 1.2.3;" is used -0.21 Fri Aug 15 18:48:53 CEST 2003 +0.21 2003-08-15 18:48:53 CEST - Added licensing information to Module::Info POD - * Added modules_required(). Original patch by Martyn J. Pearce, + - Added modules_required(). Original patch by Martyn J. Pearce, adapted by me (Mattia Barbon) -0.20 Thu May 22 10:30:31 CEST 2003 +0.20 2003-05-22 10:30:31 CEST - Fixed a warning in module_info (thanks to Nathan Torkington) - Corrected number of skipped tests for Perl versions earlier than 5.6.1 (thanks to Mike Fragassi) - Fixed syntax error with Perl 5.004 -0.19 Tue Apr 1 15:45:43 CEST 2003 - * Added package_versions() (patch by Ken Williams) +0.19 2003-04-1 15:45:43 CEST + - Added package_versions() (patch by Ken Williams) - Fixed handling of v-strings in use/require -0.18 Sat Mar 8 17:44:24 CET 2003 - * Upgraded bundled B::Utils to 0.04 + Schwern patches +0.18 2003-03-8 17:44:24 CET + - Upgraded bundled B::Utils to 0.04 + Schwern patches - Fixed detection of require() statements in non-trivial BEGIN blocks -0.17 Sun Mar 2 11:01:55 CET 2003 - + Added module_info +0.17 2003-03-2 11:01:55 CET + - Added module_info - Fixed a warning when enumerating packages -0.16 Wed Jan 1 21:21:31 CET 2003 +0.16 2003-01-1 21:21:31 CET - Capture stderr output on MacOS Classic (thanks to Axel Rose for the patch) -0.15 Mon Dec 23 15:08:14 CET 2002 - * Added die_on_compilation_error() method. - * MacOS classic: fixed methods requiring loading. +0.15 2002-12-23 15:08:14 CET + - Added die_on_compilation_error() method. + - MacOS classic: fixed methods requiring loading. -0.14 Sun Dec 8 11:42:11 CET 2002 +0.14 2002-12-8 11:42:11 CET - Don't show modules loaded via $ENV{PERL5OPT} - Fixed the case where an op may be NULL when searching for require -0.13 Sat Dec 7 10:29:42 CET 2002 +0.13 2002-12-7 10:29:42 CET - pfunc can now distinguish between class and object methods - B::Utils no longer loading Exporter to avoid loading a bunch of modules @@ -107,71 +123,72 @@ - Quote filename in the call to B::Module::Info, allows using directories with spaces - Fixed the case where a module does not have any BEGIN blocks - * Fixed non-bareword require in a BEGIN block - * Fixed require $foo - * Fixed BEGIN blocks not containing a require - * Scan subroutines when searching for required modules - * Fixed various problems with perl 5.6.1 on Win32 + - Fixed non-bareword require in a BEGIN block + - Fixed require $foo + - Fixed BEGIN blocks not containing a require + - Scan subroutines when searching for required modules + - Fixed various problems with perl 5.6.1 on Win32 (probably due to ithreads) - Use IPC::Open3 under Windows 95/98/ME, since 2>&1 does not work -0.12 Sat Feb 2 19:41:01 EST 2002 - * Added pfunc +0.12 2002-02-2 19:41:01 EST + - Added pfunc - Now tested back to 5.004 - * Fixed a bug where certain modules were being ignored + - Fixed a bug where certain modules were being ignored - Fixed a bug in subroutines_called() with EXPR->method() - subroutines_called() now reports properly on function calls with symbolic refs -0.11 Sat Feb 2 16:54:23 EST 2002 - * Fixed B::Utils->kids - * Added subroutines_called() - * Added superclasses() - * Added dynamic_method_calls() +0.11 2002-02-2 16:54:23 EST + - Fixed B::Utils->kids + - Added subroutines_called() + - Added superclasses() + - Added dynamic_method_calls() - Documented that it isn't just for modules. - name() can now be used to set - failures inside B::Module::Info now report their errors instead of failing silently - * Added a THANKS section. + - Added a THANKS section. -0.10 Wed Dec 12 05:40:14 EST 2001 - * Windows filenames would cause subroutines() and modules_used() to +0.10 2001-12-12 05:40:14 EST + - Windows filenames would cause subroutines() and modules_used() to choke. (Thanks to Alessandro Forghieri for the patch) -0.09 Mon Dec 10 14:55:09 EST 2001 +0.09 2001-12-10 14:55:09 EST - little bug in modules_used() and "require 5.004" -0.08 Mon Dec 10 14:24:56 EST 2001 - * Implemented modules_used() +0.08 2001-12-10 14:24:56 EST + - Implemented modules_used() - Fixed a little bug in walkoptree_filtered() and $B::Utils::file/line -0.07 Mon Dec 10 11:09:40 EST 2001 - * Implemented subroutines(). Need help getting modules_used() done. +0.07 2001-12-10 11:09:40 EST + - Implemented subroutines(). Need help getting modules_used() done. - Fixed up $B::Utils::file/line handling in B::Utils. - Fixed a little bug in is_core involving cannonical paths. I forget who gave me the patch! -0.06 Sat Nov 24 20:45:15 EST 2001 - * Implemented packages_inside(). Need help getting the rest done. +0.06 2001-11-24 20:45:15 EST + - Implemented packages_inside(). Need help getting the rest done. - Distributing a hacked up version of B::Utils until the main distribution gets fixed. -0.05 Fri Nov 23 18:06:22 EST 2001 +0.05 2001-11-23 18:06:22 EST - Rafael Garcia-Suarez noticed I forgot to deal with code refs in @INC. The plan is to just skip them until someone notices. -0.04 Fri Nov 23 14:49:21 EST 2001 +0.04 2001-11-23 14:49:21 EST - Tassilo von Parseval noted warnings.pm isn't backwards compat. Replaced with $^W. -0.03 Fri Nov 23 00:39:11 EST 2001 +0.03 2001-11-23 00:39:11 EST - Testing all_installed() - Abe Timmerman fixed a little portability bug in the test. -0.02 Thu Nov 22 10:08:00 EST 2001 - * Added new_from_loaded() +0.02 2001-11-22 10:08:00 EST + - Added new_from_loaded() -0.01 Thu Nov 22 09:42:06 EST 2001 - * First working version - * From a discussion on p5p about ExtUtils::MM_Unix->parse_version +0.01 2001-11-22 09:42:06 EST + - First working version + - From a discussion on p5p about ExtUtils::MM_Unix->parse_version http://www.xray.mpe.mpg.de/mailing-lists/perl5-porters/2001-11/msg01263.html + diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Module-Info-0.32/MANIFEST new/Module-Info-0.35/MANIFEST --- old/Module-Info-0.32/MANIFEST 2008-10-25 00:49:59.000000000 +0200 +++ new/Module-Info-0.35/MANIFEST 2013-09-08 14:12:29.000000000 +0200 @@ -14,6 +14,7 @@ t/lib/Boo.pm t/lib/Foo.pm t/lib/Moo.pm +t/lib/Roo.pm t/lib/Test/Builder.pm t/lib/Test/More.pm t/lib/Test/Simple.pm @@ -23,3 +24,4 @@ t/n3_version.t t/zy_pod_coverage.t t/zz_pod.t +META.json diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Module-Info-0.32/META.json new/Module-Info-0.35/META.json --- old/Module-Info-0.32/META.json 1970-01-01 01:00:00.000000000 +0100 +++ new/Module-Info-0.35/META.json 2013-09-08 14:12:29.000000000 +0200 @@ -0,0 +1,61 @@ +{ + "abstract" : "Information about Perl modules", + "author" : [ + "Mattia Barbon <mbar...@cpan.org>" + ], + "dynamic_config" : 0, + "generated_by" : "Module::Build version 0.4007, CPAN::Meta::Converter version 2.120921", + "license" : [ + "perl_5" + ], + "meta-spec" : { + "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec";, + "version" : "2" + }, + "name" : "Module-Info", + "prereqs" : { + "configure" : { + "requires" : { + "Module::Build" : "0.40" + } + }, + "runtime" : { + "requires" : { + "File::Spec" : "0.08" + } + } + }, + "provides" : { + "B::BUtils" : { + "file" : "lib/B/BUtils.pm", + "version" : 0 + }, + "B::Module::Info" : { + "file" : "lib/B/Module/Info.pm", + "version" : "0.24" + }, + "B::Utils" : { + "file" : "lib/B/BUtils.pm", + "version" : "0.04_02" + }, + "Module::Info" : { + "file" : "lib/Module/Info.pm", + "version" : "0.35" + }, + "Module::Info::Safe" : { + "file" : "lib/Module/Info.pm", + "version" : 0 + }, + "Module::Info::Unsafe" : { + "file" : "lib/Module/Info.pm", + "version" : 0 + } + }, + "release_status" : "stable", + "resources" : { + "license" : [ + "http://dev.perl.org/licenses/"; + ] + }, + "version" : "0.35" +} diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Module-Info-0.32/META.yml new/Module-Info-0.35/META.yml --- old/Module-Info-0.32/META.yml 2010-09-08 23:30:26.000000000 +0200 +++ new/Module-Info-0.35/META.yml 2013-09-08 14:12:29.000000000 +0200 @@ -1,23 +1,38 @@ -# http://module-build.sourceforge.net/META-spec.html -name: Module-Info -version: 0.32 -version_from: lib/Module/Info.pm -installdirs: site -author: Mattia Barbon <mbar...@cpan.org> -abstract: Information about Perl modules -license: perl -requires: - File::Spec: 0.8 -#build_requires: -no_index: - directory: - - t - -# extras. +--- +abstract: 'Information about Perl modules' +author: + - 'Mattia Barbon <mbar...@cpan.org>' +build_requires: {} +configure_requires: + Module::Build: 0.40 dynamic_config: 0 - -distribution_type: module -generated_by: ExtUtils::MY_Metafile version 0.09, EUMM-6.56. +generated_by: 'Module::Build version 0.4007, CPAN::Meta::Converter version 2.120921' +license: perl meta-spec: - version: 1.3 - url: http://module-build.sourceforge.net/META-spec-v1.3.html + url: http://module-build.sourceforge.net/META-spec-v1.4.html + version: 1.4 +name: Module-Info +provides: + B::BUtils: + file: lib/B/BUtils.pm + version: 0 + B::Module::Info: + file: lib/B/Module/Info.pm + version: 0.24 + B::Utils: + file: lib/B/BUtils.pm + version: 0.04_02 + Module::Info: + file: lib/Module/Info.pm + version: 0.35 + Module::Info::Safe: + file: lib/Module/Info.pm + version: 0 + Module::Info::Unsafe: + file: lib/Module/Info.pm + version: 0 +requires: + File::Spec: 0.08 +resources: + license: http://dev.perl.org/licenses/ +version: 0.35 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Module-Info-0.32/Makefile.PL new/Module-Info-0.35/Makefile.PL --- old/Module-Info-0.32/Makefile.PL 2008-10-25 00:49:59.000000000 +0200 +++ new/Module-Info-0.35/Makefile.PL 2013-09-08 14:12:29.000000000 +0200 @@ -27,15 +27,7 @@ CHANGE_WARN } -eval { - require ExtUtils::MY_Metafile; - ExtUtils::MY_Metafile->import; - - my_metafile - ( { license => 'perl', - dynamic_config => 0, - } ); -}; +( my $mmv = ExtUtils::MakeMaker->VERSION ) =~ s/_//g; WriteMakefile( NAME => $PACKAGE, @@ -48,9 +40,22 @@ }, EXE_FILES => [qw(bin/pfunc bin/module_info)], PL_FILES => {}, # skip Build.PL + ($mmv >= 6.31 ? (LICENSE => 'perl') : ()), ( $] >= 5.005 ? ( AUTHOR => 'Mattia Barbon <mbar...@cpan.org>' ) : () ), + ($mmv <= 6.45 ? () : (META_MERGE => { + resources => { + repository => 'https://github.com/mbarbon/module-info' + }, + }) + ), + ( $mmv >= 6.47 ? + ( META_MERGE => { license => 'perl', + dynamic_config => 0, + } + ) : + () ) ); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Module-Info-0.32/bin/module_info new/Module-Info-0.35/bin/module_info --- old/Module-Info-0.32/bin/module_info 2008-10-25 00:49:59.000000000 +0200 +++ new/Module-Info-0.35/bin/module_info 2013-09-08 14:12:29.000000000 +0200 @@ -2,7 +2,7 @@ =head1 NAME -module_info - find informations about modules +module_info - find information about modules =head1 SYNOPSIS @@ -14,7 +14,7 @@ C<Module::Name> or paths in the form C<Foo/Bar.pm> or C<foo/bar.pl>). By default only shows module name, version, directory, absolute path -and a flag indicating if it is a core module. Additional informations +and a flag indicating if it is a core module. Additional information can be requested through command line switches. =over 4 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Module-Info-0.32/lib/B/Module/Info.pm new/Module-Info-0.35/lib/B/Module/Info.pm --- old/Module-Info-0.32/lib/B/Module/Info.pm 2008-10-25 00:49:59.000000000 +0200 +++ new/Module-Info-0.35/lib/B/Module/Info.pm 2013-09-08 14:12:29.000000000 +0200 @@ -7,6 +7,12 @@ opgrep all_roots); @B::Utils::bad_stashes = qw(); # give us everything. +=head1 NAME + +B::Module::Info - information about Perl modules + +=cut + { # From: Roland Walker <wal...@ncbi.nlm.nih.gov> # "Syntax OK" may land inside output and render it unusable diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Module-Info-0.32/lib/Module/Info.pm new/Module-Info-0.35/lib/Module/Info.pm --- old/Module-Info-0.32/lib/Module/Info.pm 2010-09-08 23:27:25.000000000 +0200 +++ new/Module-Info-0.35/lib/Module/Info.pm 2013-09-08 14:12:29.000000000 +0200 @@ -10,7 +10,7 @@ use vars qw($VERSION @ISA $AUTOLOAD); # quotes 'version' for 5.004 -$VERSION = eval 'use version; 1' ? 'version'->new('0.32') : '0.32'; +$VERSION = eval 'use version; 1' ? 'version'->new('0.35') : '0.35'; $VERSION = eval $VERSION; @@ -237,6 +237,13 @@ next if $inpod || /^\s*#/; chomp; + # taken from ExtUtils::MM_Unix 6.63_02 + next if /^\s*(if|unless|elsif)/; + if (m{^\s*package\s+\w[\w\:\']*\s+(v?[0-9._]+)\s*;}) { + local $^W = 0; + $result = $1; + last; + } next unless /([\$*])(([\w\:\']*)\bVERSION)\b.*\=/; my $eval = sprintf qq{ package Module::Info::_version; @@ -320,7 +327,7 @@ The following methods get their information by compiling the module and examining the opcode tree. The module will be compiled in a -seperate process so as not to disturb the current program. +separate process so as not to disturb the current program. They will only work on 5.6.1 and up and requires the B::Utils module. @@ -734,7 +741,7 @@ Code refs in @INC are currently ignored. If this bothers you submit a patch. -superclasses() is cheating and just loading the module in a seperate +superclasses() is cheating and just loading the module in a separate process and looking at @ISA. I don't think its worth the trouble to go through and parse the opcode tree as it still requires loading the module and running all the BEGIN blocks. Patches welcome. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Module-Info-0.32/t/Module-Info.t new/Module-Info-0.35/t/Module-Info.t --- old/Module-Info-0.32/t/Module-Info.t 2010-09-08 23:28:29.000000000 +0200 +++ new/Module-Info-0.35/t/Module-Info.t 2013-09-08 14:12:29.000000000 +0200 @@ -6,11 +6,11 @@ my $has_version_pm = eval 'use version; 1'; my $version_pm_VERSION = $has_version_pm ? 'version'->VERSION : 0; -my $Mod_Info_VERSION = '0.32'; +my $Mod_Info_VERSION = '0.35'; # 0.280 vith version.pm, 0.28 without, except for development versions -my $Mod_Info_Pack_VERSION = !$has_version_pm ? '0.32' : # 0.3101 - $has_version_pm && $version_pm_VERSION > '0.72' ? '0.32' : # 0.3101 - '0.32'; # 0.310001 +my $Mod_Info_Pack_VERSION = !$has_version_pm ? '0.35' : # 0.3101 + $has_version_pm && $version_pm_VERSION > '0.72' ? '0.35' : # 0.3101 + '0.35'; # 0.310001 my @old5lib = defined $ENV{PERL5LIB} ? ($ENV{PERL5LIB}) : (); $ENV{PERL5LIB} = join $Config{path_sep}, 'blib/lib', @old5lib; @@ -96,7 +96,8 @@ my @mods = $mod_info->modules_used; my @expected = qw(strict File::Spec Config Carp IPC::Open3 vars Safe); - push @expected, 'Exporter' if $] < 5.008; + push @expected, 'Exporter' if grep /^Exporter$/, @mods; + # many old versions of these modules loaded the Exporter: is( @mods, @expected, 'Found all modules used' ); is_deeply( [sort @mods], [sort @expected], ' the right ones' ); @@ -115,29 +116,27 @@ ok( !$mod_info->is_core, ' not a core module' ); -# Grab the core version of Text::Soundex and hope it hasn't been +# Grab the core version of Class::Struct and hope it hasn't been # deleted. @core_inc = map { File::Spec->canonpath($_) } ($Config{installarchlib}, $Config{installprivlib}, $Config{archlib}, $Config{privlib}); -$mod_info = Module::Info->new_from_module('Text::Soundex', @core_inc); +$mod_info = Module::Info->new_from_module('Class::Struct', @core_inc); if( $mod_info ) { - is( $mod_info->name, 'Text::Soundex', ' name()' ); - - # dunno what the version will be, 5.004's had none. + is( $mod_info->name, 'Class::Struct', ' name()' ); ok( grep($mod_info->inc_dir eq $_, @core_inc), ' inc_dir()' ); is( $mod_info->file, - File::Spec->catfile( $mod_info->inc_dir, 'Text', 'Soundex.pm' ), + File::Spec->catfile( $mod_info->inc_dir, 'Class', 'Struct.pm' ), ' file()'); ok( $mod_info->is_core, ' core module' ); } else { - $mod_info = Module::Info->new_from_module('Text::Soundex'); + $mod_info = Module::Info->new_from_module('Class::Struct'); - ok( $mod_info, 'could load Text::Soundex' ); - ok( $mod_info, 'could load Text::Soundex' ); - ok( $mod_info, 'could load Text::Soundex' ); - ok( $mod_info, 'could load Text::Soundex' ); + ok( $mod_info, 'could load Class::Struct' ); + ok( $mod_info, 'could load Class::Struct' ); + ok( $mod_info, 'could load Class::Struct' ); + ok( $mod_info, 'could load Class::Struct' ); } $mod_info = Module::Info->new_from_loaded('Module::Info'); @@ -301,6 +300,6 @@ $module = Module::Info->new_from_file('t/lib/Bar.pm'); @mods = $module->modules_used; is( @mods, 3, 'modules_used with complex BEGIN block' ); - is_deeply( sort @mods, - (sort qw(Cwd Carp strict)) ); + is_deeply( [sort @mods], + [sort qw(Cwd Carp strict)] ); } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Module-Info-0.32/t/lib/Roo.pm new/Module-Info-0.35/t/lib/Roo.pm --- old/Module-Info-0.32/t/lib/Roo.pm 1970-01-01 01:00:00.000000000 +0100 +++ new/Module-Info-0.35/t/lib/Roo.pm 2013-09-08 14:12:29.000000000 +0200 @@ -0,0 +1,3 @@ +package Roo 1.25; + +1; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Module-Info-0.32/t/n3_version.t new/Module-Info-0.35/t/n3_version.t --- old/Module-Info-0.32/t/n3_version.t 2008-10-25 00:49:59.000000000 +0200 +++ new/Module-Info-0.35/t/n3_version.t 2013-09-08 14:12:29.000000000 +0200 @@ -2,15 +2,17 @@ use strict; use lib 't/lib'; -use Test::More tests => 14; +use Test::More tests => 15; use Module::Info; my $has_version_pm = eval 'use version; 1'; my $moo = Module::Info->new_from_module( 'Moo' ); my $boo = Module::Info->new_from_module( 'Boo' ); +my $roo = Module::Info->new_from_module( 'Roo' ); my $moo_ver; my $foo_ver; +my $roo_ver; if( $has_version_pm ) { $moo_ver = Module::Info->new_from_module( 'Moo' ); @@ -22,6 +24,7 @@ is( $moo->use_version, 0 ); is( $moo->version, '0.12' ); is( $boo->version, '1.35', 'proper quoting in complex expression' ); +is( $roo->version, '1.25', 'package NAME VERSION' ); SKIP: { skip 'version.pm not found', 5 unless $has_version_pm; -- To unsubscribe, e-mail: opensuse-commit+unsubscr...@opensuse.org For additional commands, e-mail: opensuse-commit+h...@opensuse.org
