Subversion Repositories DevTools

Rev

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

Rev 1360 Rev 1429
Line 1211... Line 1211...
1211 
    {
 1211 
    {
1212 
        foreach my $srcFile ( reverse @{$data->{files}} )
 1212 
        foreach my $srcFile ( reverse @{$data->{files}} )
1213 
        {
 1213 
        {
1214 
            Verbose("importTagChanges: $srcFile");
 1214 
            Verbose("importTagChanges: $srcFile");
1215 
            my $sfile = $svnSession->FullPath() . '/' . $srcFile;
 1215 
            my $sfile = $svnSession->FullPath() . '/' . $srcFile;
- 
 
 1216 
 
- 
 
 1217 
            #
- 
 
 1218 
            #   Calculate path with the repo of the target file
- 
 
 1219 
            #
- 
 
 1220 
            $srcFile =~ m~tags/.*?(/.*)@\d+~;
- 
 
 1221 
            my $tfile = $workSpace . $1;
- 
 
 1222 
 
1216 
            if ( $opt_branch )
 1223 
            if ( $opt_branch )
1217 
            {
 1224 
            {
1218 
                $srcFile =~ m~tags/.*?(/.*)@\d+~;
 - 
 
1219 
                my $tfile = $1;
 - 
 
1220 
                $svnSession->SvnSwitch ($sfile, $workSpace . $tfile);
 1225 
                $svnSession->SvnSwitch ($sfile, $tfile);
1221 
            }
 1226 
            }
1222 
            else
 1227 
            else
1223 
            {
 1228 
            {
1224 
                $svnSession->SvnCo ($sfile, $workSpace,
 1229 
                $svnSession->SvnCo ($sfile, $tfile,
1225 
                                        'export' => 1,
 1230 
                                        'export' => 1,
1226 
                                        'force' => 1,
 1231 
                                        'force' => 1,
1227 
                                        'pretext' => 'Replacing ' );
 1232 
                                        'pretext' => 'Replacing ' );
1228 
            }
 1233 
            }
1229 
        }
 1234 
        }