OpenPKG CVS Repository
  http://cvs.openpkg.org/
  ____________________________________________________________________________

  Server: cvs.openpkg.org                  Name:   Ralf S. Engelschall
  Root:   /v/openpkg/cvs                   Email:  [EMAIL PROTECTED]
  Module: openpkg-tools                    Date:   19-Jul-2006 19:19:46
  Branch: HEAD                             Handle: 2006071918194600

  Modified files:
    openpkg-tools/cmd       build.pl

  Log:
    more code cleanups and document what arguments can be specified

  Summary:
    Revision    Changes     Path
    1.26        +29 -6      openpkg-tools/cmd/build.pl
  ____________________________________________________________________________

  patch -p0 <<'@@ .'
  Index: openpkg-tools/cmd/build.pl
  ============================================================================
  $ cvs diff -u -r1.25 -r1.26 build.pl
  --- openpkg-tools/cmd/build.pl        19 Jul 2006 16:54:25 -0000      1.25
  +++ openpkg-tools/cmd/build.pl        19 Jul 2006 17:19:46 -0000      1.26
  @@ -1338,7 +1338,7 @@
           @todo = map {
               my ($p) = $_;
               my ($s, $iswildcard);
  -            $s = $1 if $p =~ s/(,[^\s,]+)$//;
  +            $s = $1 if ($p =~ s/(,[^\s,]+)$//);
               if ($p =~ s/\*+$//) {
                   $p = '^'.quotemeta($p).'';
                   $iswildcard = 1;
  @@ -1632,7 +1632,7 @@
   #   there can be multiple sources for a target release
   sub chose_source ($$$$$) {
       my ($env, $name, $select, $vmap, $cond) = @_;
  -    my (@targ,@recs,@nrecs,$rec,%nam);
  +    my (@targ, @recs, @nrecs, $rec, %nam);
   
       #   resolve name into a list of versions
       #   for virtual targets this resolves to a list
  @@ -1640,7 +1640,7 @@
       @targ = get_targets($vmap, sub { 1; });
       return unless @targ;
   
  -    #   find usuable binary targets add all source targets
  +    #   find usable binary targets add all source targets
       @recs = (
           ( grep {
                  !$env->{sourceonly}
  @@ -1654,8 +1654,8 @@
       );
       return if (not @recs);
   
  -    #   limit list to exact matches if provided by -e
  -    if (defined $select) {
  +    #   limit list to exact matches if provided by "-e"
  +    if (defined($select)) {
           @recs = grep {
               vsn($_) =~ /^\Q$select\E/
           } @recs;
  @@ -2180,7 +2180,7 @@
       #   chose sources for goals from repository
       foreach $name (@$todo) {
           $select = undef;
  -        $select = $1 if $name =~ s/,([^\s,]+)$//;
  +        $select = $1 if ($name =~ s/,([^\s,]+)$//);
           $t = undef;
   
           #   keeping installed packages for goals is ugly
  @@ -2815,6 +2815,29 @@
   
   =back
   
  +=head1 ARGUMENTS
  +
  +In case neither option B<-a> nor option B<-A> are specified,
  +the command line has to contain one or more package I<pattern>
  +arguments. Each I<pattern> can have the following forms:
  +
  +=over 4
  +
  +=item I<name>
  +
  +A regular package name.
  +
  +=item I<name>B<*>
  +
  +A package name wildcard pattern.
  +
  +=item I<name>B<,>I<name>[B<->I<version>[B<->I<release>]]
  +
  +A regular package name followed by a constraint
  +which particular package should be chosen.
  +
  +=back
  +
   =head1 CONFIGURATION
   
   B<openpkg build> reads the configuration file F<$HOME/.openpkg/build>.
  @@ .
______________________________________________________________________
The OpenPKG Project                                    www.openpkg.org
CVS Repository Commit List                     [email protected]

Reply via email to