Subversion Repositories DevTools

Rev

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

Rev 367 Rev 369
Line 907... Line 907...
907 
#   Note: JATS no longer allows these environment variables through to the
 907 
#   Note: JATS no longer allows these environment variables through to the
908 
#         makefiles.
 908 
#         makefiles.
909 
#
 909 
#
910 
unless ( $GBE_JATS_SANE || $GBE_UNIX )
 910 
unless ( $GBE_JATS_SANE || $GBE_UNIX )
911 
{
 911 
{
912 
    for my $var qw ( LIB INCLUDE )
 912 
    for my $var (qw ( LIB INCLUDE ))
913 
    {
 913 
    {
914 
        my $evar = $ENV{$var};
 914 
        my $evar = $ENV{$var};
915 
        if ( $evar )
 915 
        if ( $evar )
916 
        {
 916 
        {
917 
            $evar =~ s~\\;~;~g;         # Remove trailing \ from components \; -> ;
 917 
            $evar =~ s~\\;~;~g;         # Remove trailing \ from components \; -> ;
Line 1036... Line 1036...
1036 
{
 1036 
{
1037 
    my ($version) = @_;
 1037 
    my ($version) = @_;
1038 
    my $package;
 1038 
    my $package;
1039 
    my $path;
 1039 
    my $path;
1040 
 
 1040 
 
1041 
    foreach my $archive qw ( GBE_DPKG_LOCAL GBE_DPKG_CACHE GBE_DPKG GBE_DPKG_STORE )
 1041 
    foreach my $archive (qw ( GBE_DPKG_LOCAL GBE_DPKG_CACHE GBE_DPKG GBE_DPKG_STORE ))
1042 
    {
 1042 
    {
1043 
        no strict 'refs';
 1043 
        no strict 'refs';
1044 
        $path = ${$archive};
 1044 
        $path = ${$archive};
1045 
        use strict 'refs';
 1045 
        use strict 'refs';
1046 
        next unless ( $path );
 1046 
        next unless ( $path );
1047 
 
 1047 
 
1048 
        foreach my $package qw( jats core_devl )
 1048 
        foreach my $package (qw( jats core_devl ))
1049 
        {
 1049 
        {
1050 
            Verbose2( "ExamineDir: $path/$package/$version" );
 1050 
            Verbose2( "ExamineDir: $path/$package/$version" );
1051 
            if ( -d "$path/$package/$version" )
 1051 
            if ( -d "$path/$package/$version" )
1052 
            {
 1052 
            {
1053 
                return $path, "$package/$version";
 1053 
                return $path, "$package/$version";