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
    #