Subversion Repositories DevTools

Rev

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

Rev 7437 Rev 7441
Line 808... Line 808...
808
    my ($fe) = @_;
808
    my ($fe) = @_;
809
 
809
 
810
    #
810
    #
811
    #   Determine the packages 'interface' directory
811
    #   Determine the packages 'interface' directory
812
    #
812
    #
813
    my $pSuffix = ($fe->{prj}) ? ( '.' . $fe->{prj}) : '';
-
 
814
    my $ifaceDir = catdir($GBE_SANDBOX, 'sandbox_dpkg_archive', $fe->{name}, 'sandbox' . $pSuffix . '.int');
813
    my $ifaceDir = catdir($GBE_SANDBOX, 'sandbox_dpkg_archive', $fe->{name}, 'sandbox' . ($opt_exact ? $fe->{version} : $fe->{prj}) . '.int');
815
    return unless -f $ifaceDir; 
814
    return unless -f $ifaceDir; 
816
    $ifaceDir = TagFileRead($ifaceDir);
815
    $ifaceDir = TagFileRead($ifaceDir);
817
    $ifaceDir =~ s~\\~/~g;
816
    $ifaceDir =~ s~\\~/~g;
818
    $ifaceDir =~ s~GBE_SANDBOX/~$GBE_SANDBOX/~;
817
    $ifaceDir =~ s~GBE_SANDBOX/~$GBE_SANDBOX/~;
819
    return $ifaceDir; 
818
    return $ifaceDir; 
Line 2595... Line 2594...
2595
# Returns         : Full path to the packages fingerprint tag file
2594
# Returns         : Full path to the packages fingerprint tag file
2596
#
2595
#
2597
sub getPkgFingerPrintFile
2596
sub getPkgFingerPrintFile
2598
{
2597
{
2599
    my ($fe) = @_;
2598
    my ($fe) = @_;
2600
    my $tagFile = catdir($GBE_SANDBOX, 'sandbox_dpkg_archive', $fe->{name}, 'sandbox.' . $fe->{prj} . '.ffp');
2599
    my $tagFile = catdir($GBE_SANDBOX, 'sandbox_dpkg_archive', $fe->{name}, 'sandbox.' . ($opt_exact ? $fe->{version} : $fe->{prj} )  . '.ffp');
2601
    return $tagFile;
2600
    return $tagFile;
2602
}
2601
}
2603
 
2602
 
2604
 
2603
 
2605
#-------------------------------------------------------------------------------
2604
#-------------------------------------------------------------------------------