Subversion Repositories DevTools

Rev

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

Rev 5726 Rev 5744
Line 1698... Line 1698...
1698 
 
 1698 
 
1699 
    if ( $Cache && $::GBE_DPKG_CACHE )
 1699 
    if ( $Cache && $::GBE_DPKG_CACHE )
1700 
    {
 1700 
    {
1701 
        my $mode = ($Cache > 1) ? "-refresh" : "";
 1701 
        my $mode = ($Cache > 1) ? "-refresh" : "";
1702 
        Log( "LinkPkgArchive .. $name ($version) Update Cache" );
 1702 
        Log( "LinkPkgArchive .. $name ($version) Update Cache" );
1703 
        System('--NoExit', "$::GBE_PERL $::GBE_TOOLS/cache_dpkg.pl $mode -quiet $name/$version" );
 1703 
        System('--NoExit', "$::GBE_PERL $::GBE_TOOLS/cache_dpkg.pl $mode -wait -quiet $name/$version" );
1704 
    }
 1704 
    }
1705 
 
 1705 
 
1706 
    #
 1706 
    #
1707 
    #   Locate the package ONCE
 1707 
    #   Locate the package ONCE
1708 
    #
 1708 
    #
Line 2051... Line 2051...
2051 
 
 2051 
 
2052 
    if ( $Cache && $::GBE_DPKG_CACHE )
 2052 
    if ( $Cache && $::GBE_DPKG_CACHE )
2053 
    {
 2053 
    {
2054 
        my $mode = ($Cache > 1) ? "-refresh" : "";
 2054 
        my $mode = ($Cache > 1) ? "-refresh" : "";
2055 
        Log( "BuildPkgArchive . $name ($version) Update Cache" );
 2055 
        Log( "BuildPkgArchive . $name ($version) Update Cache" );
2056 
        System('--NoExit', "$::GBE_PERL $::GBE_TOOLS/cache_dpkg.pl $mode -quiet $name/$version" );
 2056 
        System('--NoExit', "$::GBE_PERL $::GBE_TOOLS/cache_dpkg.pl $mode -wait -quiet $name/$version" );
2057 
    }
 2057 
    }
2058 
 
 2058 
 
2059 
    #
 2059 
    #
2060 
    #   Locate the package
 2060 
    #   Locate the package
2061 
    #   Use the first instance of the package that it found
 2061 
    #   Use the first instance of the package that it found