Subversion Repositories DevTools

Rev

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

Rev 2426 Rev 2489
Line 1190... Line 1190...
1190 
        {
 1190 
        {
1191 
            Verbose("importTagChanges: $srcFile");
 1191 
            Verbose("importTagChanges: $srcFile");
1192 
            my $sfile = $svnSession->FullPath() . '/' . $srcFile;
 1192 
            my $sfile = $svnSession->FullPath() . '/' . $srcFile;
1193 
 
 1193 
 
1194 
            #
 1194 
            #
1195 
            #   Calculate path with the repo of the target file
 1195 
            #   Calculate path within the repo of the target file
1196 
            #
 1196 
            #
1197 
            $srcFile =~ m~tags/.*?(/.*)@\d+~;
 1197 
            unless($srcFile =~ m~tags/.*?(/.*)@\d+~)
- 
 
 1198 
            {
- 
 
 1199 
                #
- 
 
 1200 
                #   Only seen this error under a condition where the user
- 
 
 1201 
                #   tagged a parent directory. ie:
- 
 
 1202 
                #       aaa/bbbb/tags/badTag was a copy of aaa
- 
 
 1203 
                #
- 
 
 1204 
                Error ("importTagChanges. Unexpected format of filename: $srcFile",
- 
 
 1205 
                       "Possible cause: Incorrect tag placement");
- 
 
 1206 
            }
1198 
            my $tfile = $workSpace . $1;
 1207 
            my $tfile = $workSpace . $1;
1199 
 
 1208 
 
1200 
            if ( $opt_branch )
 1209 
            if ( $opt_branch )
1201 
            {
 1210 
            {
1202 
                $svnSession->SvnSwitch ($sfile, $tfile);
 1211 
                $svnSession->SvnSwitch ($sfile, $tfile);