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";