Add undef guards to $stderr in tests

diff --git a/t/10-good-no.t b/t/10-good-no.t
index 51c3d8ffdaf0a00d0b1a6cf654312513ba300b77..501b27d87421c26fcda5fa3584fcd51f41318643 100644 (file)
--- a/t/10-good-no.t
+++ b/t/10-good-no.t
@@ -22,7 +22,7 @@ use IPC::Cmd qw/run/;
 plan skip_all => "Couldn't capture buffers" if $success and not defined $stderr;
 plan tests => $total + 1;
 
 plan skip_all => "Couldn't capture buffers" if $success and not defined $stderr;
 plan tests => $total + 1;
 

-$stderr = join '', @$stderr;
+$stderr = join '', @{$stderr || []};

 unless ($success) {
  diag $stderr;
  diag "Failed to execute data file (error $err_code)";
 unless ($success) {
  diag $stderr;
  diag "Failed to execute data file (error $err_code)";

diff --git a/t/11-good-use.t b/t/11-good-use.t
index 2e8035ed2a1fc931b1127815d5658b78ceea965d..6f0025426fe54b10aa5935397eff0eaba92d5954 100644 (file)
--- a/t/11-good-use.t
+++ b/t/11-good-use.t
@@ -22,7 +22,7 @@ use IPC::Cmd qw/run/;
 plan skip_all => "Couldn't capture buffers" if $success and not defined $stderr;
 plan tests => $total + 1;
 
 plan skip_all => "Couldn't capture buffers" if $success and not defined $stderr;
 plan tests => $total + 1;
 

-$stderr = join '', @$stderr;
+$stderr = join '', @{$stderr || []};

 unless ($success) {
  diag $stderr;
  diag "Failed to execute data file (error $err_code)";
 unless ($success) {
  diag $stderr;
  diag "Failed to execute data file (error $err_code)";

diff --git a/t/20-bad-no.t b/t/20-bad-no.t
index 5d82d9551cd4143a3fad988a3d2025548d20a27a..fbfceaf3ead8e44091d57ca407b0dc093c19546c 100644 (file)
--- a/t/20-bad-no.t
+++ b/t/20-bad-no.t
@@ -22,7 +22,7 @@ use IPC::Cmd qw/run/;
 plan skip_all => "Couldn't capture buffers" if $success and not defined $stderr;
 plan tests => $total + 1;
 
 plan skip_all => "Couldn't capture buffers" if $success and not defined $stderr;
 plan tests => $total + 1;
 

-$stderr = join '', @$stderr;
+$stderr = join '', @{$stderr || []};

 unless ($success) {
  diag $stderr;
  diag "Failed to execute data file (error $err_code)";
 unless ($success) {
  diag $stderr;
  diag "Failed to execute data file (error $err_code)";

diff --git a/t/21-bad-use.t b/t/21-bad-use.t
index f6786954e42bc03043fc360d690bf672116aefc0..dca71d4b0244f5e5a041869a6ffe72423310f1f6 100644 (file)
--- a/t/21-bad-use.t
+++ b/t/21-bad-use.t
@@ -22,7 +22,7 @@ use IPC::Cmd qw/run/;
 plan skip_all => "Couldn't capture buffers" if $success and not defined $stderr;
 plan tests => $total + 1;
 
 plan skip_all => "Couldn't capture buffers" if $success and not defined $stderr;
 plan tests => $total + 1;
 

-$stderr = join '', @$stderr;
+$stderr = join '', @{$stderr || []};

 unless ($success) {
  diag $stderr;
  diag "Failed to execute data file (error $err_code)";
 unless ($success) {
  diag $stderr;
  diag "Failed to execute data file (error $err_code)";

diff --git a/t/22-bad-fatal.t b/t/22-bad-fatal.t
index d87fbb66717664f3b7c1e876594ad631472a4cc8..111524d5a2d1f169b73b7c55b0f43965fdcbb1c9 100644 (file)
--- a/t/22-bad-fatal.t
+++ b/t/22-bad-fatal.t
@@ -20,5 +20,5 @@ use IPC::Cmd qw/run/;
 plan skip_all => "Couldn't capture buffers" if $success and not defined $stderr;
 plan tests => 1;
 
 plan skip_all => "Couldn't capture buffers" if $success and not defined $stderr;
 plan tests => 1;
 

-$stderr = join '', @$stderr;
+$stderr = join '', @{$stderr || []};

 ok(!$success && $err_code && $stderr =~ /^Indirect\s+call\s+of\s+method\s+"new"\s+on\s+object\s+"Hlagh1"/mg, 'croak when :fatal is specified');
 ok(!$success && $err_code && $stderr =~ /^Indirect\s+call\s+of\s+method\s+"new"\s+on\s+object\s+"Hlagh1"/mg, 'croak when :fatal is specified');

diff --git a/t/30-scope.t b/t/30-scope.t
index 2eceddb401b03cb92981e3763ee0c5d3401515b5..e4d667c33d6ab5fbdc25956ee81142c575fd3c6c 100644 (file)
--- a/t/30-scope.t
+++ b/t/30-scope.t
@@ -21,7 +21,7 @@ use IPC::Cmd qw/run/;
 plan skip_all => "Couldn't capture buffers" if $success and not defined $stderr;
 plan tests => $total + 1;
 
 plan skip_all => "Couldn't capture buffers" if $success and not defined $stderr;
 plan tests => $total + 1;
 

-$stderr = join '', @$stderr;
+$stderr = join '', @{$stderr || []};

 unless ($success) {
  diag $stderr;
  diag "Failed to execute data file (error $err_code)";
 unless ($success) {
  diag $stderr;
  diag "Failed to execute data file (error $err_code)";