Subversion Repositories DevTools

Rev

Rev 2651 | Rev 3965 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 2651 Rev 3527
Line 788... Line 788...
788 
    #
 788 
    #
789 
    unless ( $GBE_ABT )
 789 
    unless ( $GBE_ABT )
790 
    {
 790 
    {
791 
        ($GBE_DPKG_SBOX,$GBE_SANDBOX)  = scan_for_dir ('sandbox_dpkg_archive');
 791 
        ($GBE_DPKG_SBOX,$GBE_SANDBOX)  = scan_for_dir ('sandbox_dpkg_archive');
792 
    }
 792 
    }
- 
 
 793 
 
- 
 
 794 
    #
- 
 
 795 
    #   Support sandbox specific buildfilter
- 
 
 796 
    #   Remove comments(#) and empty lines
- 
 
 797 
    #
- 
 
 798 
    if ( $GBE_SANDBOX && -f $GBE_SANDBOX . '/buildfilter' )
- 
 
 799 
    {
- 
 
 800 
        if ( open (my $BF, $GBE_SANDBOX . '/buildfilter' ))
- 
 
 801 
        {
- 
 
 802 
            my @bf;
- 
 
 803 
            while ( <$BF> )
- 
 
 804 
            {
- 
 
 805 
                s~\s$~~;
- 
 
 806 
                s~^\s~~;
- 
 
 807 
                next unless ( $_ );
- 
 
 808 
                next if ( m~^#~ );
- 
 
 809 
                push @bf,$_;
- 
 
 810 
            }
- 
 
 811 
            close $BF;
- 
 
 812 
            if ( @bf )
- 
 
 813 
            {
- 
 
 814 
                $GBE_BUILDFILTER = join (' ', split( /[,\s]+/, join(',', @bf)));
- 
 
 815 
                Verbose ("Local BuildFilter: $GBE_BUILDFILTER");
- 
 
 816 
            }
- 
 
 817 
        }
- 
 
 818 
    }
- 
 
 819
793 
}
 820 
}
794 
 
 821 
 
795 
########################################################################
 822 
########################################################################
796 
#
 823 
#
797 
#   Ensure that the user has been set
 824 
#   Ensure that the user has been set