Hello community, here is the log from the commit of package perl-Sub-Identify for openSUSE:Factory checked in at 2017-04-11 12:41:54 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Sub-Identify (Old) and /work/SRC/openSUSE:Factory/.perl-Sub-Identify.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Sub-Identify" Tue Apr 11 12:41:54 2017 rev:16 rq:486139 version:0.13 Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Sub-Identify/perl-Sub-Identify.changes 2015-09-11 09:04:45.000000000 +0200 +++ /work/SRC/openSUSE:Factory/.perl-Sub-Identify.new/perl-Sub-Identify.changes 2017-04-11 12:41:55.546039913 +0200 @@ -1,0 +2,6 @@ +Mon Apr 3 06:44:35 UTC 2017 - [email protected] + +- updated to 0.13 + see /usr/share/doc/packages/perl-Sub-Identify/Changes + +------------------------------------------------------------------- Old: ---- Sub-Identify-0.12.tar.gz New: ---- Sub-Identify-0.13.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Sub-Identify.spec ++++++ --- /var/tmp/diff_new_pack.OjcVES/_old 2017-04-11 12:41:56.257939325 +0200 +++ /var/tmp/diff_new_pack.OjcVES/_new 2017-04-11 12:41:56.261938760 +0200 @@ -1,7 +1,7 @@ # # spec file for package perl-Sub-Identify # -# Copyright (c) 2015 SUSE LINUX GmbH, Nuernberg, Germany. +# Copyright (c) 2017 SUSE LINUX 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,14 +17,14 @@ Name: perl-Sub-Identify -Version: 0.12 +Version: 0.13 Release: 0 %define cpan_name Sub-Identify Summary: Retrieve names of code references License: Artistic-1.0 or GPL-1.0+ Group: Development/Libraries/Perl Url: http://search.cpan.org/dist/Sub-Identify/ -Source0: http://www.cpan.org/authors/id/R/RG/RGARCIA/%{cpan_name}-%{version}.tar.gz +Source0: https://cpan.metacpan.org/authors/id/R/RG/RGARCIA/%{cpan_name}-%{version}.tar.gz Source1: cpanspec.yml BuildRoot: %{_tmppath}/%{name}-%{version}-build BuildRequires: perl ++++++ Sub-Identify-0.12.tar.gz -> Sub-Identify-0.13.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sub-Identify-0.12/Changes new/Sub-Identify-0.13/Changes --- old/Sub-Identify-0.12/Changes 2015-09-08 08:00:40.000000000 +0200 +++ new/Sub-Identify-0.13/Changes 2017-04-02 17:20:24.000000000 +0200 @@ -1,75 +1,88 @@ -0.12- Rafael Garcia-Suarez (2): - Update changes for 0.11 - Fix build on perl 5.8 - -0.11- B. Estrade (1): - Adding new test for signatures as part of Feb 2015 PRC. - - Rafael Garcia-Suarez (8): - Bump version to 0.10 - Merge pull request #6 from estrabd/Issue-5-add-signature-test - Fix skipping tests on earliers perls - Add new test to MANIFEST - Do not let get_code_location() segfault on XSUBs - Add a test for calling get_code_location on XSUBs - Add a pure-perl version of last test - Bump version - -0.10- No changes - -0.09- A. Sinan Unur (1): - Fix test failure due to hard-coded filenames. - -0.08- Rafael Garcia-Suarez (2): - Require at least perl 5.8.0 - Improve docs beyond a really terse synopsis - -0.07- Rafael Garcia-Suarez (1): - Require B unconditionally on older perls - -0.06- Rafael Garcia-Suarez (4): - Remove perl version requirement - Skip tests that rely on perls more recent than 5.14.0 - Update ppport.h - Use the pure-perl version of is_sub_constant on perls earlier than 5.16 - -0.05- Rafael Garcia-Suarez (13): - Add test for function prototypes - Require at least perl 5.14.1 - Better, simpler code for testing if we can load the XS version - Add gitignore file - Experimental implementation of get_code_location - Add XS implementation of get_code_location() - Add test for the prototype of get_code_location - Make get_code_location work on undefined subs - Add link to github repo in the meta file - Add TODO file - Add pure-perl implementation of is_sub_constant() - Add XS implemetation of is_constant_sub() - Add documentation - -0.04- Rafael Garcia-Suarez (9): - First stab as a dual implementation XS / pure Perl - Update MANIFEST and add ppport.h from bleadperl - Bump version to 0.04 - Add license to Makefile.PL - Re-add "use strict" - Mortalize return values - Add tests for a bug reported on P5P by Renée Bäcker - Fix segfault / compilation error by returning nothing for a sub being compiled - Regenerate META.yml - -0.03- Rafael Garcia-Suarez (13): - Import Sub-Identify 0.02 - Add MANIFEST.SKIP file - Add get_code_info, as suggested by Shawn M Moore - Export get_code_info() - Add tests for get_code_info() - More tests for undefined subroutines - Fix email address - New tests for errors - Merge branch 'moose' - Add pod test file - Pre-require Test::More - Add copyright and license - Bump version and regenerate the META.yml +Revision history for CPAN module Sub::Identify + +0.13 2017-04-02 RGARCIA + - Reformatted Changes to follow basic format in CPAN::Changes::Spec + - Make tests pass without . in @INC + +0.12 2015-09-08 RGARCIA + - Update changes for 0.11 + - Fix build on perl 5.8 + +0.11 2015-09-04 RGARCIA + - Adding new test for signatures as part of Feb 2015 PRC + from B. Estrade + - Merge pull request #6 from estrabd/Issue-5-add-signature-test + - Fix skipping tests on earliers perls + - Add new test to MANIFEST + - Do not let get_code_location() segfault on XSUBs + - Add a test for calling get_code_location on XSUBs + - Add a pure-perl version of last test + +0.10 2015-01-02 RGARCIA + - No changes + +0.09 2014-12-31 RGARCIA + - Fix test failure due to hard-coded filenames. + From A. Sinan Unur + +0.08 2014-09-17 RGARCIA + - Require at least perl 5.8.0 + - Improve docs beyond a really terse synopsis + +0.07 2014-09-11 RGARCIA + - Require B unconditionally on older perls + +0.06 2014-09-10 RGARCIA + - Remove perl version requirement + - Skip tests that rely on perls more recent than 5.14.0 + - Update ppport.h + - Use the pure-perl version of is_sub_constant on perls earlier than 5.16 + +0.05 2014-09-10 RGARCIA + - Add test for function prototypes + - Require at least perl 5.14.1 + - Better, simpler code for testing if we can load the XS version + - Add gitignore file + - Experimental implementation of get_code_location + - Add XS implementation of get_code_location() + - Add test for the prototype of get_code_location + - Make get_code_location work on undefined subs + - Add link to github repo in the meta file + - Add TODO file + - Add pure-perl implementation of is_sub_constant() + - Add XS implemetation of is_constant_sub() + - Add documentation + +0.04 2008-12-15 RGARCIA + - First stab as a dual implementation XS / pure Perl + - Update MANIFEST and add ppport.h from bleadperl + - Bump version to 0.04 + - Add license to Makefile.PL + - Re-add "use strict" + - Mortalize return values + - Add tests for a bug reported on P5P by Renée Bäcker + - Fix segfault / compilation error by returning nothing + for a sub being compiled + - Regenerate META.yml + +0.03 2008-05-19 RGARCIA + - Import Sub-Identify 0.02 + - Add MANIFEST.SKIP file + - Add get_code_info, as suggested by Shawn M Moore + - Export get_code_info() + - Add tests for get_code_info() + - More tests for undefined subroutines + - Fix email address + - New tests for errors + - Merge branch 'moose' + - Add pod test file + - Pre-require Test::More + - Add copyright and license + - Bump version and regenerate the META.yml + +0.02 2005-05-13 RGARCIA + - Unknown changes + +0.01 2005-05-13 RGARCIA + - First release to CPAN + diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sub-Identify-0.12/MANIFEST new/Sub-Identify-0.13/MANIFEST --- old/Sub-Identify-0.12/MANIFEST 2015-09-08 08:00:40.000000000 +0200 +++ new/Sub-Identify-0.13/MANIFEST 2017-04-02 17:21:01.000000000 +0200 @@ -2,6 +2,7 @@ Identify.xs ppport.h t/01basic.t +t/01basic-pureperl.t t/02errors.t t/03proto.t t/04codelocation.t @@ -10,7 +11,6 @@ t/05constant-pureperl.t t/06codelocxs.t t/06codelocxs-pureperl.t -t/10pureperl-basic.t t/pod.t t/20attributes.t t/21attributes-pureperl.t @@ -22,3 +22,4 @@ META.yml Module meta-data (added by MakeMaker) README.mdown TODO.mdown +META.json Module JSON meta-data (added by MakeMaker) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sub-Identify-0.12/META.json new/Sub-Identify-0.13/META.json --- old/Sub-Identify-0.12/META.json 1970-01-01 01:00:00.000000000 +0100 +++ new/Sub-Identify-0.13/META.json 2017-04-02 17:21:01.000000000 +0200 @@ -0,0 +1,31 @@ +{ + "abstract" : "Retrieve names of code references", + "author" : [ + "unknown" + ], + "dynamic_config" : 1, + "generated_by" : "ExtUtils::MakeMaker version 6.66, CPAN::Meta::Converter version 2.140640", + "license" : [ + "perl_5" + ], + "meta-spec" : { + "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec";, + "version" : "2" + }, + "name" : "Sub-Identify", + "no_index" : { + "directory" : [ + "t", + "inc" + ] + }, + "release_status" : "stable", + "resources" : { + "repository" : { + "type" : "git", + "url" : "https://github.com/rgs/Sub-Identify.git";, + "web" : "https://github.com/rgs/Sub-Identify"; + } + }, + "version" : "0.13" +} diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sub-Identify-0.12/META.yml new/Sub-Identify-0.13/META.yml --- old/Sub-Identify-0.12/META.yml 2015-09-08 08:00:53.000000000 +0200 +++ new/Sub-Identify-0.13/META.yml 2017-04-02 17:21:01.000000000 +0200 @@ -1,26 +1,19 @@ ---- #YAML:1.0 -name: Sub-Identify -version: 0.12 -abstract: Retrieve names of code references -author: [] -license: perl -distribution_type: module -configure_requires: - ExtUtils::MakeMaker: 0 -build_requires: - ExtUtils::MakeMaker: 0 -requires: - Test::More: 0 -resources: - repository: - type: git - url: https://github.com/rgs/Sub-Identify.git - web: https://github.com/rgs/Sub-Identify -no_index: - directory: - - t - - inc -generated_by: ExtUtils::MakeMaker version 6.57_05 +--- +abstract: 'Retrieve names of code references' +author: + - unknown +build_requires: {} +dynamic_config: 1 +generated_by: 'ExtUtils::MakeMaker version 6.66, CPAN::Meta::Converter version 2.140640' +license: perl meta-spec: - url: http://module-build.sourceforge.net/META-spec-v1.4.html - version: 2 + url: http://module-build.sourceforge.net/META-spec-v1.4.html + version: '1.4' +name: Sub-Identify +no_index: + directory: + - t + - inc +resources: + repository: https://github.com/rgs/Sub-Identify.git +version: '0.13' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sub-Identify-0.12/lib/Sub/Identify.pm new/Sub-Identify-0.13/lib/Sub/Identify.pm --- old/Sub-Identify-0.12/lib/Sub/Identify.pm 2015-09-08 08:00:40.000000000 +0200 +++ new/Sub-Identify-0.13/lib/Sub/Identify.pm 2017-04-02 17:19:25.000000000 +0200 @@ -4,7 +4,7 @@ use Exporter; BEGIN { - our $VERSION = '0.12'; + our $VERSION = '0.13'; our @ISA = ('Exporter'); our %EXPORT_TAGS = ( all => [ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sub-Identify-0.12/t/01basic-pureperl.t new/Sub-Identify-0.13/t/01basic-pureperl.t --- old/Sub-Identify-0.12/t/01basic-pureperl.t 1970-01-01 01:00:00.000000000 +0100 +++ new/Sub-Identify-0.13/t/01basic-pureperl.t 2016-03-23 10:13:35.000000000 +0100 @@ -0,0 +1,3 @@ +#!perl +BEGIN { $ENV{PERL_SUB_IDENTIFY_PP} = 1 } +do 't/01basic.t'; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sub-Identify-0.12/t/01basic.t new/Sub-Identify-0.13/t/01basic.t --- old/Sub-Identify-0.12/t/01basic.t 2015-09-08 08:00:40.000000000 +0200 +++ new/Sub-Identify-0.13/t/01basic.t 2016-03-23 10:13:35.000000000 +0100 @@ -1,10 +1,11 @@ #!perl -use Test::More tests => 30; +use Test::More tests => 31; BEGIN { use_ok 'Sub::Identify', ':all' } -diag "running pure-Perl version of Sub::Identify" if $Sub::Identify::IsPurePerl; +my $expected_pureperl = $0 =~ m/pureperl/ + 0; +is($Sub::Identify::IsPurePerl, $expected_pureperl, "pure-perl Sub::Identify flag is $expected_pureperl"); sub buffy { } sub vamp::spike { } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sub-Identify-0.12/t/04codelocation-pureperl.t new/Sub-Identify-0.13/t/04codelocation-pureperl.t --- old/Sub-Identify-0.12/t/04codelocation-pureperl.t 2015-09-08 08:00:40.000000000 +0200 +++ new/Sub-Identify-0.13/t/04codelocation-pureperl.t 2016-03-23 10:13:35.000000000 +0100 @@ -1,26 +1,3 @@ #!perl BEGIN { $ENV{PERL_SUB_IDENTIFY_PP} = 1 } -use Test::More tests => 6; -use Sub::Identify ':all'; - -sub newton { - print; - print; - print; - print; - print; - print; - print; -} -*hooke = *newton; -for ( \&newton, \&hooke ) { - my ($file, $line) = get_code_location($_); - is( $file, $0, 'file' ); - is( $line, 7, 'line' ); -} -{ - sub pauli; - my ($file, $line) = get_code_location(\&pauli); - ok( !defined $file, 'no definition, no file' ); - ok( !defined $line, 'no definition, no line' ); -} +do 't/04codelocation.t' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sub-Identify-0.12/t/04codelocation.t new/Sub-Identify-0.13/t/04codelocation.t --- old/Sub-Identify-0.12/t/04codelocation.t 2015-09-08 08:00:40.000000000 +0200 +++ new/Sub-Identify-0.13/t/04codelocation.t 2016-03-23 10:13:35.000000000 +0100 @@ -15,7 +15,7 @@ *hooke = *newton; for ( \&newton, \&hooke ) { my ($file, $line) = get_code_location($_); - is( $file, $0, 'file' ); + is( $file, __FILE__, 'file' ); is( $line, 7, 'line' ); } { diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sub-Identify-0.12/t/06codelocxs-pureperl.t new/Sub-Identify-0.13/t/06codelocxs-pureperl.t --- old/Sub-Identify-0.12/t/06codelocxs-pureperl.t 2015-09-08 08:00:40.000000000 +0200 +++ new/Sub-Identify-0.13/t/06codelocxs-pureperl.t 2016-03-23 10:13:35.000000000 +0100 @@ -1,13 +1,4 @@ #!perl BEGIN { $ENV{PERL_SUB_IDENTIFY_PP} = 1 } -use strict; -use Test::More tests => 2; -use Sub::Identify ':all'; -use List::Util; - -my ($file, $line); - -($file, $line) = get_code_location \&List::Util::minstr; -ok !defined $file; -ok !defined $line; +do 't/06codelocxs.t' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sub-Identify-0.12/t/06codelocxs.t new/Sub-Identify-0.13/t/06codelocxs.t --- old/Sub-Identify-0.12/t/06codelocxs.t 2015-09-08 08:00:40.000000000 +0200 +++ new/Sub-Identify-0.13/t/06codelocxs.t 2016-03-23 10:13:35.000000000 +0100 @@ -11,6 +11,9 @@ ok !defined $file; ok !defined $line; -($file, $line) = get_code_location \&Sub::Identify::get_code_location; -ok !defined $file; -ok !defined $line; +SKIP: { + skip('get_code_location() is a perl sub', 2) if ($0 =~ m/pureperl/); + ($file, $line) = get_code_location \&Sub::Identify::get_code_location; + ok !defined $file; + ok !defined $line; +} diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sub-Identify-0.12/t/10pureperl-basic.t new/Sub-Identify-0.13/t/10pureperl-basic.t --- old/Sub-Identify-0.12/t/10pureperl-basic.t 2015-09-08 08:00:40.000000000 +0200 +++ new/Sub-Identify-0.13/t/10pureperl-basic.t 1970-01-01 01:00:00.000000000 +0100 @@ -1,52 +0,0 @@ -#!perl - -BEGIN { $ENV{PERL_SUB_IDENTIFY_PP} = 1 } - -use Test::More tests => 31; - -BEGIN { use_ok 'Sub::Identify', ':all' } - -ok($Sub::Identify::IsPurePerl, "running a pure-perl Sub::Identify"); - -sub buffy { } -sub vamp::spike { } -*slayer = *buffy; -*human::william = \&vamp::spike; - -is( sub_name( \&sub_name ), 'sub_name' ); -is( sub_name( \&buffy ), 'buffy' ); -is( sub_name( \&vamp::spike ), 'spike' ); -is( sub_name( \&slayer ), 'buffy' ); -is( sub_name( \&human::william ), 'spike' ); - -is( stash_name( \&stash_name ), 'Sub::Identify' ); -is( stash_name( \&buffy ), 'main' ); -is( stash_name( \&vamp::spike ), 'vamp' ); -is( stash_name( \&slayer ), 'main' ); -is( stash_name( \&human::william ), 'vamp' ); - -is( sub_fullname( \&sub_fullname ), 'Sub::Identify::sub_fullname' ); -is( sub_fullname( \&buffy ), 'main::buffy' ); -is( sub_fullname( \&vamp::spike ), 'vamp::spike' ); -is( sub_fullname( \&slayer ), 'main::buffy' ); -is( sub_fullname( \&human::william ), 'vamp::spike' ); - -is( join('*', get_code_info( \&sub_fullname )), 'Sub::Identify*sub_fullname' ); -is( join('*', get_code_info( \&buffy )), 'main*buffy' ); -is( join('*', get_code_info( \&vamp::spike )), 'vamp*spike' ); -is( join('*', get_code_info( \&slayer )), 'main*buffy' ); -is( join('*', get_code_info( \&human::william )), 'vamp*spike' ); - -sub xander; -sub vamp::drusilla; -is( sub_name( \&xander ), 'xander', 'undefined subroutine' ); -is( sub_fullname( \&xander ), 'main::xander', 'undefined subroutine' ); -is( join('*', get_code_info( \&xander )), 'main*xander', 'undefined subroutine' ); -is( sub_name( \&vamp::drusilla ), 'drusilla', 'undefined subroutine' ); -is( sub_fullname( \&vamp::drusilla ), 'vamp::drusilla', 'undefined subroutine' ); - -is( sub_name( sub {} ), '__ANON__' ); -my $anon = sub {}; -is( stash_name( $anon ), 'main' ); -is( sub_fullname( $anon ), 'main::__ANON__' ); -is( join('*', get_code_info( sub { 'ah non' } )), 'main*__ANON__' ); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sub-Identify-0.12/t/21attributes-pureperl.t new/Sub-Identify-0.13/t/21attributes-pureperl.t --- old/Sub-Identify-0.12/t/21attributes-pureperl.t 2015-09-08 08:00:40.000000000 +0200 +++ new/Sub-Identify-0.13/t/21attributes-pureperl.t 2017-04-02 17:10:51.000000000 +0200 @@ -1,5 +1,5 @@ #!perl -BEGIN { $ENV{PERL_SUB_IDENTIFY_PP} = 1 } +BEGIN { $ENV{PERL_SUB_IDENTIFY_PP} = 1; push @INC, '.' } require("t/20attributes.t");
