Merge pull request #2108 from Heather/sandbox_path
runtest.pl : fix error when there is no sandbox
commit3a43ccc4880c6438b7d86d8a9c1d806419f01332
authorEdwin Brady <edwin.brady@gmail.com>
dateTue 14 Apr 2015, 20:12 (12 years ago)
parente4c4942d2bcf5d
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 }