Hello community, here is the log from the commit of package perl-Capture-Tiny for openSUSE:Factory checked in at 2012-02-28 14:14:34 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Capture-Tiny (Old) and /work/SRC/openSUSE:Factory/.perl-Capture-Tiny.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Capture-Tiny", Maintainer is "" Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Capture-Tiny/perl-Capture-Tiny.changes 2012-02-21 12:23:08.000000000 +0100 +++ /work/SRC/openSUSE:Factory/.perl-Capture-Tiny.new/perl-Capture-Tiny.changes 2012-02-28 14:14:36.000000000 +0100 @@ -1,0 +2,16 @@ +Mon Feb 27 08:43:08 UTC 2012 - [email protected] + +- updated to 0.17 + Fixed: + - Added a workaround for failing t/08-stdin-closed.t under blead + perl / 5.15.8 [RT#111070] + + Documented: + - Clarified some limitations; added a link to CPAN Testers Matrix; + removed redundant BUGS section; standardized terminology + + Tested: + - Added a test using Inline::C to print to stdout and stderr in response + to RT#71701 + +------------------------------------------------------------------- Old: ---- Capture-Tiny-0.16.tar.gz New: ---- Capture-Tiny-0.17.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Capture-Tiny.spec ++++++ --- /var/tmp/diff_new_pack.9odJ1F/_old 2012-02-28 14:14:37.000000000 +0100 +++ /var/tmp/diff_new_pack.9odJ1F/_new 2012-02-28 14:14:37.000000000 +0100 @@ -17,7 +17,7 @@ Name: perl-Capture-Tiny -Version: 0.16 +Version: 0.17 Release: 0 %define cpan_name Capture-Tiny Summary: Capture STDOUT and STDERR from Perl, XS or external programs @@ -31,6 +31,7 @@ BuildRequires: perl-macros #BuildRequires: perl(Capture::Tiny) #BuildRequires: perl(Cases) +#BuildRequires: perl(Inline) #BuildRequires: perl(Test::Differences) #BuildRequires: perl(Test::Requires) #BuildRequires: perl(TieLC) @@ -41,7 +42,7 @@ Capture::Tiny provides a simple, portable way to capture almost anything sent to STDOUT or STDERR, regardless of whether it comes from Perl, from XS code or from an external program. Optionally, output can be teed so that it -is captured while being passed through to the original handles. Yes, it +is captured while being passed through to the original filehandles. Yes, it even works on Windows (usually). Stop guessing which of a dozen capturing modules to use in any particular situation and just use this one. ++++++ Capture-Tiny-0.16.tar.gz -> Capture-Tiny-0.17.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Capture-Tiny-0.16/Changes new/Capture-Tiny-0.17/Changes --- old/Capture-Tiny-0.16/Changes 2012-02-13 03:04:29.000000000 +0100 +++ new/Capture-Tiny-0.17/Changes 2012-02-22 14:07:47.000000000 +0100 @@ -1,5 +1,22 @@ Revision history for Capture-Tiny +0.17 2012-02-22 08:07:41 EST5EDT + + Fixed: + + - Added a workaround for failing t/08-stdin-closed.t under blead + perl / 5.15.8 [rt.perl.org #111070] + + Documented: + + - Clarified some limitations; added a link to CPAN Testers Matrix; + removed redundant BUGS section; standardized terminology + + Tested: + + - Added a test using Inline::C to print to stdout and stderr in response + to rt.cpan.org #71701 + 0.16 2012-02-12 21:04:24 EST5EDT Documented: diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Capture-Tiny-0.16/MANIFEST new/Capture-Tiny-0.17/MANIFEST --- old/Capture-Tiny-0.16/MANIFEST 2012-02-13 03:04:29.000000000 +0100 +++ new/Capture-Tiny-0.17/MANIFEST 2012-02-22 14:07:47.000000000 +0100 @@ -29,6 +29,7 @@ t/16-catch-errors.t t/17-pass-results.t t/18-custom-capture.t +t/19-inline-c.t t/lib/Cases.pm t/lib/TieLC.pm t/lib/Utils.pm diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Capture-Tiny-0.16/META.json new/Capture-Tiny-0.17/META.json --- old/Capture-Tiny-0.16/META.json 2012-02-13 03:04:29.000000000 +0100 +++ new/Capture-Tiny-0.17/META.json 2012-02-22 14:07:47.000000000 +0100 @@ -4,7 +4,7 @@ "David Golden <[email protected]>" ], "dynamic_config" : 1, - "generated_by" : "Dist::Zilla version 4.300005, CPAN::Meta::Converter version 2.112621", + "generated_by" : "Dist::Zilla version 4.300005, CPAN::Meta::Converter version 2.120351", "license" : [ "apache_2_0" ], @@ -32,22 +32,25 @@ }, "runtime" : { "requires" : { - "Carp" : 0, - "Exporter" : 0, - "File::Spec" : 0, - "File::Temp" : 0, - "IO::Handle" : 0, - "Scalar::Util" : 0, + "Carp" : "0", + "Exporter" : "0", + "File::Spec" : "0", + "File::Temp" : "0", + "IO::Handle" : "0", + "Scalar::Util" : "0", "perl" : "5.006", - "strict" : 0, - "warnings" : 0 + "strict" : "0", + "warnings" : "0" } }, "test" : { + "recommends" : { + "Inline" : "0.50" + }, "requires" : { - "Config" : 0, - "File::Find" : 0, - "IO::File" : 0, + "Config" : "0", + "File::Find" : "0", + "IO::File" : "0", "Test::More" : "0.62" } } @@ -55,7 +58,7 @@ "provides" : { "Capture::Tiny" : { "file" : "lib/Capture/Tiny.pm", - "version" : "0.16" + "version" : "0.17" } }, "release_status" : "stable", @@ -71,6 +74,6 @@ "web" : "https://github.com/dagolden/capture-tiny"; } }, - "version" : "0.16" + "version" : "0.17" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Capture-Tiny-0.16/META.yml new/Capture-Tiny-0.17/META.yml --- old/Capture-Tiny-0.16/META.yml 2012-02-13 03:04:29.000000000 +0100 +++ new/Capture-Tiny-0.17/META.yml 2012-02-22 14:07:47.000000000 +0100 @@ -10,7 +10,7 @@ configure_requires: ExtUtils::MakeMaker: 6.30 dynamic_config: 1 -generated_by: 'Dist::Zilla version 4.300005, CPAN::Meta::Converter version 2.112621' +generated_by: 'Dist::Zilla version 4.300005, CPAN::Meta::Converter version 2.120351' license: apache meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html @@ -27,7 +27,7 @@ provides: Capture::Tiny: file: lib/Capture/Tiny.pm - version: 0.16 + version: 0.17 requires: Carp: 0 Exporter: 0 @@ -42,4 +42,4 @@ bugtracker: http://rt.cpan.org/Public/Dist/Display.html?Name=Capture-Tiny homepage: https://github.com/dagolden/capture-tiny repository: https://github.com/dagolden/capture-tiny.git -version: 0.16 +version: 0.17 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Capture-Tiny-0.16/Makefile.PL new/Capture-Tiny-0.17/Makefile.PL --- old/Capture-Tiny-0.16/Makefile.PL 2012-02-13 03:04:29.000000000 +0100 +++ new/Capture-Tiny-0.17/Makefile.PL 2012-02-22 14:07:47.000000000 +0100 @@ -34,7 +34,7 @@ "strict" => 0, "warnings" => 0 }, - "VERSION" => "0.16", + "VERSION" => "0.17", "test" => { "TESTS" => "t/*.t" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Capture-Tiny-0.16/README new/Capture-Tiny-0.17/README --- old/Capture-Tiny-0.16/README 2012-02-13 03:04:29.000000000 +0100 +++ new/Capture-Tiny-0.17/README 2012-02-22 14:07:47.000000000 +0100 @@ -3,7 +3,7 @@ programs VERSION - version 0.16 + version 0.17 SYNOPSIS use Capture::Tiny ':all'; @@ -28,10 +28,10 @@ Capture::Tiny provides a simple, portable way to capture almost anything sent to STDOUT or STDERR, regardless of whether it comes from Perl, from XS code or from an external program. Optionally, output can be teed so - that it is captured while being passed through to the original handles. - Yes, it even works on Windows (usually). Stop guessing which of a dozen - capturing modules to use in any particular situation and just use this - one. + that it is captured while being passed through to the original + filehandles. Yes, it even works on Windows (usually). Stop guessing + which of a dozen capturing modules to use in any particular situation + and just use this one. USAGE The following functions are available. None are exported by default. @@ -43,9 +43,9 @@ The "capture" function takes a code reference and returns what is sent to STDOUT and STDERR as well as any return values from the code reference. In scalar context, it returns only STDOUT. If no output was - received for a handle, it returns an empty string for that handle. - Regardless of calling context, all output is captured -- nothing is - passed to the existing handles. + received for a filehandle, it returns an empty string for that + filehandle. Regardless of calling context, all output is captured -- + nothing is passed to the existing filehandles. It is prototyped to take a subroutine reference as an argument. Thus, it can be called in block form: @@ -134,18 +134,20 @@ Portability Portability is a goal, not a guarantee. "tee" requires fork, except on Windows where "system(1, @cmd)" is used instead. Not tested on any - particularly esoteric platforms yet. + particularly esoteric platforms yet. See the CPAN Testers Matrix + <http://matrix.cpantesters.org/?dist=Capture-Tiny> for test result by + platform. PerlIO layers Capture::Tiny does it's best to preserve PerlIO layers such as ':utf8' or ':crlf' when capturing. Layers should be applied to STDOUT or STDERR *before* the call to "capture" or "tee". This may not work for tied - handles (see below). + filehandles (see below). Modifying filehandles before capturing Generally speaking, you should do little or no manipulation of the - standard IO handles prior to using Capture::Tiny. In particular, - closing, reopening, localizing or tying standard handles prior to + standard IO filehandles prior to using Capture::Tiny. In particular, + closing, reopening, localizing or tying standard filehandles prior to capture may cause a variety of unexpected, undesirable and/or unreliable behaviors, as described below. Capture::Tiny does its best to compensate for these situations, but the results may not be what you desire. @@ -159,51 +161,51 @@ closed, Capture::Tiny will close them again when the capture block finishes. - Note that this reopening will happen even for STDIN or a handle not + Note that this reopening will happen even for STDIN or a filehandle not being captured to ensure that the filehandle used for capture is not opened to file descriptor 0, as this causes problems on various platforms. Localized filehandles - If code localizes any of Perl's standard handles before capturing, the - capture will affect the localized handles and not the original ones. - External system calls are not affected by localizing a handle in Perl - and will continue to send output to the original handles (which will - thus not be captured). + If code localizes any of Perl's standard filehandles before capturing, + the capture will affect the localized filehandles and not the original + ones. External system calls are not affected by localizing a filehandle + in Perl and will continue to send output to the original filehandles + (which will thus not be captured). Scalar filehandles If STDOUT or STDERR are reopened to scalar filehandles prior to the call to "capture" or "tee", then Capture::Tiny will override the output - handle for the duration of the "capture" or "tee" call and then send - captured output to the output handle after the capture is complete. + filehandle for the duration of the "capture" or "tee" call and then send + captured output to the output filehandle after the capture is complete. (Requires Perl 5.8) Capture::Tiny attempts to preserve the semantics of STDIN opened to a scalar reference. - Tied output handles + Tied output filehandles If STDOUT or STDERR are tied prior to the call to "capture" or "tee", then Capture::Tiny will attempt to override the tie for the duration of the "capture" or "tee" call and then send captured output to the tied - handle after the capture is complete. (Requires Perl 5.8) + filehandle after the capture is complete. (Requires Perl 5.8) Capture::Tiny may not succeed resending UTF-8 encoded data to a tied - STDOUT or STDERR handle. Characters may appear as bytes. If the tied - handle is based on Tie::StdHandle, then Capture::Tiny will attempt to - determine appropriate layers like ":utf8" from the underlying handle and - do the right thing. + STDOUT or STDERR filehandle. Characters may appear as bytes. If the tied + filehandle is based on Tie::StdHandle, then Capture::Tiny will attempt + to determine appropriate layers like ":utf8" from the underlying + filehandle and do the right thing. - Tied input handle + Tied input filehandle Capture::Tiny attempts to preserve the semantics of tied STDIN, but this is not entirely stable or portable. For example: * Capturing or teeing with STDIN tied is broken on Windows - * FCGI has been reported as having a pathological tied handle + * FCGI has been reported as having a pathological tied filehandle implementation that causes fatal (and hard to diagnose) errors Unless having STDIN tied is crucial, it may be safest to localize STDIN @@ -211,7 +213,7 @@ my ($out, $err) = do { local *STDIN; capture { ... } }; - Modifying handles during a capture + Modifying filehandles during a capture Attempting to modify STDIN, STDOUT or STDERR *during* "capture" or "tee" is almost certainly going to cause problems. Don't do that. @@ -227,14 +229,6 @@ setting the "PERL_CAPTURE_TINY_TIMEOUT" environment variable. Setting it to zero will disable timeouts. -BUGS - Please report any bugs or feature requests using the CPAN Request - Tracker. Bugs can be submitted through the web interface at - <http://rt.cpan.org/Dist/Display.html?Queue=Capture-Tiny> - - When submitting a bug or request, please include a test-file or a patch - to an existing test-file that illustrates the bug or desired feature. - SEE ALSO This module was, inspired by IO::CaptureOutput, which provides similar functionality without the ability to tee output and with more diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Capture-Tiny-0.16/dist.ini new/Capture-Tiny-0.17/dist.ini --- old/Capture-Tiny-0.16/dist.ini 2012-02-13 03:04:29.000000000 +0100 +++ new/Capture-Tiny-0.17/dist.ini 2012-02-22 14:07:47.000000000 +0100 @@ -15,4 +15,8 @@ remove = PerlIO remove = PerlIO::scalar remove = Test::Differences +remove = Inline + +[Prereqs / TestRecommends] +Inline = 0.50 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Capture-Tiny-0.16/lib/Capture/Tiny.pm new/Capture-Tiny-0.17/lib/Capture/Tiny.pm --- old/Capture-Tiny-0.16/lib/Capture/Tiny.pm 2012-02-13 03:04:29.000000000 +0100 +++ new/Capture-Tiny-0.17/lib/Capture/Tiny.pm 2012-02-22 14:07:47.000000000 +0100 @@ -3,7 +3,7 @@ use warnings; package Capture::Tiny; # ABSTRACT: Capture STDOUT and STDERR from Perl, XS or external programs -our $VERSION = '0.16'; # VERSION +our $VERSION = '0.17'; # VERSION use Carp (); use Exporter (); use IO::Handle (); @@ -186,9 +186,7 @@ # setup pipes $stash->{$_}{$which} = IO::Handle->new for qw/tee reader/; pipe $stash->{reader}{$which}, $stash->{tee}{$which}; - # _debug( "# pipe for $which\: " . _name($stash->{tee}{$which}) . " " - # . fileno( $stash->{tee}{$which} ) . " => " . _name($stash->{reader}{$which}) - # . " " . fileno( $stash->{reader}{$which}) . "\n" ); + # _debug( "# pipe for $which\: " . _name($stash->{tee}{$which}) . " " . fileno( $stash->{tee}{$which} ) . " => " . _name($stash->{reader}{$which}) . " " . fileno( $stash->{reader}{$which}) . "\n" ); select((select($stash->{tee}{$which}), $|=1)[0]); # autoflush # setup desired redirection for parent and child $stash->{new}{$which} = $stash->{tee}{$which}; @@ -406,7 +404,7 @@ =head1 VERSION -version 0.16 +version 0.17 =head1 SYNOPSIS @@ -433,7 +431,7 @@ Capture::Tiny provides a simple, portable way to capture almost anything sent to STDOUT or STDERR, regardless of whether it comes from Perl, from XS code or from an external program. Optionally, output can be teed so that it is -captured while being passed through to the original handles. Yes, it even +captured while being passed through to the original filehandles. Yes, it even works on Windows (usually). Stop guessing which of a dozen capturing modules to use in any particular situation and just use this one. @@ -449,8 +447,8 @@ The C<<< capture >>> function takes a code reference and returns what is sent to STDOUT and STDERR as well as any return values from the code reference. In scalar context, it returns only STDOUT. If no output was received for a -handle, it returns an empty string for that handle. Regardless of calling -context, all output is captured -- nothing is passed to the existing handles. +filehandle, it returns an empty string for that filehandle. Regardless of calling +context, all output is captured -- nothing is passed to the existing filehandles. It is prototyped to take a subroutine reference as an argument. Thus, it can be called in block form: @@ -548,19 +546,21 @@ Portability is a goal, not a guarantee. C<<< tee >>> requires fork, except on Windows where C<<< system(1, @cmd) >>> is used instead. Not tested on any -particularly esoteric platforms yet. +particularly esoteric platforms yet. See the +L<CPAN Testers Matrix|http://matrix.cpantesters.org/?dist=Capture-Tiny> +for test result by platform. =head2 PerlIO layers Capture::Tiny does it's best to preserve PerlIO layers such as ':utf8' or ':crlf' when capturing. Layers should be applied to STDOUT or STDERR I<before> -the call to C<<< capture >>> or C<<< tee >>>. This may not work for tied handles (see below). +the call to C<<< capture >>> or C<<< tee >>>. This may not work for tied filehandles (see below). =head2 Modifying filehandles before capturing Generally speaking, you should do little or no manipulation of the standard IO -handles prior to using Capture::Tiny. In particular, closing, reopening, -localizing or tying standard handles prior to capture may cause a variety of +filehandles prior to using Capture::Tiny. In particular, closing, reopening, +localizing or tying standard filehandles prior to capture may cause a variety of unexpected, undesirable andE<sol>or unreliable behaviors, as described below. Capture::Tiny does its best to compensate for these situations, but the results may not be what you desire. @@ -573,41 +573,41 @@ course, not find them to be closed. If they started closed, Capture::Tiny will close them again when the capture block finishes. -Note that this reopening will happen even for STDIN or a handle not being +Note that this reopening will happen even for STDIN or a filehandle not being captured to ensure that the filehandle used for capture is not opened to file descriptor 0, as this causes problems on various platforms. B<Localized filehandles> -If code localizes any of Perl's standard handles before capturing, the capture -will affect the localized handles and not the original ones. External system -calls are not affected by localizing a handle in Perl and will continue -to send output to the original handles (which will thus not be captured). +If code localizes any of Perl's standard filehandles before capturing, the capture +will affect the localized filehandles and not the original ones. External system +calls are not affected by localizing a filehandle in Perl and will continue +to send output to the original filehandles (which will thus not be captured). B<Scalar filehandles> If STDOUT or STDERR are reopened to scalar filehandles prior to the call to -C<<< capture >>> or C<<< tee >>>, then Capture::Tiny will override the output handle for the +C<<< capture >>> or C<<< tee >>>, then Capture::Tiny will override the output filehandle for the duration of the C<<< capture >>> or C<<< tee >>> call and then send captured output to the -output handle after the capture is complete. (Requires Perl 5.8) +output filehandle after the capture is complete. (Requires Perl 5.8) Capture::Tiny attempts to preserve the semantics of STDIN opened to a scalar reference. -B<Tied output handles> +B<Tied output filehandles> If STDOUT or STDERR are tied prior to the call to C<<< capture >>> or C<<< tee >>>, then Capture::Tiny will attempt to override the tie for the duration of the -C<<< capture >>> or C<<< tee >>> call and then send captured output to the tied handle after +C<<< capture >>> or C<<< tee >>> call and then send captured output to the tied filehandle after the capture is complete. (Requires Perl 5.8) Capture::Tiny may not succeed resending UTF-8 encoded data to a tied -STDOUT or STDERR handle. Characters may appear as bytes. If the tied handle +STDOUT or STDERR filehandle. Characters may appear as bytes. If the tied filehandle is based on L<Tie::StdHandle>, then Capture::Tiny will attempt to determine -appropriate layers like C<<< :utf8 >>> from the underlying handle and do the right +appropriate layers like C<<< :utf8 >>> from the underlying filehandle and do the right thing. -B<Tied input handle> +B<Tied input filehandle> Capture::Tiny attempts to preserve the semantics of tied STDIN, but this is not entirely stable or portable. For example: @@ -620,7 +620,7 @@ =item * -L<FCGI> has been reported as having a pathological tied handle implementation +L<FCGI> has been reported as having a pathological tied filehandle implementation that causes fatal (and hard to diagnose) errors =back @@ -630,7 +630,7 @@ my ($out, $err) = do { local *STDIN; capture { ... } }; -=head2 Modifying handles during a capture +=head2 Modifying filehandles during a capture Attempting to modify STDIN, STDOUT or STDERR I<during> C<<< capture >>> or C<<< tee >>> is almost certainly going to cause problems. Don't do that. @@ -649,15 +649,6 @@ alternate timeout may be specified by setting the C<<< PERL_CAPTURE_TINY_TIMEOUT >>> environment variable. Setting it to zero will disable timeouts. -=head1 BUGS - -Please report any bugs or feature requests using the CPAN Request Tracker. -Bugs can be submitted through the web interface at -L<http://rt.cpan.org/Dist/Display.html?Queue=Capture-Tiny> - -When submitting a bug or request, please include a test-file or a patch to an -existing test-file that illustrates the bug or desired feature. - =head1 SEE ALSO This module was, inspired by L<IO::CaptureOutput>, which provides diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Capture-Tiny-0.16/t/08-stdin-closed.t new/Capture-Tiny-0.17/t/08-stdin-closed.t --- old/Capture-Tiny-0.16/t/08-stdin-closed.t 2012-02-13 03:04:29.000000000 +0100 +++ new/Capture-Tiny-0.17/t/08-stdin-closed.t 2012-02-22 14:07:47.000000000 +0100 @@ -19,6 +19,10 @@ my $builder = Test::More->builder; binmode($builder->failure_output, ':utf8') if $] >= 5.008; +# XXX work around a bug in perl; this needs to be called early-ish +# to avoid some sort of filehandle leak when combined with Capture::Tiny +my $qm = quotemeta("\x{263a}"); + save_std(qw/stdin/); ok( close STDIN, "closed STDIN" ); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Capture-Tiny-0.16/t/19-inline-c.t new/Capture-Tiny-0.17/t/19-inline-c.t --- old/Capture-Tiny-0.16/t/19-inline-c.t 1970-01-01 01:00:00.000000000 +0100 +++ new/Capture-Tiny-0.17/t/19-inline-c.t 2012-02-22 14:07:47.000000000 +0100 @@ -0,0 +1,52 @@ +# Copyright (c) 2009 by David Golden. All rights reserved. +# Licensed under Apache License, Version 2.0 (the "License"). +# You may not use this file except in compliance with the License. +# A copy of the License was distributed with this file or you may obtain a +# copy of the License from http://www.apache.org/licenses/LICENSE-2.0 + +use strict; +use warnings; +use Test::More; +use lib 't/lib'; +use Utils qw/next_fd/; +use Capture::Tiny ':all'; +use Config; + +if ( eval { require Inline; 1 } ) { + Inline->bind( C => << 'CCODE' ); +void test_inline() { + (void)fprintf (stdout, "OUTPUT"); + (void)fprintf (stderr, "ERROR"); + (void)fflush (NULL); +} +CCODE +} +else { + plan skip_all => "Inline module required"; +} + +plan tests => 3; + +local $ENV{PERL_CAPTURE_TINY_TIMEOUT} = 0; # no timeout + +my $fd = next_fd; +my ($out, $err); + +#--------------------------------------------------------------------------# +# Test capturing from STDERR via Inline::C +# +# c.f. https://rt.cpan.org/Public/Bug/Display.html?id=71701 +#--------------------------------------------------------------------------# + +($out, $err) = capture { test_inline() }; +is ($out, "OUTPUT", "STDOUT from Inline::C sub"); +is ($err, "ERROR", "STDERR from Inline::C sub"); + +#--------------------------------------------------------------------------# +# finish +#--------------------------------------------------------------------------# + +close ARGV; # opened by reading from <> +is( next_fd, $fd, "no file descriptors leaked" ); + +exit 0; -- To unsubscribe, e-mail: [email protected] For additional commands, e-mail: [email protected]
