Changeset 5 in ProjectBuilder for devel/pb/lib/toolhome.pm


Ignore:
Timestamp:
Jul 29, 2007, 12:50:34 AM (17 years ago)
Author:
Bruno Cornec
Message:

Lots of modifs to find the right way. Probably still not good

File:
1 edited

Legend:

Unmodified
Added
Removed

  • devel/pb/lib/toolhome.pm

    r2 r5  
    11#!/usr/bin/perl -w
    22#
    3 # Module to compute TOOLHOME and put in the environment
     3# Module to compute PBROOT and put in the environment
    44#
    55# $Id$
    … …  
    1717#print "$tmp\n";
    1818if ($tmp =~ /^\//) {
    19         $ENV{'TOOLHOME'} = $tmp;
     19        $ENV{'PBROOT'} = $tmp;
    2020        }
    2121else {
    22         $ENV{'TOOLHOME'} = "$ENV{PWD}/$tmp";
     22        $ENV{'PBROOT'} = "$ENV{PWD}/$tmp";
    2323        }
    2424
    25 die "TOOLHOME doesn't exist" if (not (defined $ENV{'TOOLHOME'}));
     25die "PBROOT doesn't exist" if (not (defined $ENV{'PBROOT'}));
    2626}
    27271;
Note: See TracChangeset for help on using the changeset viewer.