Ignore:
Timestamp:
Apr 27, 2008, 1:18:10 AM (12 years ago)
Author:
Bruno Cornec
Message:
  • Reintegrates $pbproj as variable for filter functions (needed for PBPROJ expansion)
  • Fix pbinit using perl functions support
  • Adds a virtual pbinit action support in pb_env_init
File:
1 edited

Legend:

Unmodified
Added
Removed
  • devel/pb/lib/ProjectBuilder/Env.pm

    r416 r417  
    2020use ProjectBuilder::Base;
    2121use ProjectBuilder::Conf;
     22use ProjectBuilder::CMS;
    2223
    2324# Inherit from the "Exporter" module which handles exporting functions.
     
    174175#
    175176# Removes all directory existing below the delivery dir
    176 # as they are temp dir only
     177# as they are temp dir only except when called from pbinit
    177178# Files stay and have to be cleaned up manually if needed
    178179# those files serves as communication channels between pb phases
    179180# Removing them prevents a following phase to detect what has been done before
    180181#
    181 if (-d $ENV{'PBDESTDIR'}) {
     182if ((-d $ENV{'PBDESTDIR'}) && ($action !~ /pbinit/)) {
    182183    opendir(DIR,$ENV{'PBDESTDIR'}) || die "Unable to open directory $ENV{'PBDESTDIR'}: $!";
    183184    foreach my $d (readdir(DIR)) {
     
    210211# return values in that case are useless
    211212#
    212 if (($action =~ /^cms2/) || ($action =~ /^newver$/)) {
     213if (($action =~ /^cms2/) || ($action =~ /^newver$/) || ($action =~ /^pbinit$/)) {
    213214
    214215    #
Note: See TracChangeset for help on using the changeset viewer.