Changeset 30 in ProjectBuilder for devel/pb/bin/pb.pl


Ignore:
Timestamp:
Aug 2, 2007, 12:39:27 AM (17 years ago)
Author:
Bruno Cornec
Message:

fix typos

File:
1 edited

Legend:

Unmodified
Added
Removed
  • devel/pb/bin/pb.pl

    r29 r30  
    119119        my $dir = $defpkgdir{$pbpkg};
    120120        $dir = $extpkgdir{$pbpkg} if (not defined $dir);
    121         pbsystem("$ENV{'PBCMSEXP'} $option $ENV{'PBROOT'}/$dir $dest 1>/dev/null", "Exporting $ENV{'PBROOT'}/$dir... ");
     121        pbsystem("$ENV{'PBCMSEXP'} $option $ENV{'PBROOT'}/$dir $dest 1>/dev/null", "Exporting $ENV{'PBROOT'}/$dir");
    122122
    123123        # Creates a REVISION file
     
    127127
    128128        # Extract cms log history and store it
    129         pbsystem("$ENV{'PBCMSLOG'} $option $ENV{'PBROOT'}/$dir > $dest/$ENV{'PBCMSLOGFILE'}", "Extracting log info... ");
     129        pbsystem("$ENV{'PBCMSLOG'} $option $ENV{'PBROOT'}/$dir > $dest/$ENV{'PBCMSLOGFILE'}", "Extracting log info");
    130130
    131131        my %build;
     
    249249        chdir "$ENV{'PBDESTDIR'}";
    250250        # Possibility to look at PBSRC to guess more the filename
    251         pbsystem("tar cfphz $pbpkg-$pbver.tar.gz $pbpkg-$pbver","Creating $pbpkg tar files (gzip... ");
     251        pbsystem("tar cfphz $pbpkg-$pbver.tar.gz $pbpkg-$pbver","Creating $pbpkg tar files compressed");
    252252        if ($? == -1) {
    253253            print $LOG "failed to execute: $!\n" if ($debug >= 0);
     
    310310            foreach my $f (@specfile) {
    311311                if ($f =~ /\.spec$/) {
    312                     pbsystem("rpmbuild -ba $f","Building package with $f... ");
     312                    pbsystem("rpmbuild -ba $f","Building package with $f");
    313313                    last;
    314314                }
     
    395395my @files;
    396396
    397 pbsystem("tar xfz $src $dir >/dev/null","Extracting build files... ");
     397pbsystem("tar xfz $src $dir >/dev/null","Extracting build files");
    398398opendir(DIR,"$dir") || die "Unable to open directory $dir";
    399399foreach my $f (readdir(DIR)) {
Note: See TracChangeset for help on using the changeset viewer.