Commit 1d6c5823 authored by Leigh B Stoller's avatar Leigh B Stoller
Browse files

Look for existing @INC set, before use the installed testbed libs, as

for running from update-testbed.
parent 50574693
#!/usr/bin/perl -w
#
# GENIPUBLIC-COPYRIGHT
# Copyright (c) 2008-2010 University of Utah and the Flux Group.
# Copyright (c) 2008-2011 University of Utah and the Flux Group.
# All rights reserved.
#
use strict;
......@@ -53,8 +53,18 @@ sub OneShot();
#
$| = 1;
#
# Do not modify the include path if it was specified when invoked.
# This allows update to run from the build tree.
#
BEGIN
{
eval "require emutil";
if ($@) {
unshift(@INC, "@prefix@/lib");
}
}
# Load the Testbed support stuff.
use lib "@prefix@/lib";
use libtestbed;
use libdb qw(TBSetSiteVar TBSiteVarExists TBGetSiteVar);
use Experiment;
......
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