Changeset 30


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

fix typos

Location:
devel/pb
Files:
2 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)) {
  • devel/pb/lib/common.pm

    r29 r30  
    132132
    133133my $cmd=shift;
    134 my $cmt=shift || $cmt=$cmd;
     134my $cmt=shift || $cmd;
    135135
    136 print $LOG "$cmt ...";
     136print $LOG "$cmt... ";
    137137system("$cmd");
    138138if ($? == -1) {
     
    141141    printf $LOG "child died with signal %d, %s coredump\n", ($? & 127),  ($? & 128) ? 'with' : 'without' if ($debug >= 0);
    142142} else {
    143     print $LOG " OK\n" if ($debug >= 0);
     143    print $LOG "OK\n" if ($debug >= 0);
     144}
    144145}
    1451461;
Note: See TracChangeset for help on using the changeset viewer.