Changeset 2175 in ProjectBuilder for devel/pb-modules/bin/pbgetparam
- Timestamp:
- Feb 1, 2017, 2:08:51 AM (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
devel/pb-modules/bin/pbgetparam
r2153 r2175 13 13 use lib qw (lib); 14 14 #use lib '/usr/share/perl5'; # mandatory for opensuse 15 use ProjectBuilder::Version; 15 16 use ProjectBuilder::Base; 16 17 use ProjectBuilder::Env; … … 89 90 my %opts; # CLI Options 90 91 92 my ($projectver,$projectrev) = pb_version_init(); 93 my $appname = "pbgetparam"; 94 95 # Initialize the syntax string 96 97 pb_syntax_init("$appname Version $projectver-$projectrev\n"); 98 91 99 GetOptions( 92 100 "verbose|v+" => \$opts{'v'}, 101 "version" => \$opts{'version'}, 102 "man" => \$opts{'man'}, 93 103 "help|h" => \$opts{'h'}, 94 104 "all|a" => \$opts{'a'}, … … 97 107 ); 98 108 if (defined $opts{'h'}) { 99 pb_syntax(0,$opts{'h'}-1); 109 pb_syntax(0,1); 110 } 111 if (defined $opts{'version'}) { 112 pb_syntax(0,0); 100 113 } 101 114 if (defined $opts{'man'}) {
Note:
See TracChangeset
for help on using the changeset viewer.