Changeset 2175 in ProjectBuilder
- Timestamp:
- Feb 1, 2017, 2:08:51 AM (7 years ago)
- Location:
- devel
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
devel/pb-modules/bin/pbdistrocheck
r2032 r2175 14 14 use lib qw (lib); 15 15 #use lib '/usr/share/perl5'; # mandatory for opensuse 16 use ProjectBuilder::Version; 16 17 use ProjectBuilder::Distribution; 17 18 use ProjectBuilder::Base; … … 108 109 my %opts; # CLI Options 109 110 111 my ($projectver,$projectrev) = pb_version_init(); 112 my $appname = "pbgetparam"; 113 114 # Initialize the syntax string 115 116 pb_syntax_init("$appname Version $projectver-$projectrev\n"); 117 110 118 GetOptions( 111 119 "verbose|v+" => \$opts{'v'}, 120 "version" => \$opts{'version'}, 121 "man" => \$opts{'man'}, 122 "help|h" => \$opts{'h'}, 112 123 "short|s" => \$opts{'s'}, 113 "help|h" => \$opts{'h'},114 124 "description|d" => \$opts{'d'}, 115 125 "id|i" => \$opts{'i'}, … … 119 129 "lsb|l" => \$opts{'l'}, 120 130 ); 131 if (defined $opts{'h'}) { 132 pb_syntax(0,1); 133 } 134 if (defined $opts{'version'}) { 135 pb_syntax(0,0); 136 } 137 if (defined $opts{'man'}) { 138 pb_syntax(0,2); 139 } 121 140 if (defined $opts{'v'}) { 122 141 $pbdebug = $opts{'v'}; -
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'}) { -
devel/pb/bin/pb
r2162 r2175 739 739 740 740 if (defined $opts{'h'}) { 741 pb_syntax(0, $opts{'h'}-1);741 pb_syntax(0,1); 742 742 } 743 743 if (defined $opts{'man'}) {
Note:
See TracChangeset
for help on using the changeset viewer.