Subversion Repositories DevTools

Rev

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

Rev 295 Rev 325
Line 114... Line 114...
114
 
114
 
115
my $result = GetOptions (
115
my $result = GetOptions (
116
                "help:+"        => \$opt_help,              # flag, multiple use allowed
116
                "help:+"        => \$opt_help,              # flag, multiple use allowed
117
                "manual:3"      => \$opt_help,              # flag, multiple use allowed
117
                "manual:3"      => \$opt_help,              # flag, multiple use allowed
118
                "verbose:+"     => \$opt_verbose,           # flag
118
                "verbose:+"     => \$opt_verbose,           # flag
119
                "sbomid=s"      => \$opt_sbom_id,           # string
119
                "sbom=s"        => \$opt_sbom_id,           # string
120
                "sbom_id=s"     => \$opt_sbom_id,           # string
-
 
121
                "rtagid=s"      => \$opt_rtag_id,           # string
120
                "rtag=s"        => \$opt_rtag_id,           # string
122
                "rtag_id=s"     => \$opt_rtag_id,           # string
-
 
123
                "rootpackage=s" => \$opt_rootpkg,           # String
121
                "rootpackage=s" => \$opt_rootpkg,           # String
124
                "ignore=s",     => sub{my ($a,$i) = @_; $ignore{$i} = 0 },
122
                "ignore=s",     => sub{my ($a,$i) = @_; $ignore{$i} = 0 },
125
                "test!"         => \$opt_test,              #[no]flag
123
                "test!"         => \$opt_test,              #[no]flag
126
                "patch!"        => \$opt_patch,             #[no]flag
124
                "patch!"        => \$opt_patch,             #[no]flag
127
                "extract=s"     => \$opt_extract,           # Name of file
125
                "extract=s"     => \$opt_extract,           # Name of file