runtest.pl fix error when there is no sandbox
commitd2bcf5da0a11df7643f10ab9b49613e6ace2d714
authorHeather <heather@live.ru>
dateFri 3 Apr 2015, 11:28 (12 years ago)
parent2e919c8
test/runtest.pl+3−2
@@ -10,10 +10,11 @@ my @idrOpts = ();
1010
1111sub sandbox_path {
1212 my ($test_dir,) = @_;
13− my $sandbox = abs_path("$test_dir/../../.cabal-sandbox/bin");
13+ my $sandbox = "$test_dir/../../.cabal-sandbox/bin";
1414
1515 if ( -d $sandbox ) {
16− return "PATH=\"$sandbox:$PATH\"";
16+ my $sandbox_abs = abs_path($sandbox);
17+ return "PATH=\"$sandbox_abs:$PATH\"";
1718 } else {
1819 return "";
1920 }