[libcapture-tiny-perl] 01/01: Imported Upstream version 0.24
Salvatore Bonaccorso
carnil at debian.org
Fri Feb 7 07:38:14 UTC 2014
This is an automated email from the git hooks/post-receive script.
carnil pushed a commit to annotated tag upstream/0.24
in repository libcapture-tiny-perl.
commit 4d973d5c59325fa7a75be72820a0deca7a60526c
Author: Salvatore Bonaccorso <carnil at debian.org>
Date: Fri Feb 7 08:32:05 2014 +0100
Imported Upstream version 0.24
---
CONTRIBUTING | 54 ++++++++++++----
Changes | 7 +++
MANIFEST | 1 +
META.json | 16 +++--
META.yml | 41 ++++++------
Makefile.PL | 51 +++++++--------
README | 2 +-
cpanfile | 8 ++-
dist.ini | 2 +-
lib/Capture/Tiny.pm | 21 ++++---
perlcritic.rc | 3 +
t/00-report-prereqs.t | 157 +++++++++++++++++++++++++++++++---------------
xt/author/00-compile.t | 6 +-
xt/author/pod-spell.t | 2 +-
xt/release/distmeta.t | 1 +
xt/release/pod-coverage.t | 1 +
xt/release/pod-syntax.t | 1 +
17 files changed, 250 insertions(+), 124 deletions(-)
diff --git a/CONTRIBUTING b/CONTRIBUTING
index 0d13aaa..f50a30d 100644
--- a/CONTRIBUTING
+++ b/CONTRIBUTING
@@ -4,8 +4,12 @@ Thank you for considering contributing to this distribution. This file
contains instructions that will help you work with the source code.
The distribution is managed with Dist::Zilla. This means than many of the
-usual files you might expect are not in the repository, but are generated
-at release time (e.g. Makefile.PL).
+usual files you might expect are not in the repository, but are generated at
+release time (e.g. Makefile.PL).
+
+Generally, **you do not need Dist::Zilla to contribute patches**. You do need
+Dist::Zilla to create a tarball and/or install from the repository. See below
+for guidance.
### Getting dependencies
@@ -27,8 +31,8 @@ You can run tests directly using the `prove` tool:
$ prove -l
$ prove -lv t/some_test_file.t
-For most distributions, `prove` is entirely sufficent for you to test any
-patches you have.
+For most of my distributions, `prove` is entirely sufficient for you to test any
+patches you have. I use `prove` for 99% of my testing during development.
### Code style and tidying
@@ -40,9 +44,9 @@ If there is a `tidyall.ini` file, you can also install Code::TidyAll and run
### Patching documentation
-Much of the documentation Pod is generated at release time.
-Depending on the distribution, some documentation may be written in a Pod
-dialect called WikiDoc. (See Pod::WikiDoc on CPAN.)
+Much of the documentation Pod is generated at release time. Depending on the
+distribution, some of my documentation may be written in a Pod dialect called
+WikiDoc. (See Pod::WikiDoc on CPAN.)
If you would like to submit a documentation edit, please limit yourself to the
documentation you see.
@@ -50,12 +54,34 @@ documentation you see.
If you see typos or documentation issues in the generated docs, please
email or open a bug ticket instead of patching.
-### Learning Dist::Zilla
+### Installing from the repository
+
+If you want to install directly from the repository, you need to have
+Dist::Zilla installed (see below). If this is a burden to you, I welcome
+patches against a CPAN tarball instead of the repository.
+
+### Installing and using Dist::Zilla
+
+Dist::Zilla is a very powerful authoring tool, optimized for maintaining a
+large number of distributions with a high degree of automation, but it has a
+large dependency chain, a bit of a learning curve and requires a number of
+author-specific plugins.
+
+To install it from CPAN, I recommend one of the following approaches for
+the quickest installation:
-Dist::Zilla is a very powerful authoring tool, but requires a number of
-author-specific plugins. If you would like to use it for contributing,
-install it from CPAN, then run one of the following commands, depending on
-your CPAN client:
+ # using CPAN.pm, but bypassing non-functional pod tests
+ $ cpan TAP::Harness::Restricted
+ $ PERL_MM_USE_DEFAULT=1 HARNESS_CLASS=TAP::Harness::Restricted cpan Dist::Zilla
+
+ # using cpanm, bypassing *all* tests
+ $ cpanm -n Dist::Zilla
+
+In either case, it's probably going to take about 10 minutes. Go for a walk,
+go get a cup of your favorite beverage, take a bathroom break, or whatever.
+When you get back, Dist::Zilla should be ready for you.
+
+Then you need to install any plugins specific to this distribution:
$ cpan `dzil authordeps`
$ dzil authordeps | cpanm
@@ -66,5 +92,9 @@ Once installed, here are some dzil commands you might try:
$ dzil test
$ dzil xtest
+To install from the repository, use:
+
+ $ dzil install
+
You can learn more about Dist::Zilla at http://dzil.org/
diff --git a/Changes b/Changes
index 3c378dc..7e7b620 100644
--- a/Changes
+++ b/Changes
@@ -1,5 +1,12 @@
Revision history for Capture-Tiny
+0.24 2014-02-06 17:15:37-05:00 America/New_York
+
+ Fixed:
+
+ - Closed security hole in use of semaphore flag in /tmp;
+ now opens semaphore the using O_CREAT|O_EXCL
+
0.23 2013-10-20 11:25:34 America/New_York
Fixed:
diff --git a/MANIFEST b/MANIFEST
index f3b3873..6c9e59b 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -1,3 +1,4 @@
+# This file was automatically generated by Dist::Zilla::Plugin::Manifest v5.012.
CONTRIBUTING
Changes
LICENSE
diff --git a/META.json b/META.json
index 34be4b8..0fd4cf9 100644
--- a/META.json
+++ b/META.json
@@ -4,7 +4,7 @@
"David Golden <dagolden at cpan.org>"
],
"dynamic_config" : 1,
- "generated_by" : "Dist::Zilla version 5.000, CPAN::Meta::Converter version 2.132830",
+ "generated_by" : "Dist::Zilla version 5.012, CPAN::Meta::Converter version 2.133380",
"license" : [
"apache_2_0"
],
@@ -32,6 +32,11 @@
},
"develop" : {
"requires" : {
+ "Dist::Zilla" : "5.012",
+ "Dist::Zilla::Plugin::OSPrereqs" : "0",
+ "Dist::Zilla::Plugin::Prereqs" : "0",
+ "Dist::Zilla::Plugin::RemovePrereqs" : "0",
+ "Dist::Zilla::PluginBundle::DAGOLDEN" : "0.060",
"File::Spec" : "0",
"File::Temp" : "0",
"IO::Handle" : "0",
@@ -59,7 +64,7 @@
"test" : {
"recommends" : {
"CPAN::Meta" : "0",
- "CPAN::Meta::Requirements" : "0",
+ "CPAN::Meta::Requirements" : "2.120900",
"Inline" : "0.50"
},
"requires" : {
@@ -68,14 +73,15 @@
"IO::File" : "0",
"List::Util" : "0",
"Test::More" : "0.62",
- "lib" : "0"
+ "lib" : "0",
+ "version" : "0"
}
}
},
"provides" : {
"Capture::Tiny" : {
"file" : "lib/Capture/Tiny.pm",
- "version" : "0.23"
+ "version" : "0.24"
}
},
"release_status" : "stable",
@@ -90,7 +96,7 @@
"web" : "https://github.com/dagolden/Capture-Tiny"
}
},
- "version" : "0.23",
+ "version" : "0.24",
"x_authority" : "cpan:DAGOLDEN",
"x_contributors" : [
"Dagfinn Ilmari Manns\u00e5ker <ilmari at ilmari.org>"
diff --git a/META.yml b/META.yml
index 6777f17..8423105 100644
--- a/META.yml
+++ b/META.yml
@@ -3,20 +3,21 @@ abstract: 'Capture STDOUT and STDERR from Perl, XS or external programs'
author:
- 'David Golden <dagolden at cpan.org>'
build_requires:
- ExtUtils::MakeMaker: 0
- File::Spec::Functions: 0
- IO::File: 0
- List::Util: 0
- Test::More: 0.62
- lib: 0
+ ExtUtils::MakeMaker: '0'
+ File::Spec::Functions: '0'
+ IO::File: '0'
+ List::Util: '0'
+ Test::More: '0.62'
+ lib: '0'
+ version: '0'
configure_requires:
- ExtUtils::MakeMaker: 6.17
+ ExtUtils::MakeMaker: '6.17'
dynamic_config: 1
-generated_by: 'Dist::Zilla version 5.000, CPAN::Meta::Converter version 2.132830'
+generated_by: 'Dist::Zilla version 5.012, CPAN::Meta::Converter version 2.133380'
license: apache
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
- version: 1.4
+ version: '1.4'
name: Capture-Tiny
no_index:
directory:
@@ -29,22 +30,22 @@ no_index:
provides:
Capture::Tiny:
file: lib/Capture/Tiny.pm
- version: 0.23
+ version: '0.24'
requires:
- Carp: 0
- Exporter: 0
- File::Spec: 0
- File::Temp: 0
- IO::Handle: 0
- Scalar::Util: 0
- perl: 5.006
- strict: 0
- warnings: 0
+ Carp: '0'
+ Exporter: '0'
+ File::Spec: '0'
+ File::Temp: '0'
+ IO::Handle: '0'
+ Scalar::Util: '0'
+ perl: '5.006'
+ strict: '0'
+ warnings: '0'
resources:
bugtracker: https://github.com/dagolden/Capture-Tiny/issues
homepage: https://github.com/dagolden/Capture-Tiny
repository: https://github.com/dagolden/Capture-Tiny.git
-version: 0.23
+version: '0.24'
x_authority: cpan:DAGOLDEN
x_contributors:
- 'Dagfinn Ilmari Mannsåker <ilmari at ilmari.org>'
diff --git a/Makefile.PL b/Makefile.PL
index ad80764..8c9e88d 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -1,4 +1,5 @@
+# This file was automatically generated by Dist::Zilla::Plugin::MakeMaker v5.012.
use strict;
use warnings;
@@ -35,39 +36,39 @@ my %WriteMakefileArgs = (
"IO::File" => 0,
"List::Util" => 0,
"Test::More" => "0.62",
- "lib" => 0
+ "lib" => 0,
+ "version" => 0
},
- "VERSION" => "0.23",
+ "VERSION" => "0.24",
"test" => {
"TESTS" => "t/*.t"
}
);
-unless ( eval { ExtUtils::MakeMaker->VERSION(6.63_03) } ) {
- my $tr = delete $WriteMakefileArgs{TEST_REQUIRES};
- my $br = $WriteMakefileArgs{BUILD_REQUIRES};
- for my $mod ( keys %$tr ) {
- if ( exists $br->{$mod} ) {
- $br->{$mod} = $tr->{$mod} if $tr->{$mod} > $br->{$mod};
- }
- else {
- $br->{$mod} = $tr->{$mod};
- }
- }
-}
+my %FallbackPrereqs = (
+ "Carp" => 0,
+ "Exporter" => 0,
+ "ExtUtils::MakeMaker" => 0,
+ "File::Spec" => 0,
+ "File::Spec::Functions" => 0,
+ "File::Temp" => 0,
+ "IO::File" => 0,
+ "IO::Handle" => 0,
+ "List::Util" => 0,
+ "Scalar::Util" => 0,
+ "Test::More" => "0.62",
+ "lib" => 0,
+ "strict" => 0,
+ "version" => 0,
+ "warnings" => 0
+);
-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};
- }
- }
+
+unless ( eval { ExtUtils::MakeMaker->VERSION(6.63_03) } ) {
+ delete $WriteMakefileArgs{TEST_REQUIRES};
+ delete $WriteMakefileArgs{BUILD_REQUIRES};
+ $WriteMakefileArgs{PREREQ_PM} = \%FallbackPrereqs;
}
delete $WriteMakefileArgs{CONFIGURE_REQUIRES}
diff --git a/README b/README
index 055f2d4..e84c150 100644
--- a/README
+++ b/README
@@ -3,7 +3,7 @@ NAME
programs
VERSION
- version 0.23
+ version 0.24
SYNOPSIS
use Capture::Tiny ':all';
diff --git a/cpanfile b/cpanfile
index 5fc3151..f786060 100644
--- a/cpanfile
+++ b/cpanfile
@@ -15,11 +15,12 @@ on 'test' => sub {
requires "List::Util" => "0";
requires "Test::More" => "0.62";
requires "lib" => "0";
+ requires "version" => "0";
};
on 'test' => sub {
recommends "CPAN::Meta" => "0";
- recommends "CPAN::Meta::Requirements" => "0";
+ recommends "CPAN::Meta::Requirements" => "2.120900";
recommends "Inline" => "0.50";
};
@@ -28,6 +29,11 @@ on 'configure' => sub {
};
on 'develop' => sub {
+ requires "Dist::Zilla" => "5.012";
+ requires "Dist::Zilla::Plugin::OSPrereqs" => "0";
+ requires "Dist::Zilla::Plugin::Prereqs" => "0";
+ requires "Dist::Zilla::Plugin::RemovePrereqs" => "0";
+ requires "Dist::Zilla::PluginBundle::DAGOLDEN" => "0.060";
requires "File::Spec" => "0";
requires "File::Temp" => "0";
requires "IO::Handle" => "0";
diff --git a/dist.ini b/dist.ini
index 385adc2..be2243c 100644
--- a/dist.ini
+++ b/dist.ini
@@ -5,7 +5,7 @@ copyright_holder = David Golden
copyright_year = 2009
[@DAGOLDEN]
-:version = 0.056
+:version = 0.060
stopwords = UTF
stopwords = seekable
stopwords = prototyped
diff --git a/lib/Capture/Tiny.pm b/lib/Capture/Tiny.pm
index f5818c4..82e1de5 100644
--- a/lib/Capture/Tiny.pm
+++ b/lib/Capture/Tiny.pm
@@ -3,7 +3,7 @@ use strict;
use warnings;
package Capture::Tiny;
# ABSTRACT: Capture STDOUT and STDERR from Perl, XS or external programs
-our $VERSION = '0.23'; # VERSION
+our $VERSION = '0.24'; # VERSION
use Carp ();
use Exporter ();
use IO::Handle ();
@@ -63,11 +63,18 @@ our $TIMEOUT = 30;
# This is annoying, but seems to be the best that can be done
# as a simple, portable IPC technique
#--------------------------------------------------------------------------#
-my @cmd = ($^X, '-C0', '-e', '$SIG{HUP}=sub{exit}; '
- . 'if( my $fn=shift ){ open my $fh, qq{>$fn}; print {$fh} $$; close $fh;} '
- . 'my $buf; while (sysread(STDIN, $buf, 2048)) { '
- . 'syswrite(STDOUT, $buf); syswrite(STDERR, $buf)}'
-);
+my @cmd = ($^X, '-C0', '-e', <<'HERE');
+use Fcntl;
+$SIG{HUP}=sub{exit};
+if ( my $fn=shift ) {
+ sysopen(my $fh, qq{$fn}, O_WRONLY|O_CREAT|O_EXCL) or die $!;
+ print {$fh} $$;
+ close $fh;
+}
+my $buf; while (sysread(STDIN, $buf, 2048)) {
+ syswrite(STDOUT, $buf); syswrite(STDERR, $buf);
+}
+HERE
#--------------------------------------------------------------------------#
# filehandle manipulation
@@ -413,7 +420,7 @@ Capture::Tiny - Capture STDOUT and STDERR from Perl, XS or external programs
=head1 VERSION
-version 0.23
+version 0.24
=head1 SYNOPSIS
diff --git a/perlcritic.rc b/perlcritic.rc
index cef05a8..bcbbb45 100644
--- a/perlcritic.rc
+++ b/perlcritic.rc
@@ -7,6 +7,9 @@ allow = $@ $!
[TestingAndDebugging::ProhibitNoStrict]
allow = refs
+[Variables::ProhibitEvilVariables]
+variables = $DB::single
+
# Turn these off
[-BuiltinFunctions::ProhibitStringyEval]
[-ControlStructures::ProhibitPostfixControls]
diff --git a/t/00-report-prereqs.t b/t/00-report-prereqs.t
index fd83b68..1799706 100644
--- a/t/00-report-prereqs.t
+++ b/t/00-report-prereqs.t
@@ -3,72 +3,131 @@
use strict;
use warnings;
-# This test was generated by Dist::Zilla::Plugin::Test::ReportPrereqs 0.010
+# This test was generated by Dist::Zilla::Plugin::Test::ReportPrereqs 0.013
use Test::More tests => 1;
use ExtUtils::MakeMaker;
use File::Spec::Functions;
use List::Util qw/max/;
+use version;
+
+# hide optional CPAN::Meta modules from prereq scanner
+# and check if they are available
+my $cpan_meta = "CPAN::Meta";
+my $cpan_meta_req = "CPAN::Meta::Requirements";
+my $HAS_CPAN_META = eval "require $cpan_meta"; ## no critic
+my $HAS_CPAN_META_REQ = eval "require $cpan_meta_req; $cpan_meta_req->VERSION('2.120900')";
+
+# Verify requirements?
+my $DO_VERIFY_PREREQS = 1;
+
+sub _merge_requires {
+ my ($collector, $prereqs) = @_;
+ for my $phase ( qw/configure build test runtime develop/ ) {
+ next unless exists $prereqs->{$phase};
+ if ( my $req = $prereqs->{$phase}{'requires'} ) {
+ my $cmr = CPAN::Meta::Requirements->from_string_hash( $req );
+ $collector->add_requirements( $cmr );
+ }
+ }
+}
+
+my %include = map {; $_ => 1 } qw(
-my @modules = qw(
- CPAN::Meta
- CPAN::Meta::Requirements
- Carp
- Exporter
- ExtUtils::MakeMaker
- File::Spec
- File::Spec::Functions
- File::Temp
- IO::File
- IO::Handle
- Inline
- List::Util
- Scalar::Util
- Test::More
- lib
- perl
- strict
- warnings
);
my %exclude = map {; $_ => 1 } qw(
);
-my ($source) = grep { -f $_ } qw/MYMETA.json MYMETA.yml META.json/;
-$source = "META.yml" unless defined $source;
-
-# replace modules with dynamic results from MYMETA.json if we can
-# (hide CPAN::Meta from prereq scanner)
-my $cpan_meta = "CPAN::Meta";
-my $cpan_meta_req = "CPAN::Meta::Requirements";
+# Add static prereqs to the included modules list
+my $static_prereqs = do { my $x = {
+ 'configure' => {
+ 'requires' => {
+ 'ExtUtils::MakeMaker' => '6.17'
+ }
+ },
+ 'develop' => {
+ 'requires' => {
+ 'Dist::Zilla' => '5.012',
+ 'Dist::Zilla::Plugin::OSPrereqs' => '0',
+ 'Dist::Zilla::Plugin::Prereqs' => '0',
+ 'Dist::Zilla::Plugin::RemovePrereqs' => '0',
+ 'Dist::Zilla::PluginBundle::DAGOLDEN' => '0.060',
+ 'File::Spec' => '0',
+ 'File::Temp' => '0',
+ 'IO::Handle' => '0',
+ 'IPC::Open3' => '0',
+ 'Pod::Coverage::TrustPod' => '0',
+ 'Test::CPAN::Meta' => '0',
+ 'Test::More' => '0',
+ 'Test::Pod' => '1.41',
+ 'Test::Pod::Coverage' => '1.08'
+ }
+ },
+ 'runtime' => {
+ 'requires' => {
+ 'Carp' => '0',
+ 'Exporter' => '0',
+ 'File::Spec' => '0',
+ 'File::Temp' => '0',
+ 'IO::Handle' => '0',
+ 'Scalar::Util' => '0',
+ 'perl' => '5.006',
+ 'strict' => '0',
+ 'warnings' => '0'
+ }
+ },
+ 'test' => {
+ 'recommends' => {
+ 'CPAN::Meta' => '0',
+ 'CPAN::Meta::Requirements' => '2.120900',
+ 'Inline' => '0.50'
+ },
+ 'requires' => {
+ 'ExtUtils::MakeMaker' => '0',
+ 'File::Spec::Functions' => '0',
+ 'IO::File' => '0',
+ 'List::Util' => '0',
+ 'Test::More' => '0.62',
+ 'lib' => '0',
+ 'version' => '0'
+ }
+ }
+ };
+ $x;
+ };
+
+delete $static_prereqs->{develop} if not $ENV{AUTHOR_TESTING};
+$include{$_} = 1 for map { keys %$_ } map { values %$_ } values %$static_prereqs;
+
+# Merge requirements for major phases (if we can)
my $all_requires;
-if ( -f $source && eval "require $cpan_meta" ) { ## no critic
+if ( $DO_VERIFY_PREREQS && $HAS_CPAN_META_REQ ) {
+ $all_requires = $cpan_meta_req->new;
+ _merge_requires($all_requires, $static_prereqs);
+}
+
+
+# Add dynamic prereqs to the included modules list (if we can)
+my ($source) = grep { -f } 'MYMETA.json', 'MYMETA.yml';
+if ( $source && $HAS_CPAN_META ) {
if ( my $meta = eval { CPAN::Meta->load_file($source) } ) {
+ my $dynamic_prereqs = $meta->prereqs;
+ delete $dynamic_prereqs->{develop} if not $ENV{AUTHOR_TESTING};
+ $include{$_} = 1 for map { keys %$_ } map { values %$_ } values %$dynamic_prereqs;
- # Get ALL modules mentioned in META (any phase/type)
- my $prereqs = $meta->prereqs;
- delete $prereqs->{develop} if not $ENV{AUTHOR_TESTING};
- my %uniq = map {$_ => 1} map { keys %$_ } map { values %$_ } values %$prereqs;
- $uniq{$_} = 1 for @modules; # don't lose any static ones
- @modules = sort grep { ! $exclude{$_} } keys %uniq;
-
- # If verifying, merge 'requires' only for major phases
- if ( 1 ) {
- $prereqs = $meta->effective_prereqs; # get the object, not the hash
- if (eval "require $cpan_meta_req; 1") { ## no critic
- $all_requires = $cpan_meta_req->new;
- for my $phase ( qw/configure build test runtime/ ) {
- $all_requires->add_requirements(
- $prereqs->requirements_for($phase, 'requires')
- );
- }
- }
+ if ( $DO_VERIFY_PREREQS && $HAS_CPAN_META_REQ ) {
+ _merge_requires($all_requires, $dynamic_prereqs);
}
}
}
+else {
+ $source = 'static metadata';
+}
+my @modules = sort grep { ! $exclude{$_} } keys %include;
my @reports = [qw/Version Module/];
my @dep_errors;
my $req_hash = defined($all_requires) ? $all_requires->as_string_hash : {};
@@ -84,7 +143,7 @@ for my $mod ( @modules ) {
$ver = "undef" unless defined $ver; # Newer MM should do this anyway
push @reports, [$ver, $mod];
- if ( 1 && $all_requires ) {
+ if ( $DO_VERIFY_PREREQS && $all_requires ) {
my $req = $req_hash->{$mod};
if ( defined $req && length $req ) {
if ( ! defined eval { version->parse($ver) } ) {
@@ -100,7 +159,7 @@ for my $mod ( @modules ) {
else {
push @reports, ["missing", $mod];
- if ( 1 && $all_requires ) {
+ if ( $DO_VERIFY_PREREQS && $all_requires ) {
my $req = $req_hash->{$mod};
if ( defined $req && length $req ) {
push @dep_errors, "$mod is not installed (version '$req' required)";
@@ -128,4 +187,4 @@ if ( @dep_errors ) {
pass;
-# vim: ts=2 sts=2 sw=2 et:
+# vim: ts=4 sts=4 sw=4 et:
diff --git a/xt/author/00-compile.t b/xt/author/00-compile.t
index ddc8910..461dbff 100644
--- a/xt/author/00-compile.t
+++ b/xt/author/00-compile.t
@@ -1,7 +1,8 @@
+use 5.006;
use strict;
use warnings;
-# this test was generated with Dist::Zilla::Plugin::Test::Compile 2.037
+# this test was generated with Dist::Zilla::Plugin::Test::Compile 2.039
use Test::More tests => 1 + ($ENV{AUTHOR_TESTING} ? 1 : 0);
@@ -24,11 +25,12 @@ use File::Spec;
use IPC::Open3;
use IO::Handle;
+open my $stdin, '<', File::Spec->devnull or die "can't open devnull: $!";
+
my @warnings;
for my $lib (@module_files)
{
# see L<perlfaq8/How can I capture STDERR from an external command?>
- open my $stdin, '<', File::Spec->devnull or die "can't open devnull: $!";
my $stderr = IO::Handle->new;
my $pid = open3($stdin, '>&STDERR', $stderr, $^X, $inc_switch, '-e', "require q[$lib]");
diff --git a/xt/author/pod-spell.t b/xt/author/pod-spell.t
index bfdf9d2..ee82eb0 100644
--- a/xt/author/pod-spell.t
+++ b/xt/author/pod-spell.t
@@ -2,7 +2,7 @@ use strict;
use warnings;
use Test::More;
-# generated by Dist::Zilla::Plugin::Test::PodSpelling 2.006001
+# generated by Dist::Zilla::Plugin::Test::PodSpelling 2.006002
use Test::Spelling 0.12;
use Pod::Wordlist;
diff --git a/xt/release/distmeta.t b/xt/release/distmeta.t
index b46c7fc..38e8429 100644
--- a/xt/release/distmeta.t
+++ b/xt/release/distmeta.t
@@ -1,4 +1,5 @@
#!perl
+# This file was automatically generated by Dist::Zilla::Plugin::MetaTests.
use Test::More;
diff --git a/xt/release/pod-coverage.t b/xt/release/pod-coverage.t
index b52218b..9d5f1b4 100644
--- a/xt/release/pod-coverage.t
+++ b/xt/release/pod-coverage.t
@@ -1,4 +1,5 @@
#!perl
+# This file was automatically generated by Dist::Zilla::Plugin::PodCoverageTests.
use Test::More;
diff --git a/xt/release/pod-syntax.t b/xt/release/pod-syntax.t
index 8a22900..3a69ee9 100644
--- a/xt/release/pod-syntax.t
+++ b/xt/release/pod-syntax.t
@@ -1,4 +1,5 @@
#!perl
+# This file was automatically generated by Dist::Zilla::Plugin::PodSyntaxTests.
use Test::More;
eval "use Test::Pod 1.41";
--
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libcapture-tiny-perl.git
More information about the Pkg-perl-cvs-commits
mailing list