Subversion Repositories DevTools

Rev

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

Rev 4542 Rev 4646
Line 720... Line 720...
720 
 
 720 
 
721 
                while ( my $pkgVersion = readdir(PV) )
 721 
                while ( my $pkgVersion = readdir(PV) )
722 
                {
 722 
                {
723 
                    next if ( $pkgVersion eq '.' );
 723 
                    next if ( $pkgVersion eq '.' );
724 
                    next if ( $pkgVersion eq '..' );
 724 
                    next if ( $pkgVersion eq '..' );
- 
 
 725 
                    next if ( $pkgVersion eq 'latest' );            # Keep latest (often symlink for build system)
- 
 
 726 
 
725 
                    my $pkgPath = join('/', $config{dpkg_archive}, $pkgName,$pkgVersion );
 727 
                    my $pkgPath = join('/', $config{dpkg_archive}, $pkgName,$pkgVersion );
726 
                    my $mtime = checkTime($pkgPath);
 728 
                    my $mtime = checkTime($pkgPath);
727 
 
 729 
 
728 
                    my $pvid;
 730 
                    my $pvid;
729 
                    if ( exists ($pkgPvid{$pkgName}) && exists($pkgPvid{$pkgName}{$pkgVersion} ) )
 731 
                    if ( exists ($pkgPvid{$pkgName}) && exists($pkgPvid{$pkgName}{$pkgVersion} ) )