X-Git-Url: https://git.sur5r.net/?a=blobdiff_plain;f=testcases%2Fcomplete-run.pl;h=7ca89016f6ea45443372cba02cd50ac6f9c93d22;hb=0e27ff3cd04d45cceff625d19bd028d360b1ed04;hp=560dd4c3de0bc21f6c4126b7f152ef4b424d89fb;hpb=fcdfab4d280cf469f339ce7168082658b9b76c8c;p=i3%2Fi3

diff --git a/testcases/complete-run.pl b/testcases/complete-run.pl
index 560dd4c3..7ca89016 100755
--- a/testcases/complete-run.pl
+++ b/testcases/complete-run.pl
@@ -108,7 +108,7 @@ $outdir .= POSIX::strftime("%Y-%m-%d-%H-%M-%S-", localtime());
 $outdir .= `git describe --tags`;
 chomp($outdir);
 mkdir($outdir) or die "Could not create $outdir";
-unlink("latest") if -e "latest";
+unlink("latest") if -l "latest";
 symlink("$outdir", "latest") or die "Could not symlink latest to $outdir";
 
 
@@ -143,7 +143,7 @@ my $timingsjson = StartXDummy::slurp('.last_run_timings.json');
 
 # Run 000-load-deps.t first to bail out early when dependencies are missing.
 my $loadtest = "t/000-load-deps.t";
-if ($loadtest ~~ @testfiles) {
+if ((scalar grep { $_ eq $loadtest } @testfiles) > 0) {
     @testfiles = ($loadtest, grep { $_ ne $loadtest } @testfiles);
 }