Hello community, here is the log from the commit of package perl-IO-TieCombine for openSUSE:Factory checked in at 2013-06-06 15:06:17 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-IO-TieCombine (Old) and /work/SRC/openSUSE:Factory/.perl-IO-TieCombine.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-IO-TieCombine" Changes: -------- --- /work/SRC/openSUSE:Factory/perl-IO-TieCombine/perl-IO-TieCombine.changes 2011-11-14 13:23:17.000000000 +0100 +++ /work/SRC/openSUSE:Factory/.perl-IO-TieCombine.new/perl-IO-TieCombine.changes 2013-06-06 15:06:18.000000000 +0200 @@ -1,0 +2,9 @@ +Wed Jun 5 07:47:00 UTC 2013 - co...@suse.com + +- updated to 1.002 + "say" to a tied fh on 5.10.0 is broken; we will not test it + + TieCombine filehandles now respect $\ so that "say $tied" will work; + this fixes [rt.cpan.org #73131] + +------------------------------------------------------------------- Old: ---- IO-TieCombine-1.000.tar.gz New: ---- IO-TieCombine-1.002.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-IO-TieCombine.spec ++++++ --- /var/tmp/diff_new_pack.njOUze/_old 2013-06-06 15:06:19.000000000 +0200 +++ /var/tmp/diff_new_pack.njOUze/_new 2013-06-06 15:06:19.000000000 +0200 @@ -1,7 +1,7 @@ # # spec file for package perl-IO-TieCombine # -# Copyright (c) 2011 SUSE LINUX Products GmbH, Nuernberg, Germany. +# Copyright (c) 2013 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,20 +16,20 @@ # - Name: perl-IO-TieCombine -Version: 1.000 -Release: 1 -License: GPL-1.0+ or Artistic-1.0 +Version: 1.002 +Release: 0 %define cpan_name IO-TieCombine Summary: produce tied (and other) separate but combined variables -Url: http://search.cpan.org/dist/IO-TieCombine/ +License: Artistic-1.0 or GPL-1.0+ Group: Development/Libraries/Perl +Url: http://search.cpan.org/dist/IO-TieCombine/ Source: http://www.cpan.org/authors/id/R/RJ/RJBS/%{cpan_name}-%{version}.tar.gz BuildArch: noarch BuildRoot: %{_tmppath}/%{name}-%{version}-build BuildRequires: perl BuildRequires: perl-macros +BuildRequires: perl(Test::More) >= 0.96 #BuildRequires: perl(IO::TieCombine) #BuildRequires: perl(IO::TieCombine::Handle) #BuildRequires: perl(IO::TieCombine::Scalar) ++++++ IO-TieCombine-1.000.tar.gz -> IO-TieCombine-1.002.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IO-TieCombine-1.000/Changes new/IO-TieCombine-1.002/Changes --- old/IO-TieCombine-1.000/Changes 2008-10-17 03:28:37.000000000 +0200 +++ new/IO-TieCombine-1.002/Changes 2012-02-26 21:27:03.000000000 +0100 @@ -1,4 +1,11 @@ Revision history for IO-TieCombine +1.002 2012-02-26 15:26:49 America/New_York + "say" to a tied fh on 5.10.0 is broken; we will not test it + +1.001 2011-12-09 10:52:01 America/New_York + TieCombine filehandles now respect $\ so that "say $tied" will work; + this fixes [rt.cpan.org #73131] + 1.000 2008-10-16 first release diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IO-TieCombine-1.000/LICENSE new/IO-TieCombine-1.002/LICENSE --- old/IO-TieCombine-1.000/LICENSE 2008-10-17 03:28:37.000000000 +0200 +++ new/IO-TieCombine-1.002/LICENSE 2012-02-26 21:27:03.000000000 +0100 @@ -1,9 +1,9 @@ -This software is copyright (c) 2008 by Ricardo SIGNES. +This software is copyright (c) 2012 by Ricardo SIGNES. This is free software; you can redistribute it and/or modify it under -the same terms as perl itself. +the same terms as the Perl 5 programming language system itself. -Terms of Perl itself +Terms of the Perl programming language system itself a) the GNU General Public License as published by the Free Software Foundation; either version 1, or (at your option) any @@ -12,21 +12,22 @@ --- The GNU General Public License, Version 1, February 1989 --- -This software is Copyright (c) 2008 by Ricardo SIGNES. +This software is Copyright (c) 2012 by Ricardo SIGNES. This is free software, licensed under: The GNU General Public License, Version 1, February 1989 - GNU GENERAL PUBLIC LICENSE - Version 1, February 1989 + GNU GENERAL PUBLIC LICENSE + Version 1, February 1989 Copyright (C) 1989 Free Software Foundation, Inc. - 59 Temple Place, Suite 330, Boston, MA 02111-1307, USA + 51 Franklin St, Suite 500, Boston, MA 02110-1335 USA + Everyone is permitted to copy and distribute verbatim copies of this license document, but changing it is not allowed. - Preamble + Preamble The license agreements of most software companies try to keep users at the mercy of those companies. By contrast, our General Public @@ -67,7 +68,7 @@ The precise terms and conditions for copying, distribution and modification follow. - GNU GENERAL PUBLIC LICENSE + GNU GENERAL PUBLIC LICENSE TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION 0. This License Agreement applies to any program or other work which @@ -185,7 +186,7 @@ of preserving the free status of all derivatives of our free software and of promoting the sharing and reuse of software generally. - NO WARRANTY + NO WARRANTY 9. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN @@ -207,9 +208,9 @@ PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. - END OF TERMS AND CONDITIONS + END OF TERMS AND CONDITIONS - Appendix: How to Apply These Terms to Your New Programs + Appendix: How to Apply These Terms to Your New Programs If you develop a new program, and you want it to be of the greatest possible use to humanity, the best way to achieve this is to make it @@ -235,8 +236,9 @@ GNU General Public License for more details. You should have received a copy of the GNU General Public License - along with this program; if not, write to the Free Software Foundation, - Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307, USA. + along with this program; if not, write to the Free Software + Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston MA 02110-1301 USA + Also add information on how to contact you by electronic and paper mail. @@ -270,7 +272,7 @@ --- The Artistic License 1.0 --- -This software is Copyright (c) 2008 by Ricardo SIGNES. +This software is Copyright (c) 2012 by Ricardo SIGNES. This is free software, licensed under: diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IO-TieCombine-1.000/MANIFEST new/IO-TieCombine-1.002/MANIFEST --- old/IO-TieCombine-1.000/MANIFEST 2008-10-17 03:28:37.000000000 +0200 +++ new/IO-TieCombine-1.002/MANIFEST 2012-02-26 21:27:03.000000000 +0100 @@ -1,10 +1,13 @@ Changes LICENSE MANIFEST +META.json META.yml Makefile.PL README +dist.ini lib/IO/TieCombine.pm lib/IO/TieCombine/Handle.pm lib/IO/TieCombine/Scalar.pm -t/basic.t \ No newline at end of file +t/basic.t +t/release-pod-syntax.t diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IO-TieCombine-1.000/META.json new/IO-TieCombine-1.002/META.json --- old/IO-TieCombine-1.000/META.json 1970-01-01 01:00:00.000000000 +0100 +++ new/IO-TieCombine-1.002/META.json 2012-02-26 21:27:03.000000000 +0100 @@ -0,0 +1,244 @@ +{ + "abstract" : "produce tied (and other) separate but combined variables", + "author" : [ + "Ricardo SIGNES <r...@cpan.org>" + ], + "dynamic_config" : 0, + "generated_by" : "Dist::Zilla version 4.300009, CPAN::Meta::Converter version 2.120351", + "license" : [ + "perl_5" + ], + "meta-spec" : { + "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec", + "version" : "2" + }, + "name" : "IO-TieCombine", + "prereqs" : { + "configure" : { + "requires" : { + "ExtUtils::MakeMaker" : "6.30" + } + }, + "runtime" : { + "requires" : { + "Carp" : "0", + "Symbol" : "0", + "strict" : "0", + "warnings" : "0" + } + }, + "test" : { + "requires" : { + "Test::More" : "0.96" + } + } + }, + "release_status" : "stable", + "resources" : { + "homepage" : "https://github.com/rjbs/io-tiecombine", + "repository" : { + "type" : "git", + "url" : "https://github.com/rjbs/io-tiecombine.git", + "web" : "https://github.com/rjbs/io-tiecombine" + } + }, + "version" : "1.002", + "x_Dist_Zilla" : { + "plugins" : [ + { + "class" : "Dist::Zilla::Plugin::CheckPrereqsIndexed", + "name" : "@RJBS/CheckPrereqsIndexed", + "version" : "0.007" + }, + { + "class" : "Dist::Zilla::Plugin::GatherDir", + "name" : "@RJBS/@Basic/GatherDir", + "version" : "4.300009" + }, + { + "class" : "Dist::Zilla::Plugin::PruneCruft", + "name" : "@RJBS/@Basic/PruneCruft", + "version" : "4.300009" + }, + { + "class" : "Dist::Zilla::Plugin::ManifestSkip", + "name" : "@RJBS/@Basic/ManifestSkip", + "version" : "4.300009" + }, + { + "class" : "Dist::Zilla::Plugin::MetaYAML", + "name" : "@RJBS/@Basic/MetaYAML", + "version" : "4.300009" + }, + { + "class" : "Dist::Zilla::Plugin::License", + "name" : "@RJBS/@Basic/License", + "version" : "4.300009" + }, + { + "class" : "Dist::Zilla::Plugin::Readme", + "name" : "@RJBS/@Basic/Readme", + "version" : "4.300009" + }, + { + "class" : "Dist::Zilla::Plugin::ExtraTests", + "name" : "@RJBS/@Basic/ExtraTests", + "version" : "4.300009" + }, + { + "class" : "Dist::Zilla::Plugin::ExecDir", + "name" : "@RJBS/@Basic/ExecDir", + "version" : "4.300009" + }, + { + "class" : "Dist::Zilla::Plugin::ShareDir", + "name" : "@RJBS/@Basic/ShareDir", + "version" : "4.300009" + }, + { + "class" : "Dist::Zilla::Plugin::MakeMaker", + "name" : "@RJBS/@Basic/MakeMaker", + "version" : "4.300009" + }, + { + "class" : "Dist::Zilla::Plugin::Manifest", + "name" : "@RJBS/@Basic/Manifest", + "version" : "4.300009" + }, + { + "class" : "Dist::Zilla::Plugin::TestRelease", + "name" : "@RJBS/@Basic/TestRelease", + "version" : "4.300009" + }, + { + "class" : "Dist::Zilla::Plugin::ConfirmRelease", + "name" : "@RJBS/@Basic/ConfirmRelease", + "version" : "4.300009" + }, + { + "class" : "Dist::Zilla::Plugin::UploadToCPAN", + "name" : "@RJBS/@Basic/UploadToCPAN", + "version" : "4.300009" + }, + { + "class" : "Dist::Zilla::Plugin::AutoPrereqs", + "name" : "@RJBS/AutoPrereqs", + "version" : "4.300009" + }, + { + "class" : "Dist::Zilla::Plugin::Git::NextVersion", + "name" : "@RJBS/Git::NextVersion", + "version" : "1.120370" + }, + { + "class" : "Dist::Zilla::Plugin::PkgVersion", + "name" : "@RJBS/PkgVersion", + "version" : "4.300009" + }, + { + "class" : "Dist::Zilla::Plugin::MetaConfig", + "name" : "@RJBS/MetaConfig", + "version" : "4.300009" + }, + { + "class" : "Dist::Zilla::Plugin::MetaJSON", + "name" : "@RJBS/MetaJSON", + "version" : "4.300009" + }, + { + "class" : "Dist::Zilla::Plugin::NextRelease", + "name" : "@RJBS/NextRelease", + "version" : "4.300009" + }, + { + "class" : "Dist::Zilla::Plugin::PodSyntaxTests", + "name" : "@RJBS/PodSyntaxTests", + "version" : "4.300009" + }, + { + "class" : "Dist::Zilla::Plugin::Repository", + "name" : "@RJBS/Repository", + "version" : "0.18" + }, + { + "class" : "Dist::Zilla::Plugin::Prereqs", + "config" : { + "Dist::Zilla::Plugin::Prereqs" : { + "phase" : "test", + "type" : "requires" + } + }, + "name" : "@RJBS/TestMoreWithSubtests", + "version" : "4.300009" + }, + { + "class" : "Dist::Zilla::Plugin::PodWeaver", + "name" : "@RJBS/PodWeaver", + "version" : "3.101641" + }, + { + "class" : "Dist::Zilla::Plugin::GithubMeta", + "name" : "@RJBS/GithubMeta", + "version" : "0.28" + }, + { + "class" : "Dist::Zilla::Plugin::Git::Check", + "name" : "@RJBS/@Git/Check", + "version" : "1.120370" + }, + { + "class" : "Dist::Zilla::Plugin::Git::Commit", + "name" : "@RJBS/@Git/Commit", + "version" : "1.120370" + }, + { + "class" : "Dist::Zilla::Plugin::Git::Tag", + "name" : "@RJBS/@Git/Tag", + "version" : "1.120370" + }, + { + "class" : "Dist::Zilla::Plugin::Git::Push", + "name" : "@RJBS/@Git/Push", + "version" : "1.120370" + }, + { + "class" : "Dist::Zilla::Plugin::FinderCode", + "name" : ":InstallModules", + "version" : "4.300009" + }, + { + "class" : "Dist::Zilla::Plugin::FinderCode", + "name" : ":IncModules", + "version" : "4.300009" + }, + { + "class" : "Dist::Zilla::Plugin::FinderCode", + "name" : ":TestFiles", + "version" : "4.300009" + }, + { + "class" : "Dist::Zilla::Plugin::FinderCode", + "name" : ":ExecFiles", + "version" : "4.300009" + }, + { + "class" : "Dist::Zilla::Plugin::FinderCode", + "name" : ":ShareFiles", + "version" : "4.300009" + }, + { + "class" : "Dist::Zilla::Plugin::FinderCode", + "name" : ":MainModule", + "version" : "4.300009" + } + ], + "zilla" : { + "class" : "Dist::Zilla::Dist::Builder", + "config" : { + "is_trial" : "0" + }, + "version" : "4.300009" + } + } +} + diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IO-TieCombine-1.000/META.yml new/IO-TieCombine-1.002/META.yml --- old/IO-TieCombine-1.000/META.yml 2008-10-17 03:28:37.000000000 +0200 +++ new/IO-TieCombine-1.002/META.yml 2012-02-26 21:27:03.000000000 +0100 @@ -1,10 +1,179 @@ ---- -abstract: produce tied (and other) separate but combined variables -author: - - Ricardo SIGNES <r...@cpan.org> -generated_by: Dist::Zilla::Plugin::MetaYaml version 1.002 +--- +abstract: 'produce tied (and other) separate but combined variables' +author: + - 'Ricardo SIGNES <r...@cpan.org>' +build_requires: + Test::More: 0.96 +configure_requires: + ExtUtils::MakeMaker: 6.30 +dynamic_config: 0 +generated_by: 'Dist::Zilla version 4.300009, CPAN::Meta::Converter version 2.120351' license: perl +meta-spec: + url: http://module-build.sourceforge.net/META-spec-v1.4.html + version: 1.4 name: IO-TieCombine -requires: {} - -version: 1.000 +requires: + Carp: 0 + Symbol: 0 + strict: 0 + warnings: 0 +resources: + homepage: https://github.com/rjbs/io-tiecombine + repository: https://github.com/rjbs/io-tiecombine.git +version: 1.002 +x_Dist_Zilla: + plugins: + - + class: Dist::Zilla::Plugin::CheckPrereqsIndexed + name: '@RJBS/CheckPrereqsIndexed' + version: 0.007 + - + class: Dist::Zilla::Plugin::GatherDir + name: '@RJBS/@Basic/GatherDir' + version: 4.300009 + - + class: Dist::Zilla::Plugin::PruneCruft + name: '@RJBS/@Basic/PruneCruft' + version: 4.300009 + - + class: Dist::Zilla::Plugin::ManifestSkip + name: '@RJBS/@Basic/ManifestSkip' + version: 4.300009 + - + class: Dist::Zilla::Plugin::MetaYAML + name: '@RJBS/@Basic/MetaYAML' + version: 4.300009 + - + class: Dist::Zilla::Plugin::License + name: '@RJBS/@Basic/License' + version: 4.300009 + - + class: Dist::Zilla::Plugin::Readme + name: '@RJBS/@Basic/Readme' + version: 4.300009 + - + class: Dist::Zilla::Plugin::ExtraTests + name: '@RJBS/@Basic/ExtraTests' + version: 4.300009 + - + class: Dist::Zilla::Plugin::ExecDir + name: '@RJBS/@Basic/ExecDir' + version: 4.300009 + - + class: Dist::Zilla::Plugin::ShareDir + name: '@RJBS/@Basic/ShareDir' + version: 4.300009 + - + class: Dist::Zilla::Plugin::MakeMaker + name: '@RJBS/@Basic/MakeMaker' + version: 4.300009 + - + class: Dist::Zilla::Plugin::Manifest + name: '@RJBS/@Basic/Manifest' + version: 4.300009 + - + class: Dist::Zilla::Plugin::TestRelease + name: '@RJBS/@Basic/TestRelease' + version: 4.300009 + - + class: Dist::Zilla::Plugin::ConfirmRelease + name: '@RJBS/@Basic/ConfirmRelease' + version: 4.300009 + - + class: Dist::Zilla::Plugin::UploadToCPAN + name: '@RJBS/@Basic/UploadToCPAN' + version: 4.300009 + - + class: Dist::Zilla::Plugin::AutoPrereqs + name: '@RJBS/AutoPrereqs' + version: 4.300009 + - + class: Dist::Zilla::Plugin::Git::NextVersion + name: '@RJBS/Git::NextVersion' + version: 1.120370 + - + class: Dist::Zilla::Plugin::PkgVersion + name: '@RJBS/PkgVersion' + version: 4.300009 + - + class: Dist::Zilla::Plugin::MetaConfig + name: '@RJBS/MetaConfig' + version: 4.300009 + - + class: Dist::Zilla::Plugin::MetaJSON + name: '@RJBS/MetaJSON' + version: 4.300009 + - + class: Dist::Zilla::Plugin::NextRelease + name: '@RJBS/NextRelease' + version: 4.300009 + - + class: Dist::Zilla::Plugin::PodSyntaxTests + name: '@RJBS/PodSyntaxTests' + version: 4.300009 + - + class: Dist::Zilla::Plugin::Repository + name: '@RJBS/Repository' + version: 0.18 + - + class: Dist::Zilla::Plugin::Prereqs + config: + Dist::Zilla::Plugin::Prereqs: + phase: test + type: requires + name: '@RJBS/TestMoreWithSubtests' + version: 4.300009 + - + class: Dist::Zilla::Plugin::PodWeaver + name: '@RJBS/PodWeaver' + version: 3.101641 + - + class: Dist::Zilla::Plugin::GithubMeta + name: '@RJBS/GithubMeta' + version: 0.28 + - + class: Dist::Zilla::Plugin::Git::Check + name: '@RJBS/@Git/Check' + version: 1.120370 + - + class: Dist::Zilla::Plugin::Git::Commit + name: '@RJBS/@Git/Commit' + version: 1.120370 + - + class: Dist::Zilla::Plugin::Git::Tag + name: '@RJBS/@Git/Tag' + version: 1.120370 + - + class: Dist::Zilla::Plugin::Git::Push + name: '@RJBS/@Git/Push' + version: 1.120370 + - + class: Dist::Zilla::Plugin::FinderCode + name: ':InstallModules' + version: 4.300009 + - + class: Dist::Zilla::Plugin::FinderCode + name: ':IncModules' + version: 4.300009 + - + class: Dist::Zilla::Plugin::FinderCode + name: ':TestFiles' + version: 4.300009 + - + class: Dist::Zilla::Plugin::FinderCode + name: ':ExecFiles' + version: 4.300009 + - + class: Dist::Zilla::Plugin::FinderCode + name: ':ShareFiles' + version: 4.300009 + - + class: Dist::Zilla::Plugin::FinderCode + name: ':MainModule' + version: 4.300009 + zilla: + class: Dist::Zilla::Dist::Builder + config: + is_trial: 0 + version: 4.300009 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IO-TieCombine-1.000/Makefile.PL new/IO-TieCombine-1.002/Makefile.PL --- old/IO-TieCombine-1.000/Makefile.PL 2008-10-17 03:28:37.000000000 +0200 +++ new/IO-TieCombine-1.002/Makefile.PL 2012-02-26 21:27:03.000000000 +0100 @@ -2,17 +2,55 @@ use strict; use warnings; -use ExtUtils::MakeMaker; -WriteMakefile( - DISTNAME => 'IO-TieCombine', - NAME => 'IO::TieCombine', - AUTHOR => 'Ricardo\ SIGNES\ \<rjbs\@cpan\.org\>', - ABSTRACT => 'produce tied (and other) separate but combined variables', - VERSION => '1.000', - EXE_FILES => [ qw() ], - (eval { ExtUtils::MakeMaker->VERSION(6.21) } ? (LICENSE => 'perl') : ()), - PREREQ_PM => { +use ExtUtils::MakeMaker 6.30; + + + +my %WriteMakefileArgs = ( + "ABSTRACT" => "produce tied (and other) separate but combined variables", + "AUTHOR" => "Ricardo SIGNES <rjbs\@cpan.org>", + "BUILD_REQUIRES" => { + "Test::More" => "0.96" }, + "CONFIGURE_REQUIRES" => { + "ExtUtils::MakeMaker" => "6.30" + }, + "DISTNAME" => "IO-TieCombine", + "EXE_FILES" => [], + "LICENSE" => "perl", + "NAME" => "IO::TieCombine", + "PREREQ_PM" => { + "Carp" => 0, + "Symbol" => 0, + "strict" => 0, + "warnings" => 0 + }, + "VERSION" => "1.002", + "test" => { + "TESTS" => "t/*.t" + } ); + + +unless ( eval { ExtUtils::MakeMaker->VERSION(6.56) } ) { + my $br = delete $WriteMakefileArgs{BUILD_REQUIRES}; + my $pp = $WriteMakefileArgs{PREREQ_PM}; + for my $mod ( keys %$br ) { + if ( exists $pp->{$mod} ) { + $pp->{$mod} = $br->{$mod} if $br->{$mod} > $pp->{$mod}; + } + else { + $pp->{$mod} = $br->{$mod}; + } + } +} + +delete $WriteMakefileArgs{CONFIGURE_REQUIRES} + unless eval { ExtUtils::MakeMaker->VERSION(6.52) }; + +WriteMakefile(%WriteMakefileArgs); + + + diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IO-TieCombine-1.000/README new/IO-TieCombine-1.002/README --- old/IO-TieCombine-1.000/README 2008-10-17 03:28:37.000000000 +0200 +++ new/IO-TieCombine-1.002/README 2012-02-26 21:27:03.000000000 +0100 @@ -1,12 +1,13 @@ -This archive contains the distribution IO-TieCombine, version -1.000: +This archive contains the distribution IO-TieCombine, +version 1.002: produce tied (and other) separate but combined variables -This software is copyright (c) 2008 by Ricardo SIGNES. +This software is copyright (c) 2012 by Ricardo SIGNES. This is free software; you can redistribute it and/or modify it under -the same terms as perl itself. +the same terms as the Perl 5 programming language system itself. + diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IO-TieCombine-1.000/dist.ini new/IO-TieCombine-1.002/dist.ini --- old/IO-TieCombine-1.000/dist.ini 1970-01-01 01:00:00.000000000 +0100 +++ new/IO-TieCombine-1.002/dist.ini 2012-02-26 21:27:03.000000000 +0100 @@ -0,0 +1,6 @@ +name = IO-TieCombine +author = Ricardo SIGNES <r...@cpan.org> +license = Perl_5 +copyright_holder = Ricardo SIGNES + +[@RJBS] diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IO-TieCombine-1.000/lib/IO/TieCombine/Handle.pm new/IO-TieCombine-1.002/lib/IO/TieCombine/Handle.pm --- old/IO-TieCombine-1.000/lib/IO/TieCombine/Handle.pm 2008-10-17 03:28:37.000000000 +0200 +++ new/IO-TieCombine-1.002/lib/IO/TieCombine/Handle.pm 2012-02-26 21:27:03.000000000 +0100 @@ -1,8 +1,9 @@ use strict; use warnings; package IO::TieCombine::Handle; -our $VERSION = '1.000'; - +{ + $IO::TieCombine::Handle::VERSION = '1.002'; +} # ABSTRACT: tied filehandles for IO::TieCombine use Carp (); @@ -22,7 +23,8 @@ sub PRINT { my ($self, @output) = @_; - my $joined = join((defined $, ? $, : ''), @output); + my $joined = join((defined $, ? $, : q{}), @output) + . (defined $\ ? $\ : q{}); ${ $self->{output_ref} } .= $joined; ${ $self->{combined_ref} } .= $joined; @@ -43,7 +45,6 @@ 1; __END__ - =pod =head1 NAME @@ -52,19 +53,18 @@ =head1 VERSION -version 1.000 +version 1.002 =head1 AUTHOR - Ricardo SIGNES <r...@cpan.org> +Ricardo SIGNES <r...@cpan.org> =head1 COPYRIGHT AND LICENSE -This software is copyright (c) 2008 by Ricardo SIGNES. +This software is copyright (c) 2012 by Ricardo SIGNES. This is free software; you can redistribute it and/or modify it under -the same terms as perl itself. - -=cut +the same terms as the Perl 5 programming language system itself. +=cut diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IO-TieCombine-1.000/lib/IO/TieCombine/Scalar.pm new/IO-TieCombine-1.002/lib/IO/TieCombine/Scalar.pm --- old/IO-TieCombine-1.000/lib/IO/TieCombine/Scalar.pm 2008-10-17 03:28:37.000000000 +0200 +++ new/IO-TieCombine-1.002/lib/IO/TieCombine/Scalar.pm 2012-02-26 21:27:03.000000000 +0100 @@ -1,8 +1,9 @@ use strict; use warnings; package IO::TieCombine::Scalar; -our $VERSION = '1.000'; - +{ + $IO::TieCombine::Scalar::VERSION = '1.002'; +} # ABSTRACT: tied scalars for IO::TieCombine use Carp (); @@ -40,7 +41,6 @@ 1; __END__ - =pod =head1 NAME @@ -49,19 +49,18 @@ =head1 VERSION -version 1.000 +version 1.002 =head1 AUTHOR - Ricardo SIGNES <r...@cpan.org> +Ricardo SIGNES <r...@cpan.org> =head1 COPYRIGHT AND LICENSE -This software is copyright (c) 2008 by Ricardo SIGNES. +This software is copyright (c) 2012 by Ricardo SIGNES. This is free software; you can redistribute it and/or modify it under -the same terms as perl itself. - -=cut +the same terms as the Perl 5 programming language system itself. +=cut diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IO-TieCombine-1.000/lib/IO/TieCombine.pm new/IO-TieCombine-1.002/lib/IO/TieCombine.pm --- old/IO-TieCombine-1.000/lib/IO/TieCombine.pm 2008-10-17 03:28:37.000000000 +0200 +++ new/IO-TieCombine-1.002/lib/IO/TieCombine.pm 2012-02-26 21:27:03.000000000 +0100 @@ -1,8 +1,9 @@ use strict; use warnings; package IO::TieCombine; -our $VERSION = '1.000'; - +{ + $IO::TieCombine::VERSION = '1.002'; +} # ABSTRACT: produce tied (and other) separate but combined variables use Carp (); @@ -58,6 +59,13 @@ } +sub clear_slot { + my ($self, $slot_name) = @_; + ${ $self->_slot_ref($slot_name) } = ''; + return; +} + + sub fh { my ($self, $name) = @_; @@ -114,7 +122,6 @@ 1; __END__ - =pod =head1 NAME @@ -123,37 +130,42 @@ =head1 VERSION -version 1.000 +version 1.002 =head1 SYNOPSIS First, we set up a bunch of access points: - my $hub = IO::TieCombine->new; + my $hub = IO::TieCombine->new; - my $str_ref = $hub->scalar_ref('x'); - my $fh = $hub->fh('x'); - my $callback = $hub->callback('x'); + my $str_ref = $hub->scalar_ref('x'); + my $fh = $hub->fh('x'); + my $callback = $hub->callback('x'); - tie my $scalar, $hub, 'x'; - tie local *STDOUT, $hub, 'x'; + tie my $scalar, $hub, 'x'; + tie local *STDOUT, $hub, 'x'; - tie local *STDERR, $hub, 'err'; + tie local *STDERR, $hub, 'err'; Then we write to things: - $$str_ref .= 'And '; - print $fh "now "; - $callback->('for '); - $scalar .= 'something '; - print "completely "; - warn "different.\n"; + $$str_ref .= 'And '; + print $fh "now "; + $callback->('for '); + $scalar .= 'something '; + print "completely "; + warn "different.\n"; And then: - $hub->combined_contents; # And now for something completely different. - $hub->slot_contents('x'); # And now for something completely - $hub->slot_contents('err'); # different. + $hub->combined_contents; # And now for something completely different. + $hub->slot_contents('x'); # And now for something completely + $hub->slot_contents('err'); # different. + +B<ACHTUNG!!> Because of a serious problem with Perl 5.10.0, output sent to a +tied filehandle using C<say> B<will not have the expected newline>. 5.10.1 or +later is needed. Since 5.10.0 is broken in so many other ways, you should +really upgrade anyway. =head1 METHODS @@ -167,20 +179,26 @@ =head2 slot_contents - my $str = $hub->slot_contents( $slot_name ); + my $str = $hub->slot_contents( $slot_name ); This method returns the contents of all collected data for the named slot. +=head2 clear_slot + + $hub->clear_slot( $slot_name ); + +This sets the slot back to an empty string. + =head2 fh - my $fh = $hub->fh( $slot_name ); + my $fh = $hub->fh( $slot_name ); This method returns a reference to a tied filehandle. When printed to, output is collected in the named slot. =head2 scalar_ref - my $str_ref = $hub->scalar_ref( $slot_name ); + my $str_ref = $hub->scalar_ref( $slot_name ); This method returns a reference to scalar. When appended to, the new content is collected in the named slot. Attempting to alter the string other than by @@ -188,19 +206,18 @@ =head2 callback - my $code = $hub->callback( $slot_name ); + my $code = $hub->callback( $slot_name ); =head1 AUTHOR - Ricardo SIGNES <r...@cpan.org> +Ricardo SIGNES <r...@cpan.org> =head1 COPYRIGHT AND LICENSE -This software is copyright (c) 2008 by Ricardo SIGNES. +This software is copyright (c) 2012 by Ricardo SIGNES. This is free software; you can redistribute it and/or modify it under -the same terms as perl itself. - -=cut +the same terms as the Perl 5 programming language system itself. +=cut diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IO-TieCombine-1.000/t/basic.t new/IO-TieCombine-1.002/t/basic.t --- old/IO-TieCombine-1.000/t/basic.t 2008-10-17 03:28:37.000000000 +0200 +++ new/IO-TieCombine-1.002/t/basic.t 2012-02-26 21:27:03.000000000 +0100 @@ -3,7 +3,7 @@ use warnings; use IO::TieCombine; -use Test::More tests => 5; +use Test::More 0.96; my $hub = IO::TieCombine->new; @@ -41,3 +41,20 @@ 'foobeta1embargobarhot pantsoogabeta2fin', 'combined', ); + +if ($] >= 5.010001) { + subtest "the 'say' built-in" => sub { + plan tests => 1; + my $ok = eval q{ + use feature 'say'; + $hub->clear_slot('Alpha'); + print $fh_A "foo\n"; + say $fh_A "foo"; + is($hub->slot_contents('Alpha'), "foo\nfoo\n", "say appends a newline"); + 1; + }; + die $@ unless $ok; + }; +} + +done_testing; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IO-TieCombine-1.000/t/release-pod-syntax.t new/IO-TieCombine-1.002/t/release-pod-syntax.t --- old/IO-TieCombine-1.000/t/release-pod-syntax.t 1970-01-01 01:00:00.000000000 +0100 +++ new/IO-TieCombine-1.002/t/release-pod-syntax.t 2012-02-26 21:27:03.000000000 +0100 @@ -0,0 +1,15 @@ +#!perl + +BEGIN { + unless ($ENV{RELEASE_TESTING}) { + require Test::More; + Test::More::plan(skip_all => 'these tests are for release candidate testing'); + } +} + +use Test::More; + +eval "use Test::Pod 1.41"; +plan skip_all => "Test::Pod 1.41 required for testing POD" if $@; + +all_pod_files_ok(); -- To unsubscribe, e-mail: opensuse-commit+unsubscr...@opensuse.org For additional commands, e-mail: opensuse-commit+h...@opensuse.org