[Bps-public-commit] TAP-Harness-Remote branch, master, updated. a90fa4c4495c5d6fedd37d6789a124e15df1bafe

[Thomas Sibley]

The branch, master has been updated
       via  a90fa4c4495c5d6fedd37d6789a124e15df1bafe (commit)
      from  1bbff13f756cc8ef81dd17f8dd5492dfd901aef1 (commit)

Summary of changes:
 lib/TAP/Harness/Remote.pm |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

- Log -----------------------------------------------------------------
commit a90fa4c4495c5d6fedd37d6789a124e15df1bafe
Author: Thomas Sibley <trs at bestpractical.com>
Date:   Fri Jan 15 16:09:56 2010 -0500

    Don't try to use undef as an array reference

diff --git a/lib/TAP/Harness/Remote.pm b/lib/TAP/Harness/Remote.pm
index 57399a6..b1aaff7 100644
--- a/lib/TAP/Harness/Remote.pm
+++ b/lib/TAP/Harness/Remote.pm
@@ -315,7 +315,7 @@ sub setup {
         push @{$self->{env}}, "$k='$val'";
     }
     # env_forward to pass through from %ENV
-    for my $regex (@{$self->remote_config("env_forward")}) {
+    for my $regex (@{$self->remote_config("env_forward") || []}) {
         for (keys %ENV) {
             push @{$self->{env}}, "$_='$ENV{$_}'"
                 if m/$regex/;

-----------------------------------------------------------------------