Hello community,

here is the log from the commit of package perl-Devel-CheckLib for 
openSUSE:Factory checked in at 2019-11-17 19:21:12
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-Devel-CheckLib (Old)
 and      /work/SRC/openSUSE:Factory/.perl-Devel-CheckLib.new.26869 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Package is "perl-Devel-CheckLib"

Sun Nov 17 19:21:12 2019 rev:11 rq:748727 version:1.14

Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-Devel-CheckLib/perl-Devel-CheckLib.changes  
2018-06-15 14:34:37.413914225 +0200
+++ 
/work/SRC/openSUSE:Factory/.perl-Devel-CheckLib.new.26869/perl-Devel-CheckLib.changes
       2019-11-17 19:21:13.614915114 +0100
@@ -1,0 +2,8 @@
+Thu Nov 14 09:24:33 UTC 2019 -  <timueller+p...@suse.de>
+
+- updated to 1.14
+   see /usr/share/doc/packages/perl-Devel-CheckLib/CHANGES
+
+  1.14    2019-11-12      Use Capture::Tiny instead of Capture::Output
+
+-------------------------------------------------------------------

Old:
----
  Devel-CheckLib-1.13.tar.gz

New:
----
  Devel-CheckLib-1.14.tar.gz

++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Other differences:
------------------
++++++ perl-Devel-CheckLib.spec ++++++
--- /var/tmp/diff_new_pack.jPA62X/_old  2019-11-17 19:21:14.074914919 +0100
+++ /var/tmp/diff_new_pack.jPA62X/_new  2019-11-17 19:21:14.078914917 +0100
@@ -1,7 +1,7 @@
 #
 # spec file for package perl-Devel-CheckLib
 #
-# Copyright (c) 2018 SUSE LINUX GmbH, Nuernberg, Germany.
+# Copyright (c) 2019 SUSE LINUX GmbH, Nuernberg, Germany.
 #
 # All modifications and additions to the file contributed by third parties
 # remain the property of their copyright owners, unless otherwise agreed
@@ -12,25 +12,26 @@
 # license that conforms to the Open Source Definition (Version 1.9)
 # published by the Open Source Initiative.
 
-# Please submit bugfixes or comments via http://bugs.opensuse.org/
+# Please submit bugfixes or comments via https://bugs.opensuse.org/
 #
 
 
 Name:           perl-Devel-CheckLib
-Version:        1.13
+Version:        1.14
 Release:        0
 %define cpan_name Devel-CheckLib
-Summary:        Check That a Library Is Available
+Summary:        Check that a library is available
 License:        Artistic-1.0 OR GPL-1.0-or-later
 Group:          Development/Libraries/Perl
-Url:            http://search.cpan.org/dist/Devel-CheckLib/
+Url:            https://metacpan.org/release/%{cpan_name}
 Source0:        
https://cpan.metacpan.org/authors/id/M/MA/MATTN/%{cpan_name}-%{version}.tar.gz
 Source1:        cpanspec.yml
 BuildRoot:      %{_tmppath}/%{name}-%{version}-build
 BuildRequires:  perl
 BuildRequires:  perl-macros
-BuildRequires:  perl(IO::CaptureOutput) >= 1.0801
+BuildRequires:  perl(Capture::Tiny)
 BuildRequires:  perl(Mock::Config) >= 0.02
+BuildRequires:  perl(Test::More) >= 0.88
 %{perl_requires}
 
 %description
@@ -39,14 +40,14 @@
 
 %prep
 %setup -q -n %{cpan_name}-%{version}
-find . -type f ! -name \*.pl -print0 | xargs -0 chmod 644
+find . -type f ! -path "*/t/*" ! -name "*.pl" ! -name "*.sh" ! -path "*/bin/*" 
! -path "*/script/*" ! -name "configure" -print0 | xargs -0 chmod 644
 
 %build
-%{__perl} Makefile.PL INSTALLDIRS=vendor OPTIMIZE="%{optflags}"
-%{__make} %{?_smp_mflags}
+perl Makefile.PL INSTALLDIRS=vendor OPTIMIZE="%{optflags}"
+make %{?_smp_mflags}
 
 %check
-%{__make} test
+make test
 
 %install
 %perl_make_install

++++++ Devel-CheckLib-1.13.tar.gz -> Devel-CheckLib-1.14.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Devel-CheckLib-1.13/CHANGES 
new/Devel-CheckLib-1.14/CHANGES
--- old/Devel-CheckLib-1.13/CHANGES     2018-06-03 17:39:56.000000000 +0200
+++ new/Devel-CheckLib-1.14/CHANGES     2019-11-12 06:22:28.000000000 +0100
@@ -1,3 +1,5 @@
+1.14    2019-11-12      Use Capture::Tiny instead of Capture::Output
+
 1.13    2018-06-23      Improve Makefile.PL
                         update compatibility code from App-EUMM-Upgrade-1.0
 
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Devel-CheckLib-1.13/META.json 
new/Devel-CheckLib-1.14/META.json
--- old/Devel-CheckLib-1.13/META.json   2018-06-03 17:40:55.000000000 +0200
+++ new/Devel-CheckLib-1.14/META.json   2019-11-12 06:23:23.000000000 +0100
@@ -6,7 +6,7 @@
       "Yasuhiro Matsumoto"
    ],
    "dynamic_config" : 0,
-   "generated_by" : "ExtUtils::MakeMaker version 7.0401, CPAN::Meta::Converter 
version 2.150001",
+   "generated_by" : "ExtUtils::MakeMaker version 7.24, CPAN::Meta::Converter 
version 2.150010",
    "license" : [
       "perl_5"
    ],
@@ -24,10 +24,7 @@
    "prereqs" : {
       "build" : {
          "requires" : {
-            "ExtUtils::MakeMaker" : "0",
-            "IO::CaptureOutput" : "1.0801",
-            "Mock::Config" : "0.02",
-            "Test::More" : "0.62"
+            "ExtUtils::MakeMaker" : "0"
          }
       },
       "configure" : {
@@ -42,6 +39,13 @@
             "File::Temp" : "0.16",
             "perl" : "5.00405"
          }
+      },
+      "test" : {
+         "requires" : {
+            "Capture::Tiny" : "0",
+            "Mock::Config" : "0.02",
+            "Test::More" : "0.88"
+         }
       }
    },
    "release_status" : "stable",
@@ -50,5 +54,6 @@
          "url" : "http://github.com/mattn/p5-Devel-CheckLib";
       }
    },
-   "version" : "1.13"
+   "version" : "1.14",
+   "x_serialization_backend" : "JSON::PP version 2.27400_02"
 }
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Devel-CheckLib-1.13/META.yml 
new/Devel-CheckLib-1.14/META.yml
--- old/Devel-CheckLib-1.13/META.yml    2018-06-03 17:40:55.000000000 +0200
+++ new/Devel-CheckLib-1.14/META.yml    2019-11-12 06:23:23.000000000 +0100
@@ -5,14 +5,14 @@
   - 'David Golden'
   - 'Yasuhiro Matsumoto'
 build_requires:
+  Capture::Tiny: '0'
   ExtUtils::MakeMaker: '0'
-  IO::CaptureOutput: '1.0801'
   Mock::Config: '0.02'
-  Test::More: '0.62'
+  Test::More: '0.88'
 configure_requires:
   ExtUtils::MakeMaker: '0'
 dynamic_config: 0
-generated_by: 'ExtUtils::MakeMaker version 7.0401, CPAN::Meta::Converter 
version 2.150001'
+generated_by: 'ExtUtils::MakeMaker version 7.24, CPAN::Meta::Converter version 
2.150010'
 license: perl
 meta-spec:
   url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -29,4 +29,5 @@
   perl: '5.00405'
 resources:
   repository: http://github.com/mattn/p5-Devel-CheckLib
-version: '1.13'
+version: '1.14'
+x_serialization_backend: 'CPAN::Meta::YAML version 0.018'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Devel-CheckLib-1.13/Makefile.PL 
new/Devel-CheckLib-1.14/Makefile.PL
--- old/Devel-CheckLib-1.13/Makefile.PL 2018-06-03 17:38:51.000000000 +0200
+++ new/Devel-CheckLib-1.14/Makefile.PL 2019-11-12 06:15:45.000000000 +0100
@@ -28,9 +28,9 @@
         },
     },
     TEST_REQUIRES => {
-        'Test::More'        => 0.62,  # too high? but API changed here
-        'IO::CaptureOutput' => 1.0801,
-        'Mock::Config'      => 0.02,
+        'Test::More'    => 0.88,  # done_testing
+        'Capture::Tiny' => 0,
+        'Mock::Config'  => 0.02,
     },
     LICENSE => 'perl',
     EXE_FILES    => [qw(
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Devel-CheckLib-1.13/lib/Devel/CheckLib.pm 
new/Devel-CheckLib-1.14/lib/Devel/CheckLib.pm
--- old/Devel-CheckLib-1.13/lib/Devel/CheckLib.pm       2018-06-03 
17:39:00.000000000 +0200
+++ new/Devel-CheckLib-1.14/lib/Devel/CheckLib.pm       2019-11-12 
06:22:40.000000000 +0100
@@ -5,7 +5,7 @@
 use 5.00405; #postfix foreach
 use strict;
 use vars qw($VERSION @ISA @EXPORT);
-$VERSION = '1.13';
+$VERSION = '1.14';
 use Config qw(%Config);
 use Text::ParseWords 'quotewords';
 
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Devel-CheckLib-1.13/t/analyze-binary.t 
new/Devel-CheckLib-1.14/t/analyze-binary.t
--- old/Devel-CheckLib-1.13/t/analyze-binary.t  2018-05-31 15:50:17.000000000 
+0200
+++ new/Devel-CheckLib-1.14/t/analyze-binary.t  2019-11-12 06:15:45.000000000 
+0100
@@ -3,7 +3,7 @@
 BEGIN{ if (not $] < 5.006) { require warnings; warnings->import } }
 
 use lib 't/lib';
-use IO::CaptureOutput qw(capture);
+use Capture::Tiny qw(capture);
 use Config;
 
 use File::Spec;
@@ -39,16 +39,19 @@
                function => 'return (argc - 1);',
              );
 
-capture
-    sub { eval { assert_lib(%common,
-                            analyze_binary => sub { analyze_binary @_, 3, 
qw(foo  bar doz) } ) } },
-    \$stdout, \$stderr;
-is($@, '', "analyze_binary ok") or diagout;
-
-capture
-    sub { eval { assert_lib(%common,
-                            analyze_binary => sub { analyze_binary @_, 3, 
qw(foo) } ) } },
-    \$stdout, \$stderr;
-like($@, qr/wrong analysis/i, "analyze_binary wrong") or diagout;
+my $error;
+($stdout, $stderr) = capture {
+    eval { assert_lib(%common,
+                            analyze_binary => sub { analyze_binary @_, 3, 
qw(foo  bar doz) } ) };
+    $error = $@;
+};
+is($error, '', "analyze_binary ok") or diagout;
+
+($stdout, $stderr) = capture {
+    eval { assert_lib(%common,
+                            analyze_binary => sub { analyze_binary @_, 3, 
qw(foo) } ) };
+    $error = $@;
+};
+like($error, qr/wrong analysis/i, "analyze_binary wrong") or diagout;
 
 done_testing;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Devel-CheckLib-1.13/t/cmdline-LIBS-INC.t 
new/Devel-CheckLib-1.14/t/cmdline-LIBS-INC.t
--- old/Devel-CheckLib-1.13/t/cmdline-LIBS-INC.t        2018-05-31 
15:50:17.000000000 +0200
+++ new/Devel-CheckLib-1.14/t/cmdline-LIBS-INC.t        2019-11-12 
06:15:45.000000000 +0100
@@ -3,7 +3,7 @@
 BEGIN{ if (not $] < 5.006) { require warnings; warnings->import } }
 
 use lib 't/lib';
-use IO::CaptureOutput qw(capture);
+use Capture::Tiny qw(capture);
 use Config;
 
 use File::Spec;
@@ -36,48 +36,42 @@
 
 my $rval = undef;
 my @args = (qq{LIBS=$runtime});
-capture(
-    sub { $rval = system(
+($stdout, $stderr) = capture {
+    $rval = system(
         $Config{perlpath},
        '-Mblib',
        '-MDevel::CheckLib',
        '-e',
        "print @ARGV;assert_lib(debug => $debug)",
         @args
-    )},
-    \$stdout,
-    \$stderr
-);
+    );
+};
 ok($stderr eq '' && defined($rval) && $rval == 0, "linked OK: ".join(', ', 
@args)) || diag("\tSTDOUT: $stdout\n\tSTDERR: $stderr\n");
 
 $rval = undef;
 @args = map { "LIBS=$_" } ($runtime, '-lbazbam', "-L$libdir");
-capture(
-    sub { $rval = system(
+($stdout, $stderr) = capture {
+    $rval = system(
         $Config{perlpath},
        '-Mblib',
        '-MDevel::CheckLib',
        '-e',
        "print @ARGV;assert_lib(debug => $debug)",
         @args
-    )},
-    \$stdout,
-    \$stderr
-);
+    );
+};
 ok($stderr eq '' && defined($rval) && $rval == 0, "linked OK: ".join(', ', 
@args)) || diag("\tSTDOUT: $stdout\n\tSTDERR: $stderr\n");
 
 $rval = undef;
 @args = (qq{"LIBS=$runtime -lbazbam -L$libdir"});
-capture(
-    sub { $rval = system(
+($stdout, $stderr) = capture {
+    $rval = system(
         $Config{perlpath},
        '-Mblib',
        '-MDevel::CheckLib',
        '-e',
        "print @ARGV;assert_lib(debug => $debug)",
         @args
-    )},
-    \$stdout,
-    \$stderr
-);
+    );
+};
 ok($stderr eq '' && defined($rval) && $rval == 0, "linked OK: ".join(', ', 
@args)) || diag("\tSTDOUT: $stdout\n\tSTDERR: $stderr\n");
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Devel-CheckLib-1.13/t/custom-function.t 
new/Devel-CheckLib-1.14/t/custom-function.t
--- old/Devel-CheckLib-1.13/t/custom-function.t 2018-05-31 15:50:17.000000000 
+0200
+++ new/Devel-CheckLib-1.14/t/custom-function.t 2019-11-12 06:15:45.000000000 
+0100
@@ -3,7 +3,7 @@
 BEGIN{ if (not $] < 5.006) { require warnings; warnings->import } }
 
 use lib 't/lib';
-use IO::CaptureOutput qw(capture);
+use Capture::Tiny qw(capture);
 use Config;
 
 use File::Spec;
@@ -19,7 +19,7 @@
     plan skip_all => "Couldn't build a library to test against";
 };
 
-my($debug, $stdout, $stderr) = ($ENV{DEVEL_CHECKLIB_DEBUG} || 0);
+my $debug = $ENV{DEVEL_CHECKLIB_DEBUG} || 0;
 
 # cases are strings to interpolate into the assert_lib call
 my %failcases = (
@@ -67,20 +67,20 @@
 plan tests => scalar(keys %failcases) + scalar(keys %passcases);
 
 for my $c (keys %failcases) {
-    capture(
-        sub { eval "assert_lib(debug => $debug, $c)"; },
-        \$stdout,
-        \$stderr
-    );
-    ok($@ =~ /^$failcases{$c}/, "failed to build: $failcases{$c}") ||
+    my $error;
+    my ($stdout, $stderr) = capture {
+        eval "assert_lib(debug => $debug, $c)";
+        $error = $@;
+    };
+    ok($error =~ /^$failcases{$c}/, "failed to build: $failcases{$c}") ||
         diag("$c\n$@\n\tSTDOUT: $stdout\n\tSTDERR: $stderr\n");
 }
 for my $c ( keys %passcases ) {
-    capture(
-        sub { eval "assert_lib(debug => $debug, $c)"; },
-        \$stdout,
-        \$stderr
-    );
-    is($@, q{}, "$passcases{$c}") ||
+    my $error;
+    my ($stdout, $stderr) = capture {
+        eval "assert_lib(debug => $debug, $c)";
+        $error = $@;
+    };
+    is($error, q{}, "$passcases{$c}") ||
         diag("\tSTDOUT: $stdout\n\tSTDERR: $stderr\n");
 }
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Devel-CheckLib-1.13/t/dash-l-libs.t 
new/Devel-CheckLib-1.14/t/dash-l-libs.t
--- old/Devel-CheckLib-1.13/t/dash-l-libs.t     2018-05-31 15:50:17.000000000 
+0200
+++ new/Devel-CheckLib-1.14/t/dash-l-libs.t     2019-11-12 06:15:45.000000000 
+0100
@@ -3,13 +3,13 @@
 BEGIN{ if (not $] < 5.006) { require warnings; warnings->import } }
 
 use lib 't/lib';
-use IO::CaptureOutput qw(capture);
+use Capture::Tiny qw(capture);
 use Config;
 
 use File::Spec;
 use Test::More;
 
-my($debug, $stdout, $stderr) = ($ENV{DEVEL_CHECKLIB_DEBUG} || 0);
+my $debug = $ENV{DEVEL_CHECKLIB_DEBUG} || 0;
 my $libdir;
 
 eval "use Devel::CheckLib";
@@ -37,9 +37,9 @@
 # my $runtime = $^O eq 'MSWin32' ? '-lmsvcrt' : '-lm';
 my $args = qq{LIBS => '$runtime -lbazbam -L$libdir'};
 
-capture(
-    sub { eval "assert_lib(debug => $debug, $args)"; },
-    \$stdout,
-    \$stderr
-);
-is($@, q{}, "$args") || diag("\tSTDOUT: $stdout\n\tSTDERR: $stderr\n");
+my $error;
+my ($stdout, $stderr) = capture {
+    eval "assert_lib(debug => $debug, $args)";
+    $error = $@;
+};
+is($error, q{}, "$args") || diag("\tSTDOUT: $stdout\n\tSTDERR: $stderr\n");
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Devel-CheckLib-1.13/t/flags.t 
new/Devel-CheckLib-1.14/t/flags.t
--- old/Devel-CheckLib-1.13/t/flags.t   2018-05-31 15:50:17.000000000 +0200
+++ new/Devel-CheckLib-1.14/t/flags.t   2019-11-12 06:15:45.000000000 +0100
@@ -3,7 +3,7 @@
 BEGIN{ if (not $] < 5.006) { require warnings; warnings->import } }
 
 use lib 't/lib';
-use IO::CaptureOutput qw(capture);
+use Capture::Tiny qw(capture);
 use Config;
 
 use File::Spec;
@@ -38,14 +38,17 @@
 
 EOF
 
-capture
-    sub { eval { assert_lib(%common, ccflags => '-DFOO1234') } },
-    \$stdout, \$stderr;
-is($@, '', "ccflags ok") or diagout;
-
-capture
-    sub { eval { assert_lib(%common) } },
-    \$stdout, \$stderr;
-like($@, qr/wrong/i, "ccflags wrong") or diagout;
+my $error;
+($stdout, $stderr) = capture {
+    eval { assert_lib(%common, ccflags => '-DFOO1234') };
+    $error = $@;
+};
+is($error, '', "ccflags ok") or diagout;
+
+($stdout, $stderr) = capture {
+    eval { assert_lib(%common) };
+    $error = $@;
+};
+like($error, qr/wrong/i, "ccflags wrong") or diagout;
 
 done_testing;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Devel-CheckLib-1.13/t/found.t 
new/Devel-CheckLib-1.14/t/found.t
--- old/Devel-CheckLib-1.13/t/found.t   2018-05-31 15:50:17.000000000 +0200
+++ new/Devel-CheckLib-1.14/t/found.t   2019-11-12 06:15:45.000000000 +0100
@@ -3,7 +3,7 @@
 BEGIN{ if (not $] < 5.006) { require warnings; warnings->import } }
 
 use lib 't/lib';
-use IO::CaptureOutput qw(capture);
+use Capture::Tiny qw(capture);
 use Config;
 
 use File::Spec;
@@ -16,12 +16,12 @@
     eval "use Helper qw/create_testlib/";
 }
 
-my($debug, $stdout, $stderr) = ($ENV{DEVEL_CHECKLIB_DEBUG} || 0);
+my $debug = $ENV{DEVEL_CHECKLIB_DEBUG} || 0;
 
 # compile a test library
 my $libdir = create_testlib("bazbam");
 
-my @lib = 
+my @lib =
     $^O eq 'MSWin32'                       # if Win32 (not Cygwin) ...
         ? (
             $Config{cc} =~ /(^|^\w+ )bcc/
@@ -45,11 +45,11 @@
 
 
 for my $c ( @cases ) {
-    capture(
-        sub { eval "assert_lib(debug => $debug, $c)"; },
-        \$stdout,
-        \$stderr
-    );
-    is($@, q{}, "$c") || diag("\tSTDOUT: $stdout\n\tSTDERR: $stderr\n");
+    my $error;
+    my ($stdout, $stderr) = capture {
+        eval "assert_lib(debug => $debug, $c)";
+        $error = $@;
+    };
+    is($error, q{}, "$c") || diag("\tSTDOUT: $stdout\n\tSTDERR: $stderr\n");
     ok(check_lib(debug => $debug, eval($c)), "... and check_lib is true");
 }
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Devel-CheckLib-1.13/t/headers.t 
new/Devel-CheckLib-1.14/t/headers.t
--- old/Devel-CheckLib-1.13/t/headers.t 2018-05-31 15:50:17.000000000 +0200
+++ new/Devel-CheckLib-1.14/t/headers.t 2019-11-12 06:15:45.000000000 +0100
@@ -3,7 +3,7 @@
 BEGIN{ if (not $] < 5.006) { require warnings; warnings->import } }
 
 use lib 't/lib';
-use IO::CaptureOutput qw(capture);
+use Capture::Tiny qw(capture);
 use Config;
 
 use File::Spec;
@@ -14,7 +14,7 @@
     plan skip_all => "Couldn't find your C compiler";
 }
 
-my($debug, $stdout, $stderr) = ($ENV{DEVEL_CHECKLIB_DEBUG} || 0);
+my $debug = $ENV{DEVEL_CHECKLIB_DEBUG} || 0;
 
 # cases are strings to interpolate into the assert_lib call
 my %failcases = (
@@ -30,19 +30,19 @@
 plan tests => scalar(keys %failcases) + scalar(@passcases);
 
 for my $c (keys %failcases) {
-    capture(
-        sub { eval "assert_lib(debug => $debug, $c)"; },
-        \$stdout,
-        \$stderr
-    );
-    ok($@ =~ /^$failcases{$c}/, "$c") ||
+    my $error;
+    my ($stdout, $stderr) = capture {
+        eval "assert_lib(debug => $debug, $c)";
+        $error = $@;
+    };
+    ok($error =~ /^$failcases{$c}/, "$c") ||
         diag("$@\n\tSTDOUT: $stdout\n\tSTDERR: $stderr\n");
 }
 for my $c ( @passcases ) {
-    capture(
-        sub { eval "assert_lib(debug => $debug, $c)"; },
-        \$stdout,
-        \$stderr
-    );
-    is($@, q{}, "$c") || diag("\tSTDOUT: $stdout\n\tSTDERR: $stderr\n");
+    my $error;
+    my ($stdout, $stderr) = capture {
+        eval "assert_lib(debug => $debug, $c)";
+        $error = $@;
+    };
+    is($error, q{}, "$c") || diag("\tSTDOUT: $stdout\n\tSTDERR: $stderr\n");
 }


Reply via email to