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
                }