Changeset 1558 in ProjectBuilder
- Timestamp:
- May 21, 2012, 3:56:09 AM (12 years ago)
- Location:
- devel
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
devel/pb-modules/lib/ProjectBuilder/Base.pm
r1528 r1558 435 435 436 436 This function checks that the commands needed for the subsystem are indeed present. 437 The required commands are passed as a com a separated string as first parameter.438 The optional commands are passed as a com a separated string as second parameter.437 The required commands are passed as a comma separated string as first parameter. 438 The optional commands are passed as a comma separated string as second parameter. 439 439 440 440 =cut … … 450 450 $opt2 = $opt->{$appname} if (defined $opt and defined $appname); 451 451 452 # cmds is a string of com a separated commands452 # cmds is a string of comma separated commands 453 453 if (defined $req2) { 454 454 foreach my $file (split(/,/,$req2)) { … … 457 457 } 458 458 459 # opts is a string of com a separated commands459 # opts is a string of comma separated commands 460 460 if (defined $opt2) { 461 461 foreach my $file (split(/,/,$opt2)) { -
devel/pb/bin/pb
r1557 r1558 17 17 # in their respective section 18 18 use Getopt::Long qw(:config auto_abbrev no_ignore_case); 19 use Carp 'cluck';19 use Carp qw/confess cluck/; 20 20 use Data::Dumper; 21 21 use English; … … 1090 1090 my $pm = new Parallel::ForkManager($pbparallel) if (defined $pbparallel); 1091 1091 $pm->run_on_finish(sub { my ($pid, $code, $id, $signal, $dump) = @_; 1092 $all_ok = 0 unless (($code == 0) && ($signal == 0) && ($dump == 0)); }) ;1092 $all_ok = 0 unless (($code == 0) && ($signal == 0) && ($dump == 0)); }) if (defined $pbparallel); 1093 1093 1094 1094 pb_log(0,"Preparing delivery ...\n"); … … 4317 4317 } 4318 4318 my $debsigncmd = pb_check_req("debsign",1); 4319 pb_system("$debsigncmd -m\'$ENV{'PBPACKAGER'}\' $changes","Signing DEB packages",undef,1) if ( $changes ne "");4319 pb_system("$debsigncmd -m\'$ENV{'PBPACKAGER'}\' $changes","Signing DEB packages",undef,1) if (($changes ne "") && (defined $debsigncmd)); 4320 4320 } else { 4321 4321 pb_log(0,"I don't know yet how to sign packages for type $pbos->{'type'}.\nPlease give feedback to dev team\n");
Note:
See TracChangeset
for help on using the changeset viewer.