Subversion Repositories DevTools

Rev

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

Rev 5771 Rev 5873
Line 296... Line 296...
296 
                        push @debian_file_path, @files;
 296 
                        push @debian_file_path, @files;
297 
                        $package_dirs{$package_dir}{used} = 1;
 297 
                        $package_dirs{$package_dir}{used} = 1;
298 
                    }
 298 
                    }
299 
                }
 299 
                }
300 
            }
 300 
            }
- 
 
 301 
            foreach my $type ( @type )
- 
 
 302 
            {
- 
 
 303 
                foreach my $prd ( @products )
- 
 
 304 
                {
- 
 
 305 
                    my $dir = "$package_dir";
- 
 
 306 
                    Verbose("ManifestFiles: Search in $dir");
- 
 
 307 
                    next unless ( -d $dir );
- 
 
 308 
                    my @files = glob ( "$dir/${base_name}_*_${prd}_${type}.deb" );
- 
 
 309 
                    next unless ( @files );
- 
 
 310 
                    push @debian_file_path, @files;
- 
 
 311 
                    $package_dirs{$package_dir}{used} = 1;
- 
 
 312 
                }
- 
 
 313 
            }
301 
        }
 314 
        }
302 
 
 315 
 
303 
        ReportError ("Required Debian package not found: $base_name") unless @debian_file_path;
 316 
        ReportError ("Required Debian package not found: $base_name") unless @debian_file_path;
304 
        ReportError ("Multiple matching Debian Packages located: $base_name", @debian_file_path ) if ( $#debian_file_path > 0 );
 317 
        ReportError ("Multiple matching Debian Packages located: $base_name", @debian_file_path ) if ( $#debian_file_path > 0 );
305 
        return $debian_file_path[0];
 318 
        return $debian_file_path[0];