X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fperl_execute.t;h=c710ed3d3c3236d660cc923ebfff2735d9277763;hb=4e4463355a9ec6afdc7983ee36daa9f11306d4fc;hp=3777485d99477dbd8ed6d1eb66b8462d25993c4a;hpb=f129bfaf05b1ae0e2e2992cad47a70482dec9885;p=scpubgit%2FObject-Remote.git

diff --git a/t/perl_execute.t b/t/perl_execute.t
index 3777485..c710ed3 100644
--- a/t/perl_execute.t
+++ b/t/perl_execute.t
@@ -22,11 +22,11 @@ is($defaults->nice, undef, 'Nice is not enabled by default');
 is($defaults->ulimit, undef, 'Ulimit is not enabled by default');
 is($defaults->stderr, undef, 'Child process STDERR is clone of parent process STDERR by default');
 
-is_deeply($normal, ['sh -c "perl -"'], 'Default Perl interpreter arguments correct');
-is_deeply($ulimit, ['sh -c "ulimit -v 536; perl -"'], 'Arguments for ulimit are correct');
-is_deeply($nice, ['sh -c "nice -n 834 perl -"'], 'Arguments for nice are correct');
-is_deeply($both, ['sh -c "ulimit -v 913; nice -n 612 perl -"'], 'Arguments for nice and ulimit are correct');
-is_deeply($ssh, [qw(ssh -A testhost), 'sh -c "ulimit -v 782; nice -n 494 perl -"'], "Arguments using ssh are correct");
+is_deeply($normal, ['sh', '-c', 'perl -'], 'Default Perl interpreter arguments correct');
+is_deeply($ulimit, ['sh', '-c', 'ulimit -v 536; perl -'], 'Arguments for ulimit are correct');
+is_deeply($nice, ['sh', '-c', 'nice -n 834 perl -'], 'Arguments for nice are correct');
+is_deeply($both, ['sh', '-c', 'ulimit -v 913; nice -n 612 perl -'], 'Arguments for nice and ulimit are correct');
+is_deeply($ssh, [qw(ssh -A testhost), "sh -c 'ulimit -v 782; nice -n 494 perl -'"], "Arguments using ssh are correct");
 
 done_testing;