From: Marius Gavrilescu <marius@ieval.ro>
Date: Tue, 24 Jun 2014 20:27:56 +0000 (+0300)
Subject: Try (again) to use correct perl in tools.t
X-Git-Tag: 5999.000_007~2
X-Git-Url: http://git.ieval.ro/?a=commitdiff_plain;h=e396263b9cda233221df3fd4605c7ed9e9394aca;p=gruntmaster-data.git

Try (again) to use correct perl in tools.t
---

diff --git a/t/tools.t b/t/tools.t
index 5cfdfb9..e812737 100644
--- a/t/tools.t
+++ b/t/tools.t
@@ -22,7 +22,7 @@ withdb { $db->deploy };
 
 my $pipe;
 
-open $pipe, '|$perl gruntmaster-contest add ct';
+open $pipe, "|$perl gruntmaster-contest add ct";
 print $pipe <<'';
 My cool contest
 MGV
@@ -56,7 +56,7 @@ is_deeply \@list, [ sort @list2 ], 'gruntmaster-contest list';
 system $perl, 'gruntmaster-contest', 'rm', 'dummy';
 withdb { ok !$db->contest('dummy'), 'gruntmaster-contest rm' };
 
-open $pipe, '|$perl gruntmaster-problem add pb';
+open $pipe, "|$perl gruntmaster-problem add pb";
 print $pipe <<'';
 Test problem
 n