fly/flightgear
1
0
Fork 0
Code Activity

Mod's to better support win32 if perl exists.

Browse source
This commit is contained in:
curt 1998-03-09 22:52:38 +00:00
parent 850a746ed2
commit 14bb8f337c
1 changed files with 17 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
Simulator/runfg
View file

@ -30,18 +30,25 @@
# Flight Gear Version
$version_major = "0";
$path = "";
# name of Flight Gear executable
$program = "fg" . $version_major;
@programs = ( "fg" . $version_major, "fg" . $version_major . ".exe" );
# see if we can find the executable
if ( -x "./Main/$program" ) {
$path = "./Main/$program";
} elsif ( -x "./$program" ) {
$path = "./$program";
} else {
die "Cannot locate $program\n";
while ( $path eq "" && ($program = shift(@programs)) ) {
print "$program\n";
if ( -x "./Main/$program" ) {
$path = "./Main/$program";
} elsif ( -x "./$program" ) {
$path = "./$program";
}
}
die "Cannot locate program.\n" if ( $path eq "" );
# set the FG_ROOT environment variable if it hasn't already been set.
if ( $ENV{FG_ROOT} eq "" ) {
# look for a file called fgtop as a place marker
@ -59,6 +66,9 @@ exec("$path @ARGV");
#---------------------------------------------------------------------------
# $Log$
# Revision 1.4 1998/03/09 22:52:38 curt
# Mod's to better support win32 if perl exists.
#
# Revision 1.3 1998/02/16 16:17:34 curt
# Minor tweaks.
#