Hello community, here is the log from the commit of package perl-Sub-Identify for openSUSE:Factory checked in at 2015-09-08 17:43:03 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Sub-Identify (Old) and /work/SRC/openSUSE:Factory/.perl-Sub-Identify.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Sub-Identify" Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Sub-Identify/perl-Sub-Identify.changes 2015-04-15 16:26:55.000000000 +0200 +++ /work/SRC/openSUSE:Factory/.perl-Sub-Identify.new/perl-Sub-Identify.changes 2015-09-08 17:47:29.000000000 +0200 @@ -1,0 +2,6 @@ +Fri Sep 4 09:47:59 UTC 2015 - [email protected] + +- updated to 0.11 + see /usr/share/doc/packages/perl-Sub-Identify/Changes + +------------------------------------------------------------------- Old: ---- Sub-Identify-0.10.tar.gz New: ---- Sub-Identify-0.11.tar.gz cpanspec.yml ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Sub-Identify.spec ++++++ --- /var/tmp/diff_new_pack.17aDFW/_old 2015-09-08 17:47:31.000000000 +0200 +++ /var/tmp/diff_new_pack.17aDFW/_new 2015-09-08 17:47:31.000000000 +0200 @@ -17,14 +17,15 @@ Name: perl-Sub-Identify -Version: 0.10 +Version: 0.11 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/ -Source: http://www.cpan.org/authors/id/R/RG/RGARCIA/%{cpan_name}-%{version}.tar.gz +Source0: http://www.cpan.org/authors/id/R/RG/RGARCIA/%{cpan_name}-%{version}.tar.gz +Source1: cpanspec.yml BuildRoot: %{_tmppath}/%{name}-%{version}-build BuildRequires: perl BuildRequires: perl-macros ++++++ Sub-Identify-0.10.tar.gz -> Sub-Identify-0.11.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sub-Identify-0.10/Identify.xs new/Sub-Identify-0.11/Identify.xs --- old/Sub-Identify-0.10/Identify.xs 2015-01-02 13:29:47.000000000 +0100 +++ new/Sub-Identify-0.11/Identify.xs 2015-09-04 09:19:40.000000000 +0200 @@ -45,7 +45,7 @@ PPCODE: if (SvOK(coderef) && SvROK(coderef) && SvTYPE(SvRV(coderef)) == SVt_PVCV) { coderef = SvRV(coderef); - if (CvSTART(coderef)) { + if (CvSTART(coderef) && !CvISXSUB(coderef)) { file = CvFILE(coderef); line = CopLINE((const COP*)CvSTART(coderef)); EXTEND(SP, 2); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sub-Identify-0.10/MANIFEST new/Sub-Identify-0.11/MANIFEST --- old/Sub-Identify-0.10/MANIFEST 2015-01-02 13:30:00.000000000 +0100 +++ new/Sub-Identify-0.11/MANIFEST 2015-09-04 09:19:40.000000000 +0200 @@ -8,10 +8,13 @@ t/04codelocation-pureperl.t t/05constant.t 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 +t/30signatures.t Makefile.PL MANIFEST MANIFEST.SKIP @@ -19,4 +22,3 @@ 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.10/META.json new/Sub-Identify-0.11/META.json --- old/Sub-Identify-0.10/META.json 2015-01-02 13:30:00.000000000 +0100 +++ new/Sub-Identify-0.11/META.json 1970-01-01 01:00:00.000000000 +0100 @@ -1,31 +0,0 @@ -{ - "abstract" : "Retrieve names of code references", - "author" : [ - "unknown" - ], - "dynamic_config" : 1, - "generated_by" : "ExtUtils::MakeMaker version 6.59, CPAN::Meta::Converter version 2.112150", - "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.10" -} diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sub-Identify-0.10/META.yml new/Sub-Identify-0.11/META.yml --- old/Sub-Identify-0.10/META.yml 2015-01-02 13:30:00.000000000 +0100 +++ new/Sub-Identify-0.11/META.yml 2015-09-04 09:20:52.000000000 +0200 @@ -1,19 +1,26 @@ ---- -abstract: 'Retrieve names of code references' -author: - - unknown -build_requires: {} -dynamic_config: 1 -generated_by: 'ExtUtils::MakeMaker version 6.59, CPAN::Meta::Converter version 2.112150' -license: perl -meta-spec: - url: http://module-build.sourceforge.net/META-spec-v1.4.html - version: 1.4 -name: Sub-Identify -no_index: - directory: - - t - - inc +--- #YAML:1.0 +name: Sub-Identify +version: 0.11 +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: https://github.com/rgs/Sub-Identify.git -version: 0.10 + 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 +meta-spec: + url: http://module-build.sourceforge.net/META-spec-v1.4.html + version: 2 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sub-Identify-0.10/lib/Sub/Identify.pm new/Sub-Identify-0.11/lib/Sub/Identify.pm --- old/Sub-Identify-0.10/lib/Sub/Identify.pm 2015-01-02 13:29:47.000000000 +0100 +++ new/Sub-Identify-0.11/lib/Sub/Identify.pm 2015-09-04 09:19:40.000000000 +0200 @@ -4,7 +4,7 @@ use Exporter; BEGIN { - our $VERSION = '0.10'; + our $VERSION = '0.11'; our @ISA = ('Exporter'); our %EXPORT_TAGS = ( all => [ @@ -144,7 +144,7 @@ =head1 LICENSE -(c) Rafael Garcia-Suarez (rgs at consttype dot org) 2005, 2008, 2012, 2014 +(c) Rafael Garcia-Suarez (rgs at consttype dot org) 2005, 2008, 2012, 2014, 2015 This program is free software; you may redistribute it and/or modify it under the same terms as Perl itself. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sub-Identify-0.10/t/06codelocxs-pureperl.t new/Sub-Identify-0.11/t/06codelocxs-pureperl.t --- old/Sub-Identify-0.10/t/06codelocxs-pureperl.t 1970-01-01 01:00:00.000000000 +0100 +++ new/Sub-Identify-0.11/t/06codelocxs-pureperl.t 2015-09-04 09:19:40.000000000 +0200 @@ -0,0 +1,13 @@ +#!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; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sub-Identify-0.10/t/06codelocxs.t new/Sub-Identify-0.11/t/06codelocxs.t --- old/Sub-Identify-0.10/t/06codelocxs.t 1970-01-01 01:00:00.000000000 +0100 +++ new/Sub-Identify-0.11/t/06codelocxs.t 2015-09-04 09:19:40.000000000 +0200 @@ -0,0 +1,16 @@ +#!perl + +use strict; +use Test::More tests => 4; +use Sub::Identify ':all'; +use List::Util; + +my ($file, $line); + +($file, $line) = get_code_location \&List::Util::minstr; +ok !defined $file; +ok !defined $line; + +($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.10/t/30signatures.t new/Sub-Identify-0.11/t/30signatures.t --- old/Sub-Identify-0.10/t/30signatures.t 1970-01-01 01:00:00.000000000 +0100 +++ new/Sub-Identify-0.11/t/30signatures.t 2015-09-04 09:19:40.000000000 +0200 @@ -0,0 +1,62 @@ +#!perl + +use strict; + +BEGIN { + if ( $] < 5.020000 ) { + print "1..0 # SKIP: tests won't pass perls before 5.20.0 due to requirement for signatures\n"; + exit; + } +} + +use Test::More tests => 30; +BEGIN { use_ok 'Sub::Identify', ':all'; } + +diag "running pure-Perl version of Sub::Identify" if $Sub::Identify::IsPurePerl; + +use feature 'signatures'; + +no warnings 'experimental'; + +sub buffy ($left, $, $right) { } +sub vamp::spike ($right, $, $, $wrong) { } +*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 ($x, $y, $z) { } ), '__ANON__' ); +my $anon = sub ( $foo, $, $bar) { }; +is( stash_name($anon), 'main' ); +is( sub_fullname($anon), 'main::__ANON__' ); +is( join( '*', get_code_info( sub { 'ah non' } ) ), 'main*__ANON__' ); ++++++ cpanspec.yml ++++++ --- #description_paragraphs: 3 #no_testing: broken upstream #sources: # - source1 # - source2 #patches: # foo.patch: -p1 # bar.patch: #preamble: |- # BuildRequires: gcc-c++ #post_prep: |- # hunspell=`pkg-config --libs hunspell | sed -e 's,-l,,; s, *,,g'` # sed -i -e "s,hunspell-X,$hunspell," t/00-prereq.t Makefile.PL #post_install: |- # sed on %{name}.files #license: SUSE-NonFree #skip_noarch: 1 #custom_build: |- #./Build build flags=%{?_smp_mflags} --myflag #custom_test: |- #startserver && make test #ignore_requires: Bizarre::Module
