From 14b6cc210c4713d892e9018c46a0f4c2bf480f02 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Andreas=20Kusalananda=20K=C3=A4h=C3=A4ri?=
<ak4@sanger.ac.uk>
Date: Mon, 14 Jul 2003 10:55:27 +0000
Subject: [PATCH] The timing of build.pl is now logged in the log files.
---
misc-scripts/binary_delta/planner.pl | 7 +++----
1 file changed, 3 insertions(+), 4 deletions(-)
diff --git a/misc-scripts/binary_delta/planner.pl b/misc-scripts/binary_delta/planner.pl
index f2a04d5c70..780b34c466 100755
--- a/misc-scripts/binary_delta/planner.pl
+++ b/misc-scripts/binary_delta/planner.pl
@@ -29,7 +29,7 @@ while (defined(my $line = <>)) {
$line =~ /^(.*)_([1-9][0-9]*_[0-9]*[a-z]?)$/;
if (!defined($1) || !defined($2) || $1 eq "" || $2 eq "") {
- printf STDERR "Problems: %s\n", $line;
+ printf STDERR "Problems: '%s'\n", $line;
die; # FIXME: Doesn't catch everything...
}
my $db = $1;
@@ -38,7 +38,6 @@ while (defined(my $line = <>)) {
push @{ $thing{$db} }, $v;
}
-my @work;
foreach my $db (keys %thing) {
foreach my $v (@{ $thing{$db} }) {
print <<EOT;
@@ -48,8 +47,8 @@ EOT
for (my $i = 0; $i < scalar @{ $thing{$db} } - 1; ++$i) {
print <<EOT;
-perl ./build.pl -c ./xdelta.osf -s databases -d deltas \\
- $db $thing{$db}[$i] $thing{$db}[$i + 1] | \\
+/usr/bin/time perl ./build.pl -c ./xdelta.osf -s databases -d deltas \\
+ $db $thing{$db}[$i] $thing{$db}[$i + 1] 2>&1 | \\
tee deltas/${db}_$thing{$db}[$i]_delta_$thing{$db}[$i + 1].txt
EOT
}
--
GitLab