#!/usr/bin/perl -w
#
# Module to compute PBROOT and put in the environment
#
# $Id$
#
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(set_toolhome);

use strict;
use File::Basename;

sub set_toolhome {

my $tmp = dirname($PROGRAM_NAME);
#print "$tmp\n";
if ($tmp =~ /^\//) {
        $ENV{'PBROOT'} = $tmp;
        }
else {
        $ENV{'PBROOT'} = "$ENV{PWD}/$tmp";
        }

die "PBROOT doesn't exist" if (not (defined $ENV{'PBROOT'}));
}
1;