Subversion Repositories DevTools

Rev

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

Rev 1578 Rev 1580
Line 3102... Line 3102...
3102 
 
 3102 
 
3103 
 
 3103 
 
3104 
    #
 3104 
    #
3105 
    #   Process each file
 3105 
    #   Process each file
3106 
    #
 3106 
    #
- 
 
 3107 
    my ($ExcludedFlag) = "false";
3107 
    foreach my $sfile ( @flist )
 3108 
    foreach my $sfile ( @flist )
3108 
    {
 3109 
    {
3109 
 
 3110 
 
3110 
        # we exclude .dll files if this is a sparc build
 3111 
        # we exclude .dll files if this is a sparc build
3111 
        #
 3112 
        #
3112 
        if ( "$MachType" eq "sparc"  &&
 3113 
        if ( "$MachType" eq "sparc"  &&
3113 
             $sfile =~ m/\.dll/
 3114 
             $sfile =~ m/\.dll/
3114 
           )
 3115 
           )
3115 
        {
 3116 
        {
3116 
            Verbose("Excluding item [$sfile] from build, as we do not deliver dlls for this machine type [$MachType].");
 3117 
            Verbose("Excluding item [$sfile] from build, as we do not deliver dlls for this machine type [$MachType].");
- 
 
 3118 
            $ExcludedFlag = "true";
3117 
            return 1;
 3119 
            next;
3118 
        }
 3120 
        }
3119 
 
 3121 
 
3120 
        # we exclude .so files if this is a win32 build
 3122 
        # we exclude .so files if this is a win32 build
3121 
        #
 3123 
        #
3122 
        if ( "$MachType" eq "win32"  &&
 3124 
        if ( "$MachType" eq "win32"  &&
3123 
             $sfile =~ m/\.so/
 3125 
             $sfile =~ m/\.so/
3124 
           )
 3126 
           )
3125 
        {
 3127 
        {
3126 
            Verbose("Excluding item [$sfile] from build, as we do not deliver sosss for this machine type [$MachType].");
 3128 
            Verbose("Excluding item [$sfile] from build, as we do not deliver sosss for this machine type [$MachType].");
- 
 
 3129 
            $ExcludedFlag = "true";
3127 
            return 1;
 3130 
            next;
3128 
        }
 3131 
        }
3129 
 
 3132 
 
3130 
        my ($libName) = $sfile;
 3133 
        my ($libName) = $sfile;
3131 
        if ( "$MachType" eq "sparc" )
 3134 
        if ( "$MachType" eq "sparc" )
3132 
        {
 3135 
        {
Line 3140... Line 3143...
3140 
 
 3143 
 
3141 
        my ($i);
 3144 
        my ($i);
3142 
        my ($j);
 3145 
        my ($j);
3143 
        my ($count);
 3146 
        my ($count);
3144 
        my ($foundFileFlag) = "false";
 3147 
        my ($foundFileFlag) = "false";
3145 
        my ($ExcludedFlag) = "false";
 - 
 
3146 
 
 3148 
 
3147 
        #
 3149 
        #
3148 
        #   Search all the 'lib' locations, or a specified subset
 3150 
        #   Search all the 'lib' locations, or a specified subset
3149 
        #
 3151 
        #
3150 
        my (@libDirList) = @{$DpkgLibDirList{$select}};
 3152 
        my (@libDirList) = @{$DpkgLibDirList{$select}};