X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F70sqlt-diff_script.t;h=14962aab5b5ed61a60e21c0725af494f10ea8640;hb=HEAD;hp=13ee198e2e089a6ccb30a9224043e9116bda60a5;hpb=cb9bbc68fe26aa563d28d590221f6a0235b4062e;p=dbsrgits%2FSQL-Translator.git

diff --git a/t/70sqlt-diff_script.t b/t/70sqlt-diff_script.t
index 13ee198..14962aa 100644
--- a/t/70sqlt-diff_script.t
+++ b/t/70sqlt-diff_script.t
@@ -70,7 +70,7 @@ like($out, qr/No differences found/, "Properly detected no differences");
 
 sub _run_cmd {
   my $out;
-  my $pid = open3( undef, $out, undef, $^X, shellwords($ENV{HARNESS_PERL_SWITCHES}), @_ );
+  my $pid = open3( undef, $out, undef, $^X, shellwords($ENV{HARNESS_PERL_SWITCHES}||''), @_ );
   my $res = do { local $/; <$out> };
   waitpid($pid, 0);
   $res;