Commit b958376f authored by Kevin Atkinson's avatar Kevin Atkinson

Hopefully fix bug in die_noretry which causes an experment to incorretly
report an error as:
  Can't locate object method "tberror" via package "No image can be found
  for arms-bb-mysql on pc29!" at /usr/testbed/libexec/os_setup line 41.
  (os_setup)
parent e4b240e5
......@@ -31,17 +31,6 @@ sub usage()
}
my $optlist = "d";
#
# Used to die with a -1 return code, to indicate to caller (tbswap)
# that the failure is not likely to be fixed with another attempt.
#
sub die_noretry($)
{
my ($mesg) = shift;
tberror $mesg;
exit(-1);
}
#
# Configure variables
#
......@@ -104,6 +93,18 @@ delete @ENV{'IFS', 'CDPATH', 'ENV', 'BASH_ENV'};
$| = 1; #Turn off line buffering on output
#
# Used to die with a -1 return code, to indicate to caller (tbswap)
# that the failure is not likely to be fixed with another attempt.
#
sub die_noretry($)
{
my ($mesg) = shift;
tberror $mesg;
exit(-1);
}
#
# Parse command arguments. Once we return from getopts, all that should be
# left are the required arguments.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment