1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
#!/usr/bin/perl -w
# $Id: //info.ravenbrook.com/project/mps/master/test/test/script/init#4 $
#
# harness_init is called from qa after loading everything in,
# but before calling the command
#

1;

sub harness_init {
 &platform_detect;
 &process_options;
 &set_dirs;
 &platform_settings;
 &identify;
 &platform_settings;
}