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 - [email protected]
+
+- 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 <[email protected]>"
+ ],
+ "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 <[email protected]>
-generated_by: Dist::Zilla::Plugin::MetaYaml version 1.002
+---
+abstract: 'produce tied (and other) separate but combined variables'
+author:
+ - 'Ricardo SIGNES <[email protected]>'
+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 <[email protected]>
+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 <[email protected]>
+Ricardo SIGNES <[email protected]>
=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 <[email protected]>
+Ricardo SIGNES <[email protected]>
=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 <[email protected]>
+Ricardo SIGNES <[email protected]>
=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: [email protected]
For additional commands, e-mail: [email protected]
