[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
bench: store in benches/012 rather than in benches/12
From: |
Akim Demaille |
Subject: |
bench: store in benches/012 rather than in benches/12 |
Date: |
Sat, 25 Apr 2020 11:38:33 +0200 |
commit 3ab12c1036812ef855385c947598284241f746b1
Author: Akim Demaille <address@hidden>
Date: Sat Apr 25 11:34:06 2020 +0200
bench: store in benches/012 rather than in benches/12
* etc/bench.pl.in ($basedir): New.
Format $count with a least three digits.
diff --git a/etc/bench.pl.in b/etc/bench.pl.in
index 1498dd6f..96299939 100755
--- a/etc/bench.pl.in
+++ b/etc/bench.pl.in
@@ -1163,19 +1163,26 @@ sub getopt ()
getopt;
+my $basedir = 'benches';
+
# Create the directory we work in.
-mkdir "benches" or die "cannot create benches"
- unless -d "benches";
-my $count = 1;
-++$count
- while -d "benches/$count";
-my $dir = "benches/$count";
+mkdir $basedir or die "cannot create directory $basedir"
+ unless -d $basedir;
+
+my $count = 0;
+my $dir;
+while (!$dir || -d $dir)
+{
+ ++$count;
+ $dir = sprintf "%s/%03d", $basedir, $count;
+}
mkdir $dir
- or die "cannot create $dir";
-unlink "benches/latest"
- or die "cannot unlink benches/latest"
- if -l "benches/latest";
-symlink $count, "benches/latest"
+ or die "cannot create directory $dir";
+
+unlink "$basedir/latest"
+ or die "cannot unlink $basedir/latest"
+ if -l "$basedir/latest";
+symlink sprintf("%03d", $count), "$basedir/latest"
or die "cannot create symlink";
chdir $dir
or die "cannot chdir $dir";
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- bench: store in benches/012 rather than in benches/12,
Akim Demaille <=