Subversion Repositories DevTools

Rev

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

Rev 2652 Rev 3041
Line 215... Line 215...
215
    Error ("Need a Subversion Reference or URL. -help for options") unless $opt_delete;
215
    Error ("Need a Subversion Reference or URL. -help for options") unless $opt_delete;
216
}
216
}
217
 
217
 
218
#
218
#
219
#   Set up branching values
219
#   Set up branching values
220
#       mkbranck    - Create if not exists. Error if it exists
220
#       mkbranch    - Create if not exists. Error if it exists
221
#       branch      - Error if not exists
221
#       branch      - Error if not exists
222
#
222
#
223
if ( $opt_mkbranch ) {
223
if ( $opt_mkbranch ) {
224
    $opt_branch = $opt_mkbranch;
224
    $opt_branch = $opt_mkbranch;
225
    $opt_mkbranch = 1;
225
    $opt_mkbranch = 1;
Line 632... Line 632...
632
                        'require' =>   (! $opt_mkbranch),
632
                        'require' =>   (! $opt_mkbranch),
633
                        'available' => (  $opt_mkbranch),
633
                        'available' => (  $opt_mkbranch),
634
                        );
634
                        );
635
 
635
 
636
        #
636
        #
637
        #   If using an existing branch, then set up the name
637
        #   If using an existing branch, then:
638
        #   of the source.
638
        #       Set up the name of the source
-
 
639
        #       Do NOT import tag changes - we will be extracting the HEAD of the branch
639
        #
640
        #
640
        $view_tag = $branch if ( ! $opt_mkbranch );
641
        if ( ! $opt_mkbranch )
-
 
642
        {
-
 
643
            $view_tag = $branch;
-
 
644
            $update_tagsChanges = 0;
-
 
645
        }
641
    }
646
    }
642
 
647
 
643
    #
648
    #
644
    #   Perform delayed delete of any existign view
649
    #   Perform delayed delete of any existign view
645
    #   The process has been delayed as much as possible - incase other tests
650
    #   The process has been delayed as much as possible - in case other tests fail
646
    #   fail
-
 
647
    #
651
    #
648
    delete_view();
652
    delete_view();
649
 
653
 
650
    #
654
    #
651
    #   Create the workspace
655
    #   Create the workspace
Line 1221... Line 1225...
1221
                Error ("importTagChanges. Unexpected format of filename: $srcFile",
1225
                Error ("importTagChanges. Unexpected format of filename: $srcFile",
1222
                       "Possible cause: Incorrect tag placement");
1226
                       "Possible cause: Incorrect tag placement");
1223
            }
1227
            }
1224
            my $tfile = $workSpace . $1;
1228
            my $tfile = $workSpace . $1;
1225
 
1229
 
1226
            if ( $opt_branch )
1230
            if ( $opt_mkbranch )
1227
            {
1231
            {
1228
                $svnSession->SvnSwitch ($sfile, $tfile);
1232
                $svnSession->SvnSwitch ($sfile, $tfile);
1229
            }
1233
            }
1230
            else
1234
            else
1231
            {
1235
            {