github-repos/byte-unixbench
1
0
Fork 0
mirror of https://github.com/kdlucas/byte-unixbench.git synced 2024-12-11 23:30:07 +08:00
Code Issues Packages Projects Releases Wiki Activity

Merge pull request #38 from gstrauss/use-Perl-FindBin

Browse Source 
Run: employ $FindBin::Bin to find bin paths
This commit is contained in:
Kelly Lucas 2016-09-17 17:46:59 -07:00 committed by GitHub
commit e0b8c00209
1 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
UnixBench/Run
View File

@ -5,6 +5,7 @@ use strict;
use POSIX qw(strftime);
use Time::HiRes;
use IO::Handle;
use FindBin;
############################################################################
@ -83,21 +84,19 @@ my $cCompiler = 'gcc';
# Establish full paths to directories. These need to be full pathnames
# (or do they, any more?). They can be set in env.
# variables whose names are the first parameter to getDir() below.
my $BASEDIR = `pwd`;
chomp($BASEDIR);
# variable names are the first parameter to getDir() below.
# Directory where the test programs live.
my $BINDIR = getDir('UB_BINDIR', $BASEDIR . "/pgms");
my $BINDIR = getDir('UB_BINDIR', $FindBin::Bin . "/pgms");
# Temp directory, for temp files.
my $TMPDIR = getDir('UB_TMPDIR', $BASEDIR . "/tmp");
my $TMPDIR = getDir('UB_TMPDIR', $FindBin::Bin . "/tmp");
# Directory to put results in.
my $RESULTDIR = getDir('UB_RESULTDIR', $BASEDIR . "/results");
my $RESULTDIR = getDir('UB_RESULTDIR', $FindBin::Bin . "/results");
# Directory where the tests are executed.
my $TESTDIR = getDir('UB_TESTDIR', $BASEDIR . "/testdir");
my $TESTDIR = getDir('UB_TESTDIR', $FindBin::Bin . "/testdir");
############################################################################