Subversion Repositories DevTools

Rev

Rev 261 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 261 Rev 263
Line 34... Line 34...
34 
################################################################################
 34 
################################################################################
35 
#   Option variables
 35 
#   Option variables
36 
#
 36 
#
37 
 
 37 
 
38 
my $VERSION = "2.0.0";                      # Update this
 38 
my $VERSION = "2.0.0";                      # Update this
- 
 
 39 
my $opt_debug   = $ENV{'GBE_DEBUG'};        # Allow global debug
39 
my $opt_verbose = 0;
 40 
my $opt_verbose = $ENV{'GBE_VERBOSE'};      # Allow global verbose
40 
my $opt_infile  = "auto.pl";
 41 
my $opt_infile  = "auto.pl";
41 
my $opt_ofile = "build.pl";
 42 
my $opt_ofile = "build.pl";
42 
my $opt_help = 0;
 43 
my $opt_help = 0;
43 
my $opt_label;
 44 
my $opt_label;
44 
my $opt_branch_default = "AutoBuilder";
 45 
my $opt_branch_default = "AutoBuilder";
Line 514... Line 515...
514 
    #
 515 
    #
515 
    #   Determine the desired label for the package
 516 
    #   Determine the desired label for the package
516 
    #   This is a function of the package name and the package version
 517 
    #   This is a function of the package name and the package version
517 
    #   The two are joined with a '.'
 518 
    #   The two are joined with a '.'
518 
    #
 519 
    #
519 
    $tag_label = $opt_pname . '.' . $opt_pversion;
 520 
    $tag_label = $opt_pname . '_' . $opt_pversion;
520 
 
 521 
 
521 
    #
 522 
    #
522 
    #   Ensure that desired label is "free", if not then hunt for a new one
 523 
    #   Ensure that desired label is "free", if not then hunt for a new one
523 
    #   Determine the name of a 'new' label
 524 
    #   Determine the name of a 'new' label
524 
    #
 525 
    #