Hello community, here is the log from the commit of package perl-Sub-Name for openSUSE:Factory checked in at 2014-07-26 09:42:02 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Sub-Name (Old) and /work/SRC/openSUSE:Factory/.perl-Sub-Name.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Sub-Name" Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Sub-Name/perl-Sub-Name.changes 2013-03-01 08:03:58.000000000 +0100 +++ /work/SRC/openSUSE:Factory/.perl-Sub-Name.new/perl-Sub-Name.changes 2014-07-26 09:42:11.000000000 +0200 @@ -1,0 +2,12 @@ +Fri Jul 25 09:31:59 UTC 2014 - [email protected] + +- updated to 0.07 + - skip optional test if B::C 1.48 is not installed (Reini Urban) + + 0.06 -- 2014-07-10 + * Do not change the string arg in XS, use copy instead. Fixes perlcc -O3 + RT#96893 (Reini Urban) + * add README make target + * add more distribution metadata + +------------------------------------------------------------------- Old: ---- Sub-Name-0.05.tar.gz New: ---- Sub-Name-0.07.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Sub-Name.spec ++++++ --- /var/tmp/diff_new_pack.vZ3OS9/_old 2014-07-26 09:42:12.000000000 +0200 +++ /var/tmp/diff_new_pack.vZ3OS9/_new 2014-07-26 09:42:12.000000000 +0200 @@ -1,7 +1,7 @@ # # spec file for package perl-Sub-Name # -# Copyright (c) 2013 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 @@ -17,14 +17,14 @@ Name: perl-Sub-Name -Version: 0.05 +Version: 0.07 Release: 0 %define cpan_name Sub-Name -Summary: Assigns a new name to referenced sub +Summary: (re)name a sub License: Artistic-1.0 or GPL-2.0+ Group: Development/Libraries/Perl Url: http://search.cpan.org/dist/Sub-Name/ -Source: http://www.cpan.org/authors/id/F/FL/FLORA/%{cpan_name}-%{version}.tar.gz +Source: http://www.cpan.org/authors/id/E/ET/ETHER/%{cpan_name}-%{version}.tar.gz BuildRoot: %{_tmppath}/%{name}-%{version}-build BuildRequires: perl BuildRequires: perl-macros @@ -33,19 +33,6 @@ %description This module has only one function, which is also exported by default: - subname NAME, CODEREF - -Assigns a new name to referenced sub. If package specification is omitted in -the name, then the current package is used. The return value is the sub. - -The name is only used for informative routines (caller, Carp, etc). You won't -be able to actually invoke the sub by the given name. To allow that, you need -to do glob-assignment yourself. - -Note that for anonymous closures (subs that reference lexicals declared outside -the sub itself) you can name each instance of the closure differently, which -can be very useful for debugging. - %prep %setup -q -n %{cpan_name}-%{version} @@ -61,9 +48,6 @@ %perl_process_packlist %perl_gen_filelist -%clean -%{__rm} -rf %{buildroot} - %files -f %{name}.files %defattr(-,root,root,755) %doc Changes README ++++++ Sub-Name-0.05.tar.gz -> Sub-Name-0.07.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sub-Name-0.05/Changes new/Sub-Name-0.07/Changes --- old/Sub-Name-0.05/Changes 2010-09-08 00:55:19.000000000 +0200 +++ new/Sub-Name-0.07/Changes 2014-07-11 18:32:02.000000000 +0200 @@ -1,3 +1,12 @@ +0.07 -- 2014-07-11 + - skip optional test if B::C 1.48 is not installed (Reini Urban) + +0.06 -- 2014-07-10 + * Do not change the string arg in XS, use copy instead. Fixes perlcc -O3 + RT#96893 (Reini Urban) + * add README make target + * add more distribution metadata + 0.05 -- Wed Sep 8 00:51 CEST 2010 * Stop using the padlist to refcount GVs. Instead use regular magic. This allows various modules, including B::Deparse, to safely peek into pads of diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sub-Name-0.05/MANIFEST new/Sub-Name-0.07/MANIFEST --- old/Sub-Name-0.05/MANIFEST 2010-09-08 00:56:43.000000000 +0200 +++ new/Sub-Name-0.07/MANIFEST 2014-07-11 18:45:35.000000000 +0200 @@ -6,5 +6,7 @@ Name.xs README t/RT42725_deparse.t +t/RT96893_perlcc.t t/smoke.t -META.yml Module meta-data (added by MakeMaker) +META.yml Module YAML meta-data (added by MakeMaker) +META.json Module JSON meta-data (added by MakeMaker) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sub-Name-0.05/MANIFEST.SKIP new/Sub-Name-0.07/MANIFEST.SKIP --- old/Sub-Name-0.05/MANIFEST.SKIP 2010-09-06 23:10:03.000000000 +0200 +++ new/Sub-Name-0.07/MANIFEST.SKIP 2014-07-11 18:45:00.000000000 +0200 @@ -1,3 +1,62 @@ + +#!start included /Users/ether/perl5/perlbrew/perls/21.1/lib/5.21.1/ExtUtils/MANIFEST.SKIP +# Avoid version control files. +\bRCS\b +\bCVS\b +\bSCCS\b +,v$ +\B\.svn\b +\B\.git\b +\B\.gitignore\b +\b_darcs\b +\B\.cvsignore$ + +# Avoid VMS specific MakeMaker generated files +\bDescrip.MMS$ +\bDESCRIP.MMS$ +\bdescrip.mms$ + +# Avoid Makemaker generated and utility files. +\bMANIFEST\.bak +\bMakefile$ +\bblib/ +\bMakeMaker-\d +\bpm_to_blib\.ts$ +\bpm_to_blib$ +\bblibdirs\.ts$ # 6.18 through 6.25 generated this + +# Avoid Module::Build generated and utility files. +\bBuild$ +\b_build/ +\bBuild.bat$ +\bBuild.COM$ +\bBUILD.COM$ +\bbuild.com$ + +# Avoid temp and backup files. +~$ +\.old$ +\#$ +\b\.# +\.bak$ +\.tmp$ +\.# +\.rej$ + +# Avoid OS-specific files/dirs +# Mac OSX metadata +\B\.DS_Store +# Mac OSX SMB mount metadata files +\B\._ + +# Avoid Devel::Cover and Devel::CoverX::Covered files. +\bcover_db\b +\bcovered\b + +# Avoid MYMETA files +^MYMETA\. +#!end included /Users/ether/perl5/perlbrew/perls/21.1/lib/5.21.1/ExtUtils/MANIFEST.SKIP + ^\. build\b blib\b diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sub-Name-0.05/META.json new/Sub-Name-0.07/META.json --- old/Sub-Name-0.05/META.json 1970-01-01 01:00:00.000000000 +0100 +++ new/Sub-Name-0.07/META.json 2014-07-11 18:45:35.000000000 +0200 @@ -0,0 +1,52 @@ +{ + "abstract" : "(re)name a sub", + "author" : [ + "Matthijs van Duin <[email protected]>" + ], + "dynamic_config" : 0, + "generated_by" : "ExtUtils::MakeMaker version 6.98, CPAN::Meta::Converter version 2.141520", + "license" : [ + "unknown" + ], + "meta-spec" : { + "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec";, + "version" : "2" + }, + "name" : "Sub-Name", + "no_index" : { + "directory" : [ + "t", + "inc" + ] + }, + "prereqs" : { + "build" : { + "requires" : { + "ExtUtils::MakeMaker" : "0" + } + }, + "configure" : { + "requires" : { + "ExtUtils::MakeMaker" : "0" + } + }, + "runtime" : { + "requires" : { + "perl" : "5.006" + } + } + }, + "release_status" : "stable", + "resources" : { + "bugtracker" : { + "mailto" : "[email protected]", + "web" : "https://rt.cpan.org/Public/Dist/Display.html?Name=Sub-Name"; + }, + "repository" : { + "type" : "git", + "url" : "https://github.com/karenetheridge/Sub-Name.git";, + "web" : "https://github.com/karenetheridge/Sub-Name"; + } + }, + "version" : "0.07" +} diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sub-Name-0.05/META.yml new/Sub-Name-0.07/META.yml --- old/Sub-Name-0.05/META.yml 2010-09-08 00:56:43.000000000 +0200 +++ new/Sub-Name-0.07/META.yml 2014-07-11 18:45:35.000000000 +0200 @@ -1,21 +1,25 @@ ---- #YAML:1.0 -name: Sub-Name -version: 0.05 -abstract: (re)name a sub +--- +abstract: '(re)name a sub' author: - - Matthijs van Duin <[email protected]> -license: unknown -distribution_type: module -configure_requires: - ExtUtils::MakeMaker: 0 + - 'Matthijs van Duin <[email protected]>' build_requires: - ExtUtils::MakeMaker: 0 -requires: {} -no_index: - directory: - - t - - inc -generated_by: ExtUtils::MakeMaker version 6.56 + ExtUtils::MakeMaker: '0' +configure_requires: + ExtUtils::MakeMaker: '0' +dynamic_config: 0 +generated_by: 'ExtUtils::MakeMaker version 6.98, CPAN::Meta::Converter version 2.141520' +license: unknown meta-spec: - url: http://module-build.sourceforge.net/META-spec-v1.4.html - version: 1.4 + url: http://module-build.sourceforge.net/META-spec-v1.4.html + version: '1.4' +name: Sub-Name +no_index: + directory: + - t + - inc +requires: + perl: '5.006' +resources: + bugtracker: https://rt.cpan.org/Public/Dist/Display.html?Name=Sub-Name + repository: https://github.com/karenetheridge/Sub-Name.git +version: '0.07' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sub-Name-0.05/Makefile.PL new/Sub-Name-0.07/Makefile.PL --- old/Sub-Name-0.05/Makefile.PL 2010-09-06 23:04:26.000000000 +0200 +++ new/Sub-Name-0.07/Makefile.PL 2014-07-11 18:35:50.000000000 +0200 @@ -5,5 +5,28 @@ NAME => 'Sub::Name', VERSION_FROM => 'lib/Sub/Name.pm', ABSTRACT_FROM => 'lib/Sub/Name.pm', - AUTHOR => 'Matthijs van Duin <[email protected]>' + AUTHOR => 'Matthijs van Duin <[email protected]>', + + MIN_PERL_VERSION => '5.006', + META_MERGE => { + 'meta-spec' => { version => 2 }, + dynamic_config => 0, + resources => { + repository => { + url => 'https://github.com/karenetheridge/Sub-Name.git', + web => 'https://github.com/karenetheridge/Sub-Name', + type => 'git', + }, + bugtracker => { + mailto => '[email protected]', + web => 'https://rt.cpan.org/Public/Dist/Display.html?Name=Sub-Name', + }, + }, + }, ); + +package MY; +sub depend { " +README : \$(VERSION_FROM) + pod2text \$(VERSION_FROM) > README" +} diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sub-Name-0.05/Name.xs new/Sub-Name-0.07/Name.xs --- old/Sub-Name-0.05/Name.xs 2010-09-08 00:55:19.000000000 +0200 +++ new/Sub-Name-0.07/Name.xs 2014-07-10 16:24:34.000000000 +0200 @@ -1,4 +1,5 @@ /* Copyright (C) 2004, 2008 Matthijs van Duin. All rights reserved. + * Copyright (C) 2014, cPanel Inc. All rights reserved. * This program is free software; you can redistribute it and/or modify * it under the same terms as Perl itself. */ @@ -30,7 +31,7 @@ CV *cv = NULL; GV *gv; HV *stash = CopSTASH(PL_curcop); - char *s, *end = NULL, saved; + char *s, *end = NULL; MAGIC *mg; PPCODE: if (!SvROK(sub) && SvGMAGICAL(sub)) @@ -57,13 +58,10 @@ end = s; } s--; - if (end) { - saved = *end; - *end = 0; - stash = GvHV(gv_fetchpv(name, TRUE, SVt_PVHV)); - *end = saved; - name = end; - } + if (end) { + stash = GvHV(gv_fetchpv(savepvn(name, end - name), TRUE, SVt_PVHV)); + name = end; + } gv = (GV *) newSV(0); gv_init(gv, stash, name, s - name, TRUE); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sub-Name-0.05/README new/Sub-Name-0.07/README --- old/Sub-Name-0.05/README 2010-09-06 23:04:26.000000000 +0200 +++ new/Sub-Name-0.07/README 2014-07-10 16:24:35.000000000 +0200 @@ -1,15 +1,3 @@ -Sub::Name 0.04 - -To install this module type the following: - - perl Makefile.PL - make - make test - make install - - -Module documentation: - NAME Sub::Name - (re)name a sub @@ -39,6 +27,8 @@ AUTHOR Matthijs van Duin <[email protected]> - Copyright (C) 2004, 2008 Matthijs van Duin. All rights reserved. This - program is free software; you can redistribute it and/or modify it under - the same terms as Perl itself. + Copyright (C) 2004, 2008 Matthijs van Duin. All rights reserved. + Copyright (C) 2014 cPanel Inc. All rights reserved. This program is free + software; you can 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-Name-0.05/lib/Sub/Name.pm new/Sub-Name-0.07/lib/Sub/Name.pm --- old/Sub-Name-0.05/lib/Sub/Name.pm 2010-09-08 00:56:24.000000000 +0200 +++ new/Sub-Name-0.07/lib/Sub/Name.pm 2014-07-11 18:32:22.000000000 +0200 @@ -34,6 +34,7 @@ Matthijs van Duin <[email protected]> Copyright (C) 2004, 2008 Matthijs van Duin. All rights reserved. +Copyright (C) 2014 cPanel Inc. All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. @@ -44,7 +45,7 @@ use strict; use warnings; -our $VERSION = '0.05'; +our $VERSION = '0.07'; use base 'Exporter'; use base 'DynaLoader'; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sub-Name-0.05/t/RT96893_perlcc.t new/Sub-Name-0.07/t/RT96893_perlcc.t --- old/Sub-Name-0.05/t/RT96893_perlcc.t 1970-01-01 01:00:00.000000000 +0100 +++ new/Sub-Name-0.07/t/RT96893_perlcc.t 2014-07-11 18:28:48.000000000 +0200 @@ -0,0 +1,23 @@ +use strict; +use warnings; + +eval "use B::C;"; +if ($@) { + print "1..0 # SKIP B::C required for testing perlcc -O3\n"; + exit; +} elsif ($B::C::VERSION lt '1.48') { + print "1..0 # SKIP testing too old B-C-$B::C::VERSION\n"; + exit; +} else { + print "1..1\n"; +} + +my $f = "t/rt96893x.pl"; +open my $fh, ">", $f; END { unlink $f if $f } +print $fh 'use Sub::Name; subname("main::bar", sub{42}); print "ok 1\n";'; +close $fh; + +system($^X, qw(-Mblib -S perlcc -O3 -UCarp -UConfig -r), $f); + +unlink "t/rt96893x", "t/rt96893x.exe"; +# vim: ft=perl -- To unsubscribe, e-mail: [email protected] For additional commands, e-mail: [email protected]
