}
# Really run the test.
- $status = really_run_test ($test);
+ my ($status) = really_run_test ($test);
# Save the results for later.
open (DONE, ">output/$test/done") or die "output/$test/done: create: $!\n";
# If there's residue from an earlier test, move it to .old.
# If there's already a .old, delete it.
xsystem ("rm -rf output/$test.old", VERBOSE => 1) if -d "output/$test.old";
- rename "output/$test", "output/$test.old" or die "rename: $!\n";
+ rename "output/$test", "output/$test.old" or die "rename: $!\n"
+ if -d "output/$test";
# Make output directory.
mkdir "output/$test";
$A2L = "i386-elf-addr2line";
}
open (A2L, "$A2L -fe output/$test/kernel.o @addrs|");
- while (my $function = <A2L>) {
- my ($line) = <A2L>;
+ for (;;) {
+ my ($function, $line);
+ last unless $function = <A2L>;
+ $line = <A2L>;
chomp $function;
chomp $line;
$details .= " $function ($line)\n";