Back
From: metabase:user:320bfe00-2aae-11df-837a-5e0a49663a4f
Subject: FAIL Perinci-Sub-Property-retry-0.06 v5.14.4 GNU/Linux
Date: 2014-03-07T13:12:20Z
This distribution has been tested as part of the CPAN Testers
project, supporting the Perl programming language. See
http://wiki.cpantesters.org/ for more information or email
questions to cpan-testers-discuss@perl.org
--
Dear Steven Haryanto,
This is a computer-generated report for Perinci-Sub-Property-retry-0.06
on perl 5.14.4, created by CPAN-Reporter-1.2010.
Thank you for uploading your work to CPAN. However, there was a problem
testing your distribution.
If you think this report is invalid, please consult the CPAN Testers Wiki
for suggestions on how to avoid getting FAIL reports for missing library
or binary dependencies, unsupported operating systems, and so on:
http://wiki.cpantesters.org/wiki/CPANAuthorNotes
Sections of this report:
* Tester comments
* Program output
* Prerequisites
* Environment and other context
------------------------------
TESTER COMMENTS
------------------------------
Additional comments from tester:
this report is from an automated smoke testing program
and was not reviewed by a human for accuracy
------------------------------
PROGRAM OUTPUT
------------------------------
Output from './Build test':
t/00-compile.t ............ ok
# Failed test 'call doesn't die'
# at /home/sand/src/perl/repoperls/installed-perls/perl/v5.14.4/127e/lib/site_perl/5.14.4/Test/Perinci/Sub/Wrapper.pm line 115.
# Died at t/01-basics.t line 16.
# Failed test 'call res is array'
# at /home/sand/src/perl/repoperls/installed-perls/perl/v5.14.4/127e/lib/site_perl/5.14.4/Test/Perinci/Sub/Wrapper.pm line 120.
# got: ''
# expected: 'ARRAY'
# call res = undef
# Failed test 'call status is 500'
# at /home/sand/src/perl/repoperls/installed-perls/perl/v5.14.4/127e/lib/site_perl/5.14.4/Test/Perinci/Sub/Wrapper.pm line 122.
# got: undef
# expected: '500'
# call res = []
# Looks like you failed 3 tests of 6.
# Failed test 'no retry, dies (dynamic)'
# at /home/sand/src/perl/repoperls/installed-perls/perl/v5.14.4/127e/lib/site_perl/5.14.4/Test/Perinci/Sub/Wrapper.pm line 186.
# Failed test 'call status is 500'
# at /home/sand/src/perl/repoperls/installed-perls/perl/v5.14.4/127e/lib/site_perl/5.14.4/Test/Perinci/Sub/Wrapper.pm line 122.
# got: '200'
# expected: '500'
# call res = [
# 200,
# 'OK'
# ]
# Looks like you failed 1 test of 7.
# Failed test 'no retry, dies (embed)'
# at /home/sand/src/perl/repoperls/installed-perls/perl/v5.14.4/127e/lib/site_perl/5.14.4/Test/Perinci/Sub/Wrapper.pm line 186.
Use of uninitialized value in concatenation (.) or string at /tmp/loop_over_bdir-5742-NObFzm/Perinci-Sub-Property-retry-0.06-gHdGof/blib/lib/Perinci/Sub/Property/retry.pm line 97.
Use of uninitialized value in concatenation (.) or string at /tmp/loop_over_bdir-5742-NObFzm/Perinci-Sub-Property-retry-0.06-gHdGof/blib/lib/Perinci/Sub/Property/retry.pm line 98.
# Failed test 'wrap doesn't die'
# at /home/sand/src/perl/repoperls/installed-perls/perl/v5.14.4/127e/lib/site_perl/5.14.4/Test/Perinci/Sub/Wrapper.pm line 42.
# BUG: Wrapper code can't be compiled: Global symbol "$eval_err" requires explicit package name at (eval 16) line 52.
# Global symbol "$res" requires explicit package name at (eval 16) line 52.
# Global symbol "$res" requires explicit package name at (eval 16) line 59.
# Global symbol "$res" requires explicit package name at (eval 16) line 60.
# Global symbol "$_w_eval_err" requires explicit package name at (eval 16) line 67.
# Global symbol "$_w_eval_err" requires explicit package name at (eval 16) line 67.
# Global symbol "$_w_eval_err" requires explicit package name at (eval 16) line 68.
# Global symbol "$_w_eval_err" requires explicit package name at (eval 16) line 69.
# Looks like you failed 1 test of 1.
# Failed test 'retry=1, succeed (dynamic)'
# at /home/sand/src/perl/repoperls/installed-perls/perl/v5.14.4/127e/lib/site_perl/5.14.4/Test/Perinci/Sub/Wrapper.pm line 186.
Use of uninitialized value in concatenation (.) or string at /tmp/loop_over_bdir-5742-NObFzm/Perinci-Sub-Property-retry-0.06-gHdGof/blib/lib/Perinci/Sub/Property/retry.pm line 97.
Use of uninitialized value in concatenation (.) or string at /tmp/loop_over_bdir-5742-NObFzm/Perinci-Sub-Property-retry-0.06-gHdGof/blib/lib/Perinci/Sub/Property/retry.pm line 98.
# Failed test 'embed code compiles ok'
# at /home/sand/src/perl/repoperls/installed-perls/perl/v5.14.4/127e/lib/site_perl/5.14.4/Test/Perinci/Sub/Wrapper.pm line 90.
# eval err: Global symbol "$eval_err" requires explicit package name at (eval 19) line 48.
# Global symbol "$res" requires explicit package name at (eval 19) line 48.
# Global symbol "$res" requires explicit package name at (eval 19) line 55.
# Global symbol "$res" requires explicit package name at (eval 19) line 56.
# Global symbol "$_w_eval_err" requires explicit package name at (eval 19) line 63.
# Global symbol "$_w_eval_err" requires explicit package name at (eval 19) line 63.
# Global symbol "$_w_eval_err" requires explicit package name at (eval 19) line 64.
# Global symbol "$_w_eval_err" requires explicit package name at (eval 19) line 65.
# eval source:
# # * section: before_sub_require_modules
# use experimental 'smartmatch';
#
# sub {
# my %args;
# %args = @_;
#
# # * section: declare_vars
# my $_w_res = undef;
#
# # * section: before_eval
#
# my $retries = 0;
# RETRY: while (1) {
#
# # * section: OPEN_EVAL
# eval {
#
# # * section: before_call_arg_validation
#
# # check args
# for (sort keys %args) {
# if (!/\A(-?)\w+(\.\w+)*\z/o) {
# return [400, "Invalid argument name '$_'"];
# }
# if (!($1 || $_ ~~ ['n'])) {
# return [400, "Unknown argument '$_'"];
# }
# }
# $_w_res = do {
# $Perinci::Sub::Wrapped::sub15707320->(%args);
# }; # do
#
# # * section: AFTER_CALL
#
# # check that sub produces enveloped result
# unless (ref($_w_res) eq "ARRAY" && $_w_res->[0]) {
# return [500, 'BUG: Sub $Perinci::Sub::Wrapped::sub15707320 does not produce envelope'];
# }
#
# # * section: CLOSE_EVAL
# return $_w_res;
# };
# my $_w_eval_err = $@;
#
# # * section: after_eval
# if ($eval_err || $res->[0] !~ qr/(?^:^(2..|304)$)/) {
# if (++$retries > 1) {
# return [521, "Maximum retries reached"];
# }
# next RETRY;
# } else {
# if ($retries) {
# $res->[3] //= {};
# $res->[3]{wrap_retries} = $retries;
# }
# last RETRY;
# }
#
# } # RETRY
#
# warn $_w_eval_err if $_w_eval_err;
# if ($_w_eval_err) {
# return [500, "Function died: $_w_eval_err"];
# }
#
# # * section: BEFORE_CLOSE_SUB
# return $_w_res;
# }; # sub
# Looks like you failed 1 test of 4.
# Failed test 'retry=1, succeed (embed)'
# at /home/sand/src/perl/repoperls/installed-perls/perl/v5.14.4/127e/lib/site_perl/5.14.4/Test/Perinci/Sub/Wrapper.pm line 186.
Use of uninitialized value in concatenation (.) or string at /tmp/loop_over_bdir-5742-NObFzm/Perinci-Sub-Property-retry-0.06-gHdGof/blib/lib/Perinci/Sub/Property/retry.pm line 97.
Use of uninitialized value in concatenation (.) or string at /tmp/loop_over_bdir-5742-NObFzm/Perinci-Sub-Property-retry-0.06-gHdGof/blib/lib/Perinci/Sub/Property/retry.pm line 98.
# Failed test 'wrap doesn't die'
# at /home/sand/src/perl/repoperls/installed-perls/perl/v5.14.4/127e/lib/site_perl/5.14.4/Test/Perinci/Sub/Wrapper.pm line 42.
# BUG: Wrapper code can't be compiled: Global symbol "$eval_err" requires explicit package name at (eval 20) line 52.
# Global symbol "$res" requires explicit package name at (eval 20) line 52.
# Global symbol "$res" requires explicit package name at (eval 20) line 59.
# Global symbol "$res" requires explicit package name at (eval 20) line 60.
# Global symbol "$_w_eval_err" requires explicit package name at (eval 20) line 67.
# Global symbol "$_w_eval_err" requires explicit package name at (eval 20) line 67.
# Global symbol "$_w_eval_err" requires explicit package name at (eval 20) line 68.
# Global symbol "$_w_eval_err" requires explicit package name at (eval 20) line 69.
# Looks like you failed 1 test of 1.
# Failed test 'retry=1, max retries reached (dynamic)'
# at /home/sand/src/perl/repoperls/installed-perls/perl/v5.14.4/127e/lib/site_perl/5.14.4/Test/Perinci/Sub/Wrapper.pm line 186.
Use of uninitialized value in concatenation (.) or string at /tmp/loop_over_bdir-5742-NObFzm/Perinci-Sub-Property-retry-0.06-gHdGof/blib/lib/Perinci/Sub/Property/retry.pm line 97.
Use of uninitialized value in concatenation (.) or string at /tmp/loop_over_bdir-5742-NObFzm/Perinci-Sub-Property-retry-0.06-gHdGof/blib/lib/Perinci/Sub/Property/retry.pm line 98.
# Failed test 'embed code compiles ok'
# at /home/sand/src/perl/repoperls/installed-perls/perl/v5.14.4/127e/lib/site_perl/5.14.4/Test/Perinci/Sub/Wrapper.pm line 90.
# eval err: Global symbol "$eval_err" requires explicit package name at (eval 23) line 48.
# Global symbol "$res" requires explicit package name at (eval 23) line 48.
# Global symbol "$res" requires explicit package name at (eval 23) line 55.
# Global symbol "$res" requires explicit package name at (eval 23) line 56.
# Global symbol "$_w_eval_err" requires explicit package name at (eval 23) line 63.
# Global symbol "$_w_eval_err" requires explicit package name at (eval 23) line 63.
# Global symbol "$_w_eval_err" requires explicit package name at (eval 23) line 64.
# Global symbol "$_w_eval_err" requires explicit package name at (eval 23) line 65.
# eval source:
# # * section: before_sub_require_modules
# use experimental 'smartmatch';
#
# sub {
# my %args;
# %args = @_;
#
# # * section: declare_vars
# my $_w_res = undef;
#
# # * section: before_eval
#
# my $retries = 0;
# RETRY: while (1) {
#
# # * section: OPEN_EVAL
# eval {
#
# # * section: before_call_arg_validation
#
# # check args
# for (sort keys %args) {
# if (!/\A(-?)\w+(\.\w+)*\z/o) {
# return [400, "Invalid argument name '$_'"];
# }
# if (!($1 || $_ ~~ ['n'])) {
# return [400, "Unknown argument '$_'"];
# }
# }
# $_w_res = do {
# $Perinci::Sub::Wrapped::sub15707320->(%args);
# }; # do
#
# # * section: AFTER_CALL
#
# # check that sub produces enveloped result
# unless (ref($_w_res) eq "ARRAY" && $_w_res->[0]) {
# return [500, 'BUG: Sub $Perinci::Sub::Wrapped::sub15707320 does not produce envelope'];
# }
#
# # * section: CLOSE_EVAL
# return $_w_res;
# };
# my $_w_eval_err = $@;
#
# # * section: after_eval
# if ($eval_err || $res->[0] !~ qr/(?^:^(2..|304)$)/) {
# if (++$retries > 1) {
# return [521, "Maximum retries reached"];
# }
# next RETRY;
# } else {
# if ($retries) {
# $res->[3] //= {};
# $res->[3]{wrap_retries} = $retries;
# }
# last RETRY;
# }
#
# } # RETRY
#
# warn $_w_eval_err if $_w_eval_err;
# if ($_w_eval_err) {
# return [500, "Function died: $_w_eval_err"];
# }
#
# # * section: BEFORE_CLOSE_SUB
# return $_w_res;
# }; # sub
# Looks like you failed 1 test of 4.
# Failed test 'retry=1, max retries reached (embed)'
# at /home/sand/src/perl/repoperls/installed-perls/perl/v5.14.4/127e/lib/site_perl/5.14.4/Test/Perinci/Sub/Wrapper.pm line 186.
Use of uninitialized value in concatenation (.) or string at /tmp/loop_over_bdir-5742-NObFzm/Perinci-Sub-Property-retry-0.06-gHdGof/blib/lib/Perinci/Sub/Property/retry.pm line 97.
Use of uninitialized value in concatenation (.) or string at /tmp/loop_over_bdir-5742-NObFzm/Perinci-Sub-Property-retry-0.06-gHdGof/blib/lib/Perinci/Sub/Property/retry.pm line 98.
# Failed test 'wrap doesn't die'
# at /home/sand/src/perl/repoperls/installed-perls/perl/v5.14.4/127e/lib/site_perl/5.14.4/Test/Perinci/Sub/Wrapper.pm line 42.
# BUG: Wrapper code can't be compiled: Global symbol "$eval_err" requires explicit package name at (eval 24) line 52.
# Global symbol "$res" requires explicit package name at (eval 24) line 52.
# Global symbol "$res" requires explicit package name at (eval 24) line 59.
# Global symbol "$res" requires explicit package name at (eval 24) line 60.
# Global symbol "$_w_eval_err" requires explicit package name at (eval 24) line 67.
# Global symbol "$_w_eval_err" requires explicit package name at (eval 24) line 67.
# Global symbol "$_w_eval_err" requires explicit package name at (eval 24) line 68.
# Global symbol "$_w_eval_err" requires explicit package name at (eval 24) line 69.
# Looks like you failed 1 test of 1.
# Failed test 'success_statuses \#1 (dynamic)'
# at /home/sand/src/perl/repoperls/installed-perls/perl/v5.14.4/127e/lib/site_perl/5.14.4/Test/Perinci/Sub/Wrapper.pm line 186.
Use of uninitialized value in concatenation (.) or string at /tmp/loop_over_bdir-5742-NObFzm/Perinci-Sub-Property-retry-0.06-gHdGof/blib/lib/Perinci/Sub/Property/retry.pm line 97.
Use of uninitialized value in concatenation (.) or string at /tmp/loop_over_bdir-5742-NObFzm/Perinci-Sub-Property-retry-0.06-gHdGof/blib/lib/Perinci/Sub/Property/retry.pm line 98.
# Failed test 'embed code compiles ok'
# at /home/sand/src/perl/repoperls/installed-perls/perl/v5.14.4/127e/lib/site_perl/5.14.4/Test/Perinci/Sub/Wrapper.pm line 90.
# eval err: Global symbol "$eval_err" requires explicit package name at (eval 27) line 48.
# Global symbol "$res" requires explicit package name at (eval 27) line 48.
# Global symbol "$res" requires explicit package name at (eval 27) line 55.
# Global symbol "$res" requires explicit package name at (eval 27) line 56.
# Global symbol "$_w_eval_err" requires explicit package name at (eval 27) line 63.
# Global symbol "$_w_eval_err" requires explicit package name at (eval 27) line 63.
# Global symbol "$_w_eval_err" requires explicit package name at (eval 27) line 64.
# Global symbol "$_w_eval_err" requires explicit package name at (eval 27) line 65.
# eval source:
# # * section: before_sub_require_modules
# use experimental 'smartmatch';
#
# sub {
# my %args;
# %args = @_;
#
# # * section: declare_vars
# my $_w_res = undef;
#
# # * section: before_eval
#
# my $retries = 0;
# RETRY: while (1) {
#
# # * section: OPEN_EVAL
# eval {
#
# # * section: before_call_arg_validation
#
# # check args
# for (sort keys %args) {
# if (!/\A(-?)\w+(\.\w+)*\z/o) {
# return [400, "Invalid argument name '$_'"];
# }
# if (!($1 || $_ ~~ ['n','s1','s2'])) {
# return [400, "Unknown argument '$_'"];
# }
# }
# $_w_res = do {
# $Perinci::Sub::Wrapped::sub15793824->(%args);
# }; # do
#
# # * section: AFTER_CALL
#
# # check that sub produces enveloped result
# unless (ref($_w_res) eq "ARRAY" && $_w_res->[0]) {
# return [500, 'BUG: Sub $Perinci::Sub::Wrapped::sub15793824 does not produce envelope'];
# }
#
# # * section: CLOSE_EVAL
# return $_w_res;
# };
# my $_w_eval_err = $@;
#
# # * section: after_eval
# if ($eval_err || $res->[0] !~ qr/(?^:^311$)/) {
# if (++$retries > 2) {
# return [521, "Maximum retries reached"];
# }
# next RETRY;
# } else {
# if ($retries) {
# $res->[3] //= {};
# $res->[3]{wrap_retries} = $retries;
# }
# last RETRY;
# }
#
# } # RETRY
#
# warn $_w_eval_err if $_w_eval_err;
# if ($_w_eval_err) {
# return [500, "Function died: $_w_eval_err"];
# }
#
# # * section: BEFORE_CLOSE_SUB
# return $_w_res;
# }; # sub
# Looks like you failed 1 test of 4.
# Failed test 'success_statuses \#1 (embed)'
# at /home/sand/src/perl/repoperls/installed-perls/perl/v5.14.4/127e/lib/site_perl/5.14.4/Test/Perinci/Sub/Wrapper.pm line 186.
Use of uninitialized value in concatenation (.) or string at /tmp/loop_over_bdir-5742-NObFzm/Perinci-Sub-Property-retry-0.06-gHdGof/blib/lib/Perinci/Sub/Property/retry.pm line 97.
Use of uninitialized value in concatenation (.) or string at /tmp/loop_over_bdir-5742-NObFzm/Perinci-Sub-Property-retry-0.06-gHdGof/blib/lib/Perinci/Sub/Property/retry.pm line 98.
# Failed test 'wrap doesn't die'
# at /home/sand/src/perl/repoperls/installed-perls/perl/v5.14.4/127e/lib/site_perl/5.14.4/Test/Perinci/Sub/Wrapper.pm line 42.
# BUG: Wrapper code can't be compiled: Global symbol "$eval_err" requires explicit package name at (eval 28) line 52.
# Global symbol "$res" requires explicit package name at (eval 28) line 52.
# Global symbol "$res" requires explicit package name at (eval 28) line 59.
# Global symbol "$res" requires explicit package name at (eval 28) line 60.
# Global symbol "$_w_eval_err" requires explicit package name at (eval 28) line 67.
# Global symbol "$_w_eval_err" requires explicit package name at (eval 28) line 67.
# Global symbol "$_w_eval_err" requires explicit package name at (eval 28) line 68.
# Global symbol "$_w_eval_err" requires explicit package name at (eval 28) line 69.
# Looks like you failed 1 test of 1.
# Failed test 'success_statuses \#2 (dynamic)'
# at /home/sand/src/perl/repoperls/installed-perls/perl/v5.14.4/127e/lib/site_perl/5.14.4/Test/Perinci/Sub/Wrapper.pm line 186.
Use of uninitialized value in concatenation (.) or string at /tmp/loop_over_bdir-5742-NObFzm/Perinci-Sub-Property-retry-0.06-gHdGof/blib/lib/Perinci/Sub/Property/retry.pm line 97.
Use of uninitialized value in concatenation (.) or string at /tmp/loop_over_bdir-5742-NObFzm/Perinci-Sub-Property-retry-0.06-gHdGof/blib/lib/Perinci/Sub/Property/retry.pm line 98.
# Failed test 'embed code compiles ok'
# at /home/sand/src/perl/repoperls/installed-perls/perl/v5.14.4/127e/lib/site_perl/5.14.4/Test/Perinci/Sub/Wrapper.pm line 90.
# eval err: Global symbol "$eval_err" requires explicit package name at (eval 31) line 48.
# Global symbol "$res" requires explicit package name at (eval 31) line 48.
# Global symbol "$res" requires explicit package name at (eval 31) line 55.
# Global symbol "$res" requires explicit package name at (eval 31) line 56.
# Global symbol "$_w_eval_err" requires explicit package name at (eval 31) line 63.
# Global symbol "$_w_eval_err" requires explicit package name at (eval 31) line 63.
# Global symbol "$_w_eval_err" requires explicit package name at (eval 31) line 64.
# Global symbol "$_w_eval_err" requires explicit package name at (eval 31) line 65.
# eval source:
# # * section: before_sub_require_modules
# use experimental 'smartmatch';
#
# sub {
# my %args;
# %args = @_;
#
# # * section: declare_vars
# my $_w_res = undef;
#
# # * section: before_eval
#
# my $retries = 0;
# RETRY: while (1) {
#
# # * section: OPEN_EVAL
# eval {
#
# # * section: before_call_arg_validation
#
# # check args
# for (sort keys %args) {
# if (!/\A(-?)\w+(\.\w+)*\z/o) {
# return [400, "Invalid argument name '$_'"];
# }
# if (!($1 || $_ ~~ ['n','s1','s2'])) {
# return [400, "Unknown argument '$_'"];
# }
# }
# $_w_res = do {
# $Perinci::Sub::Wrapped::sub15793824->(%args);
# }; # do
#
# # * section: AFTER_CALL
#
# # check that sub produces enveloped result
# unless (ref($_w_res) eq "ARRAY" && $_w_res->[0]) {
# return [500, 'BUG: Sub $Perinci::Sub::Wrapped::sub15793824 does not produce envelope'];
# }
#
# # * section: CLOSE_EVAL
# return $_w_res;
# };
# my $_w_eval_err = $@;
#
# # * section: after_eval
# if ($eval_err || $res->[0] !~ qr/(?^:^200$)/) {
# if (++$retries > 2) {
# return [521, "Maximum retries reached"];
# }
# next RETRY;
# } else {
# if ($retries) {
# $res->[3] //= {};
# $res->[3]{wrap_retries} = $retries;
# }
# last RETRY;
# }
#
# } # RETRY
#
# warn $_w_eval_err if $_w_eval_err;
# if ($_w_eval_err) {
# return [500, "Function died: $_w_eval_err"];
# }
#
# # * section: BEFORE_CLOSE_SUB
# return $_w_res;
# }; # sub
# Looks like you failed 1 test of 4.
# Failed test 'success_statuses \#2 (embed)'
# at /home/sand/src/perl/repoperls/installed-perls/perl/v5.14.4/127e/lib/site_perl/5.14.4/Test/Perinci/Sub/Wrapper.pm line 186.
Use of uninitialized value in concatenation (.) or string at /tmp/loop_over_bdir-5742-NObFzm/Perinci-Sub-Property-retry-0.06-gHdGof/blib/lib/Perinci/Sub/Property/retry.pm line 97.
Use of uninitialized value in concatenation (.) or string at /tmp/loop_over_bdir-5742-NObFzm/Perinci-Sub-Property-retry-0.06-gHdGof/blib/lib/Perinci/Sub/Property/retry.pm line 98.
# Failed test 'wrap doesn't die'
# at /home/sand/src/perl/repoperls/installed-perls/perl/v5.14.4/127e/lib/site_perl/5.14.4/Test/Perinci/Sub/Wrapper.pm line 42.
# BUG: Wrapper code can't be compiled: Global symbol "$eval_err" requires explicit package name at (eval 32) line 52.
# Global symbol "$res" requires explicit package name at (eval 32) line 52.
# Global symbol "$res" requires explicit package name at (eval 32) line 53.
# Global symbol "$res" requires explicit package name at (eval 32) line 54.
# Global symbol "$res" requires explicit package name at (eval 32) line 62.
# Global symbol "$res" requires explicit package name at (eval 32) line 63.
# Global symbol "$_w_eval_err" requires explicit package name at (eval 32) line 70.
# Global symbol "$_w_eval_err" requires explicit package name at (eval 32) line 70.
# Global symbol "$_w_eval_err" requires explicit package name at (eval 32) line 71.
# Global symbol "$_w_eval_err" requires explicit package name at (eval 32) line 72.
# Looks like you failed 1 test of 1.
# Failed test 'fatal_statuses (dynamic)'
# at /home/sand/src/perl/repoperls/installed-perls/perl/v5.14.4/127e/lib/site_perl/5.14.4/Test/Perinci/Sub/Wrapper.pm line 186.
Use of uninitialized value in concatenation (.) or string at /tmp/loop_over_bdir-5742-NObFzm/Perinci-Sub-Property-retry-0.06-gHdGof/blib/lib/Perinci/Sub/Property/retry.pm line 97.
Use of uninitialized value in concatenation (.) or string at /tmp/loop_over_bdir-5742-NObFzm/Perinci-Sub-Property-retry-0.06-gHdGof/blib/lib/Perinci/Sub/Property/retry.pm line 98.
# Failed test 'embed code compiles ok'
# at /home/sand/src/perl/repoperls/installed-perls/perl/v5.14.4/127e/lib/site_perl/5.14.4/Test/Perinci/Sub/Wrapper.pm line 90.
# eval err: Global symbol "$eval_err" requires explicit package name at (eval 35) line 48.
# Global symbol "$res" requires explicit package name at (eval 35) line 48.
# Global symbol "$res" requires explicit package name at (eval 35) line 49.
# Global symbol "$res" requires explicit package name at (eval 35) line 50.
# Global symbol "$res" requires explicit package name at (eval 35) line 58.
# Global symbol "$res" requires explicit package name at (eval 35) line 59.
# Global symbol "$_w_eval_err" requires explicit package name at (eval 35) line 66.
# Global symbol "$_w_eval_err" requires explicit package name at (eval 35) line 66.
# Global symbol "$_w_eval_err" requires explicit package name at (eval 35) line 67.
# Global symbol "$_w_eval_err" requires explicit package name at (eval 35) line 68.
# eval source:
# # * section: before_sub_require_modules
# use experimental 'smartmatch';
#
# sub {
# my %args;
# %args = @_;
#
# # * section: declare_vars
# my $_w_res = undef;
#
# # * section: before_eval
#
# my $retries = 0;
# RETRY: while (1) {
#
# # * section: OPEN_EVAL
# eval {
#
# # * section: before_call_arg_validation
#
# # check args
# for (sort keys %args) {
# if (!/\A(-?)\w+(\.\w+)*\z/o) {
# return [400, "Invalid argument name '$_'"];
# }
# if (!($1 || $_ ~~ ['n','s1','s2'])) {
# return [400, "Unknown argument '$_'"];
# }
# }
# $_w_res = do {
# $Perinci::Sub::Wrapped::sub15793824->(%args);
# }; # do
#
# # * section: AFTER_CALL
#
# # check that sub produces enveloped result
# unless (ref($_w_res) eq "ARRAY" && $_w_res->[0]) {
# return [500, 'BUG: Sub $Perinci::Sub::Wrapped::sub15793824 does not produce envelope'];
# }
#
# # * section: CLOSE_EVAL
# return $_w_res;
# };
# my $_w_eval_err = $@;
#
# # * section: after_eval
# if ($eval_err || $res->[0] !~ qr/(?^:^(2..|304)$)/) {
# if ($res->[0] =~ qr/(?^:^311$)/) {
# return [521, "Can't retry (fatal status $res->[0])"];
# }
# if (++$retries > 2) {
# return [521, "Maximum retries reached"];
# }
# next RETRY;
# } else {
# if ($retries) {
# $res->[3] //= {};
# $res->[3]{wrap_retries} = $retries;
# }
# last RETRY;
# }
#
# } # RETRY
#
# warn $_w_eval_err if $_w_eval_err;
# if ($_w_eval_err) {
# return [500, "Function died: $_w_eval_err"];
# }
#
# # * section: BEFORE_CLOSE_SUB
# return $_w_res;
# }; # sub
# Looks like you failed 1 test of 4.
# Failed test 'fatal_statuses (embed)'
# at /home/sand/src/perl/repoperls/installed-perls/perl/v5.14.4/127e/lib/site_perl/5.14.4/Test/Perinci/Sub/Wrapper.pm line 186.
Use of uninitialized value in concatenation (.) or string at /tmp/loop_over_bdir-5742-NObFzm/Perinci-Sub-Property-retry-0.06-gHdGof/blib/lib/Perinci/Sub/Property/retry.pm line 97.
Use of uninitialized value in concatenation (.) or string at /tmp/loop_over_bdir-5742-NObFzm/Perinci-Sub-Property-retry-0.06-gHdGof/blib/lib/Perinci/Sub/Property/retry.pm line 98.
# Failed test 'wrap doesn't die'
# at /home/sand/src/perl/repoperls/installed-perls/perl/v5.14.4/127e/lib/site_perl/5.14.4/Test/Perinci/Sub/Wrapper.pm line 42.
# BUG: Wrapper code can't be compiled: Global symbol "$eval_err" requires explicit package name at (eval 36) line 52.
# Global symbol "$res" requires explicit package name at (eval 36) line 52.
# Global symbol "$res" requires explicit package name at (eval 36) line 53.
# Global symbol "$res" requires explicit package name at (eval 36) line 54.
# Global symbol "$res" requires explicit package name at (eval 36) line 62.
# Global symbol "$res" requires explicit package name at (eval 36) line 63.
# Global symbol "$_w_eval_err" requires explicit package name at (eval 36) line 70.
# Global symbol "$_w_eval_err" requires explicit package name at (eval 36) line 70.
# Global symbol "$_w_eval_err" requires explicit package name at (eval 36) line 71.
# Global symbol "$_w_eval_err" requires explicit package name at (eval 36) line 72.
# Looks like you failed 1 test of 1.
# Failed test 'non_fatal_statuses \#1 (dynamic)'
# at /home/sand/src/perl/repoperls/installed-perls/perl/v5.14.4/127e/lib/site_perl/5.14.4/Test/Perinci/Sub/Wrapper.pm line 186.
Use of uninitialized value in concatenation (.) or string at /tmp/loop_over_bdir-5742-NObFzm/Perinci-Sub-Property-retry-0.06-gHdGof/blib/lib/Perinci/Sub/Property/retry.pm line 97.
Use of uninitialized value in concatenation (.) or string at /tmp/loop_over_bdir-5742-NObFzm/Perinci-Sub-Property-retry-0.06-gHdGof/blib/lib/Perinci/Sub/Property/retry.pm line 98.
# Failed test 'embed code compiles ok'
# at /home/sand/src/perl/repoperls/installed-perls/perl/v5.14.4/127e/lib/site_perl/5.14.4/Test/Perinci/Sub/Wrapper.pm line 90.
# eval err: Global symbol "$eval_err" requires explicit package name at (eval 39) line 48.
# Global symbol "$res" requires explicit package name at (eval 39) line 48.
# Global symbol "$res" requires explicit package name at (eval 39) line 49.
# Global symbol "$res" requires explicit package name at (eval 39) line 50.
# Global symbol "$res" requires explicit package name at (eval 39) line 58.
# Global symbol "$res" requires explicit package name at (eval 39) line 59.
# Global symbol "$_w_eval_err" requires explicit package name at (eval 39) line 66.
# Global symbol "$_w_eval_err" requires explicit package name at (eval 39) line 66.
# Global symbol "$_w_eval_err" requires explicit package name at (eval 39) line 67.
# Global symbol "$_w_eval_err" requires explicit package name at (eval 39) line 68.
# eval source:
# # * section: before_sub_require_modules
# use experimental 'smartmatch';
#
# sub {
# my %args;
# %args = @_;
#
# # * section: declare_vars
# my $_w_res = undef;
#
# # * section: before_eval
#
# my $retries = 0;
# RETRY: while (1) {
#
# # * section: OPEN_EVAL
# eval {
#
# # * section: before_call_arg_validation
#
# # check args
# for (sort keys %args) {
# if (!/\A(-?)\w+(\.\w+)*\z/o) {
# return [400, "Invalid argument name '$_'"];
# }
# if (!($1 || $_ ~~ ['n','s1','s2'])) {
# return [400, "Unknown argument '$_'"];
# }
# }
# $_w_res = do {
# $Perinci::Sub::Wrapped::sub15793824->(%args);
# }; # do
#
# # * section: AFTER_CALL
#
# # check that sub produces enveloped result
# unless (ref($_w_res) eq "ARRAY" && $_w_res->[0]) {
# return [500, 'BUG: Sub $Perinci::Sub::Wrapped::sub15793824 does not produce envelope'];
# }
#
# # * section: CLOSE_EVAL
# return $_w_res;
# };
# my $_w_eval_err = $@;
#
# # * section: after_eval
# if ($eval_err || $res->[0] !~ qr/(?^:^(2..|304)$)/) {
# if ($res->[0] !~ qr/(?^:^311$)/) {
# return [521, "Can't retry (not non-fatal status $res->[0])"];
# }
# if (++$retries > 2) {
# return [521, "Maximum retries reached"];
# }
# next RETRY;
# } else {
# if ($retries) {
# $res->[3] //= {};
# $res->[3]{wrap_retries} = $retries;
# }
# last RETRY;
# }
#
# } # RETRY
#
# warn $_w_eval_err if $_w_eval_err;
# if ($_w_eval_err) {
# return [500, "Function died: $_w_eval_err"];
# }
#
# # * section: BEFORE_CLOSE_SUB
# return $_w_res;
# }; # sub
# Looks like you failed 1 test of 4.
# Failed test 'non_fatal_statuses \#1 (embed)'
# at /home/sand/src/perl/repoperls/installed-perls/perl/v5.14.4/127e/lib/site_perl/5.14.4/Test/Perinci/Sub/Wrapper.pm line 186.
Use of uninitialized value in concatenation (.) or string at /tmp/loop_over_bdir-5742-NObFzm/Perinci-Sub-Property-retry-0.06-gHdGof/blib/lib/Perinci/Sub/Property/retry.pm line 97.
Use of uninitialized value in concatenation (.) or string at /tmp/loop_over_bdir-5742-NObFzm/Perinci-Sub-Property-retry-0.06-gHdGof/blib/lib/Perinci/Sub/Property/retry.pm line 98.
# Failed test 'wrap doesn't die'
# at /home/sand/src/perl/repoperls/installed-perls/perl/v5.14.4/127e/lib/site_perl/5.14.4/Test/Perinci/Sub/Wrapper.pm line 42.
# BUG: Wrapper code can't be compiled: Global symbol "$eval_err" requires explicit package name at (eval 40) line 52.
# Global symbol "$res" requires explicit package name at (eval 40) line 52.
# Global symbol "$res" requires explicit package name at (eval 40) line 53.
# Global symbol "$res" requires explicit package name at (eval 40) line 54.
# Global symbol "$res" requires explicit package name at (eval 40) line 62.
# Global symbol "$res" requires explicit package name at (eval 40) line 63.
# Global symbol "$_w_eval_err" requires explicit package name at (eval 40) line 70.
# Global symbol "$_w_eval_err" requires explicit package name at (eval 40) line 70.
# Global symbol "$_w_eval_err" requires explicit package name at (eval 40) line 71.
# Global symbol "$_w_eval_err" requires explicit package name at (eval 40) line 72.
# Looks like you failed 1 test of 1.
# Failed test 'non_fatal_statuses \#2 (dynamic)'
# at /home/sand/src/perl/repoperls/installed-perls/perl/v5.14.4/127e/lib/site_perl/5.14.4/Test/Perinci/Sub/Wrapper.pm line 186.
Use of uninitialized value in concatenation (.) or string at /tmp/loop_over_bdir-5742-NObFzm/Perinci-Sub-Property-retry-0.06-gHdGof/blib/lib/Perinci/Sub/Property/retry.pm line 97.
Use of uninitialized value in concatenation (.) or string at /tmp/loop_over_bdir-5742-NObFzm/Perinci-Sub-Property-retry-0.06-gHdGof/blib/lib/Perinci/Sub/Property/retry.pm line 98.
# Failed test 'embed code compiles ok'
# at /home/sand/src/perl/repoperls/installed-perls/perl/v5.14.4/127e/lib/site_perl/5.14.4/Test/Perinci/Sub/Wrapper.pm line 90.
# eval err: Global symbol "$eval_err" requires explicit package name at (eval 43) line 48.
# Global symbol "$res" requires explicit package name at (eval 43) line 48.
# Global symbol "$res" requires explicit package name at (eval 43) line 49.
# Global symbol "$res" requires explicit package name at (eval 43) line 50.
# Global symbol "$res" requires explicit package name at (eval 43) line 58.
# Global symbol "$res" requires explicit package name at (eval 43) line 59.
# Global symbol "$_w_eval_err" requires explicit package name at (eval 43) line 66.
# Global symbol "$_w_eval_err" requires explicit package name at (eval 43) line 66.
# Global symbol "$_w_eval_err" requires explicit package name at (eval 43) line 67.
# Global symbol "$_w_eval_err" requires explicit package name at (eval 43) line 68.
# eval source:
# # * section: before_sub_require_modules
# use experimental 'smartmatch';
#
# sub {
# my %args;
# %args = @_;
#
# # * section: declare_vars
# my $_w_res = undef;
#
# # * section: before_eval
#
# my $retries = 0;
# RETRY: while (1) {
#
# # * section: OPEN_EVAL
# eval {
#
# # * section: before_call_arg_validation
#
# # check args
# for (sort keys %args) {
# if (!/\A(-?)\w+(\.\w+)*\z/o) {
# return [400, "Invalid argument name '$_'"];
# }
# if (!($1 || $_ ~~ ['n','s1','s2'])) {
# return [400, "Unknown argument '$_'"];
# }
# }
# $_w_res = do {
# $Perinci::Sub::Wrapped::sub15793824->(%args);
# }; # do
#
# # * section: AFTER_CALL
#
# # check that sub produces enveloped result
# unless (ref($_w_res) eq "ARRAY" && $_w_res->[0]) {
# return [500, 'BUG: Sub $Perinci::Sub::Wrapped::sub15793824 does not produce envelope'];
# }
#
# # * section: CLOSE_EVAL
# return $_w_res;
# };
# my $_w_eval_err = $@;
#
# # * section: after_eval
# if ($eval_err || $res->[0] !~ qr/(?^:^(2..|304)$)/) {
# if ($res->[0] !~ qr/(?^:^312$)/) {
# return [521, "Can't retry (not non-fatal status $res->[0])"];
# }
# if (++$retries > 2) {
# return [521, "Maximum retries reached"];
# }
# next RETRY;
# } else {
# if ($retries) {
# $res->[3] //= {};
# $res->[3]{wrap_retries} = $retries;
# }
# last RETRY;
# }
#
# } # RETRY
#
# warn $_w_eval_err if $_w_eval_err;
# if ($_w_eval_err) {
# return [500, "Function died: $_w_eval_err"];
# }
#
# # * section: BEFORE_CLOSE_SUB
# return $_w_res;
# }; # sub
# Looks like you failed 1 test of 4.
# Failed test 'non_fatal_statuses \#2 (embed)'
# at /home/sand/src/perl/repoperls/installed-perls/perl/v5.14.4/127e/lib/site_perl/5.14.4/Test/Perinci/Sub/Wrapper.pm line 186.
Use of uninitialized value in concatenation (.) or string at /tmp/loop_over_bdir-5742-NObFzm/Perinci-Sub-Property-retry-0.06-gHdGof/blib/lib/Perinci/Sub/Property/retry.pm line 97.
Use of uninitialized value in concatenation (.) or string at /tmp/loop_over_bdir-5742-NObFzm/Perinci-Sub-Property-retry-0.06-gHdGof/blib/lib/Perinci/Sub/Property/retry.pm line 98.
# Failed test 'wrap doesn't die'
# at /home/sand/src/perl/repoperls/installed-perls/perl/v5.14.4/127e/lib/site_perl/5.14.4/Test/Perinci/Sub/Wrapper.pm line 42.
# BUG: Wrapper code can't be compiled: Global symbol "$eval_err" requires explicit package name at (eval 44) line 52.
# Global symbol "$res" requires explicit package name at (eval 44) line 52.
# Global symbol "$res" requires explicit package name at (eval 44) line 53.
# Global symbol "$res" requires explicit package name at (eval 44) line 54.
# Global symbol "$res" requires explicit package name at (eval 44) line 62.
# Global symbol "$res" requires explicit package name at (eval 44) line 63.
# Global symbol "$_w_eval_err" requires explicit package name at (eval 44) line 70.
# Global symbol "$_w_eval_err" requires explicit package name at (eval 44) line 70.
# Global symbol "$_w_eval_err" requires explicit package name at (eval 44) line 71.
# Global symbol "$_w_eval_err" requires explicit package name at (eval 44) line 72.
# Looks like you failed 1 test of 1.
# Failed test 'fatal_messages (dynamic)'
# at /home/sand/src/perl/repoperls/installed-perls/perl/v5.14.4/127e/lib/site_perl/5.14.4/Test/Perinci/Sub/Wrapper.pm line 186.
Use of uninitialized value in concatenation (.) or string at /tmp/loop_over_bdir-5742-NObFzm/Perinci-Sub-Property-retry-0.06-gHdGof/blib/lib/Perinci/Sub/Property/retry.pm line 97.
Use of uninitialized value in concatenation (.) or string at /tmp/loop_over_bdir-5742-NObFzm/Perinci-Sub-Property-retry-0.06-gHdGof/blib/lib/Perinci/Sub/Property/retry.pm line 98.
# Failed test 'embed code compiles ok'
# at /home/sand/src/perl/repoperls/installed-perls/perl/v5.14.4/127e/lib/site_perl/5.14.4/Test/Perinci/Sub/Wrapper.pm line 90.
# eval err: Global symbol "$eval_err" requires explicit package name at (eval 47) line 48.
# Global symbol "$res" requires explicit package name at (eval 47) line 48.
# Global symbol "$res" requires explicit package name at (eval 47) line 49.
# Global symbol "$res" requires explicit package name at (eval 47) line 50.
# Global symbol "$res" requires explicit package name at (eval 47) line 58.
# Global symbol "$res" requires explicit package name at (eval 47) line 59.
# Global symbol "$_w_eval_err" requires explicit package name at (eval 47) line 66.
# Global symbol "$_w_eval_err" requires explicit package name at (eval 47) line 66.
# Global symbol "$_w_eval_err" requires explicit package name at (eval 47) line 67.
# Global symbol "$_w_eval_err" requires explicit package name at (eval 47) line 68.
# eval source:
# # * section: before_sub_require_modules
# use experimental 'smartmatch';
#
# sub {
# my %args;
# %args = @_;
#
# # * section: declare_vars
# my $_w_res = undef;
#
# # * section: before_eval
#
# my $retries = 0;
# RETRY: while (1) {
#
# # * section: OPEN_EVAL
# eval {
#
# # * section: before_call_arg_validation
#
# # check args
# for (sort keys %args) {
# if (!/\A(-?)\w+(\.\w+)*\z/o) {
# return [400, "Invalid argument name '$_'"];
# }
# if (!($1 || $_ ~~ ['n','s1','s2'])) {
# return [400, "Unknown argument '$_'"];
# }
# }
# $_w_res = do {
# $Perinci::Sub::Wrapped::sub15793824->(%args);
# }; # do
#
# # * section: AFTER_CALL
#
# # check that sub produces enveloped result
# unless (ref($_w_res) eq "ARRAY" && $_w_res->[0]) {
# return [500, 'BUG: Sub $Perinci::Sub::Wrapped::sub15793824 does not produce envelope'];
# }
#
# # * section: CLOSE_EVAL
# return $_w_res;
# };
# my $_w_eval_err = $@;
#
# # * section: after_eval
# if ($eval_err || $res->[0] !~ qr/(?^:^(2..|304)$)/) {
# if ($res->[1] =~ qr/(?^:^m1$)/) {
# return [521, "Can't retry (fatal message: $res->[1])"];
# }
# if (++$retries > 2) {
# return [521, "Maximum retries reached"];
# }
# next RETRY;
# } else {
# if ($retries) {
# $res->[3] //= {};
# $res->[3]{wrap_retries} = $retries;
# }
# last RETRY;
# }
#
# } # RETRY
#
# warn $_w_eval_err if $_w_eval_err;
# if ($_w_eval_err) {
# return [500, "Function died: $_w_eval_err"];
# }
#
# # * section: BEFORE_CLOSE_SUB
# return $_w_res;
# }; # sub
# Looks like you failed 1 test of 4.
# Failed test 'fatal_messages (embed)'
# at /home/sand/src/perl/repoperls/installed-perls/perl/v5.14.4/127e/lib/site_perl/5.14.4/Test/Perinci/Sub/Wrapper.pm line 186.
Use of uninitialized value in concatenation (.) or string at /tmp/loop_over_bdir-5742-NObFzm/Perinci-Sub-Property-retry-0.06-gHdGof/blib/lib/Perinci/Sub/Property/retry.pm line 97.
Use of uninitialized value in concatenation (.) or string at /tmp/loop_over_bdir-5742-NObFzm/Perinci-Sub-Property-retry-0.06-gHdGof/blib/lib/Perinci/Sub/Property/retry.pm line 98.
# Failed test 'wrap doesn't die'
# at /home/sand/src/perl/repoperls/installed-perls/perl/v5.14.4/127e/lib/site_perl/5.14.4/Test/Perinci/Sub/Wrapper.pm line 42.
# BUG: Wrapper code can't be compiled: Global symbol "$eval_err" requires explicit package name at (eval 48) line 52.
# Global symbol "$res" requires explicit package name at (eval 48) line 52.
# Global symbol "$res" requires explicit package name at (eval 48) line 53.
# Global symbol "$res" requires explicit package name at (eval 48) line 54.
# Global symbol "$res" requires explicit package name at (eval 48) line 62.
# Global symbol "$res" requires explicit package name at (eval 48) line 63.
# Global symbol "$_w_eval_err" requires explicit package name at (eval 48) line 70.
# Global symbol "$_w_eval_err" requires explicit package name at (eval 48) line 70.
# Global symbol "$_w_eval_err" requires explicit package name at (eval 48) line 71.
# Global symbol "$_w_eval_err" requires explicit package name at (eval 48) line 72.
# Looks like you failed 1 test of 1.
# Failed test 'non_fatal_messages \#1 (dynamic)'
# at /home/sand/src/perl/repoperls/installed-perls/perl/v5.14.4/127e/lib/site_perl/5.14.4/Test/Perinci/Sub/Wrapper.pm line 186.
Use of uninitialized value in concatenation (.) or string at /tmp/loop_over_bdir-5742-NObFzm/Perinci-Sub-Property-retry-0.06-gHdGof/blib/lib/Perinci/Sub/Property/retry.pm line 97.
Use of uninitialized value in concatenation (.) or string at /tmp/loop_over_bdir-5742-NObFzm/Perinci-Sub-Property-retry-0.06-gHdGof/blib/lib/Perinci/Sub/Property/retry.pm line 98.
# Failed test 'embed code compiles ok'
# at /home/sand/src/perl/repoperls/installed-perls/perl/v5.14.4/127e/lib/site_perl/5.14.4/Test/Perinci/Sub/Wrapper.pm line 90.
# eval err: Global symbol "$eval_err" requires explicit package name at (eval 51) line 48.
# Global symbol "$res" requires explicit package name at (eval 51) line 48.
# Global symbol "$res" requires explicit package name at (eval 51) line 49.
# Global symbol "$res" requires explicit package name at (eval 51) line 50.
# Global symbol "$res" requires explicit package name at (eval 51) line 58.
# Global symbol "$res" requires explicit package name at (eval 51) line 59.
# Global symbol "$_w_eval_err" requires explicit package name at (eval 51) line 66.
# Global symbol "$_w_eval_err" requires explicit package name at (eval 51) line 66.
# Global symbol "$_w_eval_err" requires explicit package name at (eval 51) line 67.
# Global symbol "$_w_eval_err" requires explicit package name at (eval 51) line 68.
# eval source:
# # * section: before_sub_require_modules
# use experimental 'smartmatch';
#
# sub {
# my %args;
# %args = @_;
#
# # * section: declare_vars
# my $_w_res = undef;
#
# # * section: before_eval
#
# my $retries = 0;
# RETRY: while (1) {
#
# # * section: OPEN_EVAL
# eval {
#
# # * section: before_call_arg_validation
#
# # check args
# for (sort keys %args) {
# if (!/\A(-?)\w+(\.\w+)*\z/o) {
# return [400, "Invalid argument name '$_'"];
# }
# if (!($1 || $_ ~~ ['n','s1','s2'])) {
# return [400, "Unknown argument '$_'"];
# }
# }
# $_w_res = do {
# $Perinci::Sub::Wrapped::sub15793824->(%args);
# }; # do
#
# # * section: AFTER_CALL
#
# # check that sub produces enveloped result
# unless (ref($_w_res) eq "ARRAY" && $_w_res->[0]) {
# return [500, 'BUG: Sub $Perinci::Sub::Wrapped::sub15793824 does not produce envelope'];
# }
#
# # * section: CLOSE_EVAL
# return $_w_res;
# };
# my $_w_eval_err = $@;
#
# # * section: after_eval
# if ($eval_err || $res->[0] !~ qr/(?^:^(2..|304)$)/) {
# if ($res->[1] !~ qr/(?^:^m1$)/) {
# return [521, "Can't retry (not non-fatal message $res->[1])"];
# }
# if (++$retries > 2) {
# return [521, "Maximum retries reached"];
# }
# next RETRY;
# } else {
# if ($retries) {
# $res->[3] //= {};
# $res->[3]{wrap_retries} = $retries;
# }
# last RETRY;
# }
#
# } # RETRY
#
# warn $_w_eval_err if $_w_eval_err;
# if ($_w_eval_err) {
# return [500, "Function died: $_w_eval_err"];
# }
#
# # * section: BEFORE_CLOSE_SUB
# return $_w_res;
# }; # sub
# Looks like you failed 1 test of 4.
# Failed test 'non_fatal_messages \#1 (embed)'
# at /home/sand/src/perl/repoperls/installed-perls/perl/v5.14.4/127e/lib/site_perl/5.14.4/Test/Perinci/Sub/Wrapper.pm line 186.
Use of uninitialized value in concatenation (.) or string at /tmp/loop_over_bdir-5742-NObFzm/Perinci-Sub-Property-retry-0.06-gHdGof/blib/lib/Perinci/Sub/Property/retry.pm line 97.
Use of uninitialized value in concatenation (.) or string at /tmp/loop_over_bdir-5742-NObFzm/Perinci-Sub-Property-retry-0.06-gHdGof/blib/lib/Perinci/Sub/Property/retry.pm line 98.
# Failed test 'wrap doesn't die'
# at /home/sand/src/perl/repoperls/installed-perls/perl/v5.14.4/127e/lib/site_perl/5.14.4/Test/Perinci/Sub/Wrapper.pm line 42.
# BUG: Wrapper code can't be compiled: Global symbol "$eval_err" requires explicit package name at (eval 52) line 52.
# Global symbol "$res" requires explicit package name at (eval 52) line 52.
# Global symbol "$res" requires explicit package name at (eval 52) line 53.
# Global symbol "$res" requires explicit package name at (eval 52) line 54.
# Global symbol "$res" requires explicit package name at (eval 52) line 62.
# Global symbol "$res" requires explicit package name at (eval 52) line 63.
# Global symbol "$_w_eval_err" requires explicit package name at (eval 52) line 70.
# Global symbol "$_w_eval_err" requires explicit package name at (eval 52) line 70.
# Global symbol "$_w_eval_err" requires explicit package name at (eval 52) line 71.
# Global symbol "$_w_eval_err" requires explicit package name at (eval 52) line 72.
# Looks like you failed 1 test of 1.
# Failed test 'non_fatal_messages \#2 (dynamic)'
# at /home/sand/src/perl/repoperls/installed-perls/perl/v5.14.4/127e/lib/site_perl/5.14.4/Test/Perinci/Sub/Wrapper.pm line 186.
Use of uninitialized value in concatenation (.) or string at /tmp/loop_over_bdir-5742-NObFzm/Perinci-Sub-Property-retry-0.06-gHdGof/blib/lib/Perinci/Sub/Property/retry.pm line 97.
Use of uninitialized value in concatenation (.) or string at /tmp/loop_over_bdir-5742-NObFzm/Perinci-Sub-Property-retry-0.06-gHdGof/blib/lib/Perinci/Sub/Property/retry.pm line 98.
# Failed test 'embed code compiles ok'
# at /home/sand/src/perl/repoperls/installed-perls/perl/v5.14.4/127e/lib/site_perl/5.14.4/Test/Perinci/Sub/Wrapper.pm line 90.
# eval err: Global symbol "$eval_err" requires explicit package name at (eval 55) line 48.
# Global symbol "$res" requires explicit package name at (eval 55) line 48.
# Global symbol "$res" requires explicit package name at (eval 55) line 49.
# Global symbol "$res" requires explicit package name at (eval 55) line 50.
# Global symbol "$res" requires explicit package name at (eval 55) line 58.
# Global symbol "$res" requires explicit package name at (eval 55) line 59.
# Global symbol "$_w_eval_err" requires explicit package name at (eval 55) line 66.
# Global symbol "$_w_eval_err" requires explicit package name at (eval 55) line 66.
# Global symbol "$_w_eval_err" requires explicit package name at (eval 55) line 67.
# Global symbol "$_w_eval_err" requires explicit package name at (eval 55) line 68.
# eval source:
# # * section: before_sub_require_modules
# use experimental 'smartmatch';
#
# sub {
# my %args;
# %args = @_;
#
# # * section: declare_vars
# my $_w_res = undef;
#
# # * section: before_eval
#
# my $retries = 0;
# RETRY: while (1) {
#
# # * section: OPEN_EVAL
# eval {
#
# # * section: before_call_arg_validation
#
# # check args
# for (sort keys %args) {
# if (!/\A(-?)\w+(\.\w+)*\z/o) {
# return [400, "Invalid argument name '$_'"];
# }
# if (!($1 || $_ ~~ ['n','s1','s2'])) {
# return [400, "Unknown argument '$_'"];
# }
# }
# $_w_res = do {
# $Perinci::Sub::Wrapped::sub15793824->(%args);
# }; # do
#
# # * section: AFTER_CALL
#
# # check that sub produces enveloped result
# unless (ref($_w_res) eq "ARRAY" && $_w_res->[0]) {
# return [500, 'BUG: Sub $Perinci::Sub::Wrapped::sub15793824 does not produce envelope'];
# }
#
# # * section: CLOSE_EVAL
# return $_w_res;
# };
# my $_w_eval_err = $@;
#
# # * section: after_eval
# if ($eval_err || $res->[0] !~ qr/(?^:^(2..|304)$)/) {
# if ($res->[1] !~ qr/(?^:^m3$)/) {
# return [521, "Can't retry (not non-fatal message $res->[1])"];
# }
# if (++$retries > 2) {
# return [521, "Maximum retries reached"];
# }
# next RETRY;
# } else {
# if ($retries) {
# $res->[3] //= {};
# $res->[3]{wrap_retries} = $retries;
# }
# last RETRY;
# }
#
# } # RETRY
#
# warn $_w_eval_err if $_w_eval_err;
# if ($_w_eval_err) {
# return [500, "Function died: $_w_eval_err"];
# }
#
# # * section: BEFORE_CLOSE_SUB
# return $_w_res;
# }; # sub
# Looks like you failed 1 test of 4.
# Failed test 'non_fatal_messages \#2 (embed)'
# at /home/sand/src/perl/repoperls/installed-perls/perl/v5.14.4/127e/lib/site_perl/5.14.4/Test/Perinci/Sub/Wrapper.pm line 186.
Use of uninitialized value in concatenation (.) or string at /tmp/loop_over_bdir-5742-NObFzm/Perinci-Sub-Property-retry-0.06-gHdGof/blib/lib/Perinci/Sub/Property/retry.pm line 97.
Use of uninitialized value in concatenation (.) or string at /tmp/loop_over_bdir-5742-NObFzm/Perinci-Sub-Property-retry-0.06-gHdGof/blib/lib/Perinci/Sub/Property/retry.pm line 98.
# Failed test 'wrap doesn't die'
# at /home/sand/src/perl/repoperls/installed-perls/perl/v5.14.4/127e/lib/site_perl/5.14.4/Test/Perinci/Sub/Wrapper.pm line 42.
# BUG: Wrapper code can't be compiled: Global symbol "$eval_err" requires explicit package name at (eval 56) line 52.
# Global symbol "$res" requires explicit package name at (eval 56) line 52.
# Global symbol "$res" requires explicit package name at (eval 56) line 60.
# Global symbol "$res" requires explicit package name at (eval 56) line 61.
# Global symbol "$_w_eval_err" requires explicit package name at (eval 56) line 68.
# Global symbol "$_w_eval_err" requires explicit package name at (eval 56) line 68.
# Global symbol "$_w_eval_err" requires explicit package name at (eval 56) line 69.
# Global symbol "$_w_eval_err" requires explicit package name at (eval 56) line 70.
# Looks like you failed 1 test of 1.
# Failed test 'delay (dynamic)'
# at /home/sand/src/perl/repoperls/installed-perls/perl/v5.14.4/127e/lib/site_perl/5.14.4/Test/Perinci/Sub/Wrapper.pm line 186.
Use of uninitialized value in concatenation (.) or string at /tmp/loop_over_bdir-5742-NObFzm/Perinci-Sub-Property-retry-0.06-gHdGof/blib/lib/Perinci/Sub/Property/retry.pm line 97.
Use of uninitialized value in concatenation (.) or string at /tmp/loop_over_bdir-5742-NObFzm/Perinci-Sub-Property-retry-0.06-gHdGof/blib/lib/Perinci/Sub/Property/retry.pm line 98.
# Failed test 'embed code compiles ok'
# at /home/sand/src/perl/repoperls/installed-perls/perl/v5.14.4/127e/lib/site_perl/5.14.4/Test/Perinci/Sub/Wrapper.pm line 90.
# eval err: Global symbol "$eval_err" requires explicit package name at (eval 59) line 48.
# Global symbol "$res" requires explicit package name at (eval 59) line 48.
# Global symbol "$res" requires explicit package name at (eval 59) line 56.
# Global symbol "$res" requires explicit package name at (eval 59) line 57.
# Global symbol "$_w_eval_err" requires explicit package name at (eval 59) line 64.
# Global symbol "$_w_eval_err" requires explicit package name at (eval 59) line 64.
# Global symbol "$_w_eval_err" requires explicit package name at (eval 59) line 65.
# Global symbol "$_w_eval_err" requires explicit package name at (eval 59) line 66.
# eval source:
# # * section: before_sub_require_modules
# use experimental 'smartmatch';
#
# sub {
# my %args;
# %args = @_;
#
# # * section: declare_vars
# my $_w_res = undef;
#
# # * section: before_eval
#
# my $retries = 0;
# RETRY: while (1) {
#
# # * section: OPEN_EVAL
# eval {
#
# # * section: before_call_arg_validation
#
# # check args
# for (sort keys %args) {
# if (!/\A(-?)\w+(\.\w+)*\z/o) {
# return [400, "Invalid argument name '$_'"];
# }
# if (!($1 || $_ ~~ ['n','s1','s2'])) {
# return [400, "Unknown argument '$_'"];
# }
# }
# $_w_res = do {
# $Perinci::Sub::Wrapped::sub15793824->(%args);
# }; # do
#
# # * section: AFTER_CALL
#
# # check that sub produces enveloped result
# unless (ref($_w_res) eq "ARRAY" && $_w_res->[0]) {
# return [500, 'BUG: Sub $Perinci::Sub::Wrapped::sub15793824 does not produce envelope'];
# }
#
# # * section: CLOSE_EVAL
# return $_w_res;
# };
# my $_w_eval_err = $@;
#
# # * section: after_eval
# if ($eval_err || $res->[0] !~ qr/(?^:^(2..|304)$)/) {
# if (++$retries > 2) {
# return [521, "Maximum retries reached"];
# }
# sleep 2;
# next RETRY;
# } else {
# if ($retries) {
# $res->[3] //= {};
# $res->[3]{wrap_retries} = $retries;
# }
# last RETRY;
# }
#
# } # RETRY
#
# warn $_w_eval_err if $_w_eval_err;
# if ($_w_eval_err) {
# return [500, "Function died: $_w_eval_err"];
# }
#
# # * section: BEFORE_CLOSE_SUB
# return $_w_res;
# }; # sub
# Looks like you failed 1 test of 4.
# Failed test 'delay (embed)'
# at /home/sand/src/perl/repoperls/installed-perls/perl/v5.14.4/127e/lib/site_perl/5.14.4/Test/Perinci/Sub/Wrapper.pm line 186.
# Looks like you failed 24 tests of 24.
t/01-basics.t .............
Dubious, test returned 24 (wstat 6144, 0x1800)
Failed 24/24 subtests
t/release-pod-coverage.t .. skipped: these tests are for release candidate testing
t/release-pod-syntax.t .... skipped: these tests are for release candidate testing
t/release-rinci.t ......... skipped: these tests are for release candidate testing
Test Summary Report
-------------------
t/01-basics.t (Wstat: 6144 Tests: 24 Failed: 24)
Failed tests: 1-24
Non-zero exit status: 24
Files=5, Tests=25, 1 wallclock secs ( 0.04 usr 0.01 sys + 0.18 cusr 0.04 csys = 0.27 CPU)
Result: FAIL
Failed 1/5 test programs. 24/25 subtests failed.
------------------------------
PREREQUISITES
------------------------------
Prerequisite modules loaded:
requires:
Module Need Have
--------------------------- -------- --------
Perinci::Sub::PropertyUtil 0 0.01
perl 5.010000 5.014004
build_requires:
Module Need Have
--------------------------- -------- --------
Module::Build 0.3601 0.4205
Perinci::Sub::Wrapper 0.30 0.51
Test::More 0.96 1.001002
Test::Perinci::Sub::Wrapper 0 0.51
configure_requires:
Module Need Have
--------------------------- -------- --------
Module::Build 0.3601 0.4205
------------------------------
ENVIRONMENT AND OTHER CONTEXT
------------------------------
Environment variables:
AUTOMATED_TESTING = 1
LANG = en_US.UTF-8
LANGUAGE = en_US:en
PATH = /usr/lib/ccache:/home/sand/bin:/usr/local/bin:/usr/bin:/bin:/usr/bin/X11:/usr/games:/usr/local/perl/bin:/usr/X11/bin:/sbin:/usr/sbin
PERL5LIB =
PERL5OPT =
PERL5_CPANPLUS_IS_RUNNING = 5743
PERL5_CPAN_IS_RUNNING = 5743
PERL_MM_USE_DEFAULT = 1
SHELL = /usr/bin/zsh
TERM = screen
Perl special variables (and OS-specific diagnostics, for MSWin32):
$^X = /home/sand/src/perl/repoperls/installed-perls/perl/v5.14.4/127e/bin/perl
$UID/$EUID = 1005 / 1005
$GID = 1005 1005
$EGID = 1005 1005
Perl module toolchain versions installed:
Module Have
------------------- --------
CPAN 2.00
CPAN::Meta 2.140640
Cwd 3.40
ExtUtils::CBuilder 0.280212
ExtUtils::Command 1.17
ExtUtils::Install 1.56
ExtUtils::MakeMaker 6.91_01
ExtUtils::Manifest 1.60
ExtUtils::ParseXS 3.22
File::Spec 3.40
JSON 2.90
JSON::PP 2.27203
Module::Build 0.4205
Module::Signature 0.73
Parse::CPAN::Meta 1.4414
Test::Harness 3.30
Test::More 1.001002
YAML 0.90
YAML::Syck 1.27
version 0.9908
--
Summary of my perl5 (revision 5 version 14 subversion 4) configuration:
Commit id: 26c5c13a4ece9084f310610bb17fb2f24c72a73e
Platform:
osname=linux, osvers=3.12-1-amd64, archname=x86_64-linux-ld
uname='linux k83 3.12-1-amd64 #1 smp debian 3.12.6-2 (2013-12-29) x86_64 gnulinux '
config_args='-Dprefix=/home/sand/src/perl/repoperls/installed-perls/perl/v5.14.4/127e -Dmyhostname=k83 -Dinstallusrbinperl=n -Uversiononly -Dusedevel -des -Ui_db -Uuseithreads -Duselongdouble -DDEBUGGING=-g'
hint=recommended, useposix=true, d_sigaction=define
useithreads=undef, usemultiplicity=undef
useperlio=define, d_sfio=undef, uselargefiles=define, usesocks=undef
use64bitint=define, use64bitall=define, uselongdouble=define
usemymalloc=n, bincompat5005=undef
Compiler:
cc='cc', ccflags ='-fno-strict-aliasing -pipe -fstack-protector -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64',
optimize='-O2 -g',
cppflags='-fno-strict-aliasing -pipe -fstack-protector -I/usr/local/include'
ccversion='', gccversion='4.8.2', gccosandvers=''
intsize=4, longsize=8, ptrsize=8, doublesize=8, byteorder=12345678
d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=16
ivtype='long', ivsize=8, nvtype='long double', nvsize=16, Off_t='off_t', lseeksize=8
alignbytes=16, prototype=define
Linker and Libraries:
ld='cc', ldflags =' -fstack-protector -L/usr/local/lib'
libpth=/usr/local/lib /lib/x86_64-linux-gnu /lib/../lib /usr/lib/x86_64-linux-gnu /usr/lib/../lib /lib /usr/lib
libs=-lnsl -lgdbm -ldb -ldl -lm -lcrypt -lutil -lc -lgdbm_compat
perllibs=-lnsl -ldl -lm -lcrypt -lutil -lc
libc=, so=so, useshrplib=false, libperl=libperl.a
gnulibc_version='2.17'
Dynamic Linking:
dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-Wl,-E'
cccdlflags='-fPIC', lddlflags='-shared -O2 -g -L/usr/local/lib -fstack-protector'
Characteristics of this binary (from libperl):
Compile-time options: PERL_DONT_CREATE_GVSV PERL_MALLOC_WRAP
PERL_PRESERVE_IVUV PERL_USE_DEVEL USE_64_BIT_ALL
USE_64_BIT_INT USE_LARGE_FILES USE_LONG_DOUBLE
USE_PERLIO USE_PERL_ATOF
Built under linux
Compiled at Jan 19 2014 15:29:16
%ENV:
PERL5LIB=""
PERL5OPT=""
PERL5_CPANPLUS_IS_RUNNING="5743"
PERL5_CPAN_IS_RUNNING="5743"
PERL_MM_USE_DEFAULT="1"
@INC:
/home/sand/src/perl/repoperls/installed-perls/perl/v5.14.4/127e/lib/site_perl/5.14.4/x86_64-linux-ld
/home/sand/src/perl/repoperls/installed-perls/perl/v5.14.4/127e/lib/site_perl/5.14.4
/home/sand/src/perl/repoperls/installed-perls/perl/v5.14.4/127e/lib/5.14.4/x86_64-linux-ld
/home/sand/src/perl/repoperls/installed-perls/perl/v5.14.4/127e/lib/5.14.4
.