From: Jennie 'Seven' Evers-Corvina <seven@nanabox.net>
Date: Mon, 13 Dec 2010 22:26:32 +0000 (-0800)
Subject: I've gotten much farther
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1764dd1b1f284b344f222187427a5e513116710b;hp=506d80b16e2741746ae37205d2c472a0fdf5e0a7;p=p5sagit%2FIPC-PerlSSH-MultiHop.git

I've gotten much farther
---

diff --git a/t/scratch.t b/t/scratch.t
index 1d51086..8c8a2f9 100644
--- a/t/scratch.t
+++ b/t/scratch.t
@@ -26,7 +26,11 @@ use Devel::Dwarn;
   }
 
   sub _ssh_env_vars {
-    $_[0]->{ssh_env_vars} ||= $_[0]->_build_ssh_env_vars;
+    if( defined $_[1] ) {
+      $_[0]->{ssh_env_vars} = $_[1];
+    } else {
+      $_[0]->{ssh_env_vars} ||= $_[0]->_build_ssh_env_vars;
+    }
   }
 
   sub _build_ssh_env_vars {