Subversion Repositories DevTools

Rev

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

Rev 5405 Rev 6098
Line 435... Line 435...
435 
                    next;
 435 
                    next;
436 
                }
 436 
                }
437 
                $pkgLink->{$pname}{$pver} = $lver;
 437 
                $pkgLink->{$pname}{$pver} = $lver;
438 
                $pdata = $pver;
 438 
                $pdata = $pver;
439 
                $pver = $lver;
 439 
                $pver = $lver;
- 
 
 440 
 
- 
 
 441 
                # Delete all instances of this package so that the symlink can be replicated correctly
- 
 
 442 
                delete $pkgList->{$pname};
440 
            }
 443 
            }
441 
 
 444 
 
442 
            $logger->verbose2("Add extra package: $pname, $pver, $pdata");
 445 
            $logger->verbose2("Add extra package: $pname, $pver, $pdata");
443 
            $pkgList->{$pname}{$pver} = $pdata;
 446 
            $pkgList->{$pname}{$pver} = $pdata;
444 
        }
 447 
        }
Line 1150... Line 1153...
1150 
            if ( $tag =~ m~(.+)::(.+)~  )
 1153 
            if ( $tag =~ m~(.+)::(.+)~  )
1151 
            {
 1154 
            {
1152 
                my $package = $1;
 1155 
                my $package = $1;
1153 
                my $version = $2;
 1156 
                my $version = $2;
1154 
                $tagCount++;
 1157 
                $tagCount++;
- 
 
 1158 
 
- 
 
 1159 
                #
- 
 
 1160 
                #   Don't transfer 'extra' packages
- 
 
 1161 
                #
- 
 
 1162 
                if (exists ($extraPkgs->{$package}) )
- 
 
 1163 
                {
- 
 
 1164 
                    $logger->warn ("Delete excess package tag: $tag");
- 
 
 1165 
                    unlink $file;
- 
 
 1166 
                }
1155 
                if ( transferPackage( $package, $version ))
 1167 
                elsif ( transferPackage( $package, $version ))
1156 
                {
 1168 
                {
1157 
                    unlink $file;
 1169 
                    unlink $file;
1158 
                }
 1170 
                }
1159 
                else
 1171 
                else
1160 
                {
 1172 
                {