Subversion Repositories DevTools

Rev

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

Rev 6898 Rev 7009
Line 351... Line 351...
351 
unless ( $GBE_MACHTYPE )
 351 
unless ( $GBE_MACHTYPE )
352 
{
 352 
{
353 
    $GBE_MACHTYPE = 'win32' if ( $^O eq "cygwin" );
 353 
    $GBE_MACHTYPE = 'win32' if ( $^O eq "cygwin" );
354 
    $GBE_MACHTYPE = 'win32' if ( $^O eq "MSWin32" );
 354 
    $GBE_MACHTYPE = 'win32' if ( $^O eq "MSWin32" );
355 
    $GBE_MACHTYPE = 'win32' if ( $^O eq "win95" );
 355 
    $GBE_MACHTYPE = 'win32' if ( $^O eq "win95" );
- 
 
 356 
    $GBE_HOSTMACH = $GBE_MACHTYPE;
356 
    Verbose ("Setting GBE_MACHTYPE: $GBE_MACHTYPE") ;
 357 
    Verbose ("Setting GBE_MACHTYPE: $GBE_MACHTYPE") ;
357 
}
 358 
}
358 
 
 359 
 
359 
ReportError ('Set env-var GBE_MACHTYPE (typically "win32")') unless ( $GBE_MACHTYPE );
 360 
ReportError ('Set env-var GBE_MACHTYPE (typically "win32")') unless ( $GBE_MACHTYPE );
360 
ErrorDoExit();
 361 
ErrorDoExit();
361 
 
 362 
 
362 
if ( $GBE_MACHTYPE eq 'win32' )
 363 
if ( $GBE_HOSTMACH eq 'win32' )
363 
{
 364 
{
364 
    $PSPLIT = ';';
 365 
    $PSPLIT = ';';
365 
    $GBE_UNIX = 0;
 366 
    $GBE_UNIX = 0;
366 
}
 367 
}
367 
 
 368 
 
Line 372... Line 373...
372 
#   scripts from any other drive
 373 
#   scripts from any other drive
373 
#
 374 
#
374 
#   If GBE_CORE does not have a driver letter - then add one
 375 
#   If GBE_CORE does not have a driver letter - then add one
375 
#   Note: Use the CWD before any CD operations
 376 
#   Note: Use the CWD before any CD operations
376 
#
 377 
#
377 
if ( $GBE_MACHTYPE eq 'win32'  && $GBE_CORE !~ m/^\w\:/ )
 378 
if ( $GBE_HOSTMACH eq 'win32'  && $GBE_CORE !~ m/^\w\:/ )
378 
{
 379 
{
379 
        my $cwd = getcwd();
 380 
        my $cwd = getcwd();
380 
        $GBE_CORE = substr( $cwd, 0, 2 ) . '/' . $GBE_CORE;
 381 
        $GBE_CORE = substr( $cwd, 0, 2 ) . '/' . $GBE_CORE;
381 
        $GBE_CORE =~ s~//~/~g;
 382 
        $GBE_CORE =~ s~//~/~g;
382 
        Verbose2 ("Setting GBE_CORE drive: $GBE_CORE");
 383 
        Verbose2 ("Setting GBE_CORE drive: $GBE_CORE");
Line 429... Line 430...
429 
                    {
 430 
                    {
430 
                        local %ENV = %ENV;
 431 
                        local %ENV = %ENV;
431 
 
 432 
 
432 
                        $ENV{GBE_TOOLS} = "$GBE_CORE/TOOLS";
 433 
                        $ENV{GBE_TOOLS} = "$GBE_CORE/TOOLS";
433 
                        $ENV{PERL5LIB} = "$GBE_CORE/TOOLS/LIB" ;
 434 
                        $ENV{PERL5LIB} = "$GBE_CORE/TOOLS/LIB" ;
434 
                        $ENV{GBE_BIN}  = "$GBE_CORE/BIN.$GBE_MACHTYPE";
 435 
                        $ENV{GBE_BIN}  = "$GBE_CORE/BIN.$GBE_HOSTMACH";
435 
                        $ENV{GBE_VERBOSE}  = $GBE_VERBOSE;
 436 
                        $ENV{GBE_VERBOSE}  = $GBE_VERBOSE;
436 
 
 437 
 
437 
                        etool ( 'cache_dpkg.pl', $package );
 438 
                        etool ( 'cache_dpkg.pl', $package );
438 
                    }
 439 
                    }
439 
                }
 440 
                }