OpenPKG CVS Repository
http://cvs.openpkg.org/
____________________________________________________________________________
Server: cvs.openpkg.org Name: Michael van Elst
Root: /e/openpkg/cvs Email: [EMAIL PROTECTED]
Module: openpkg-re Date: 21-Nov-2002 11:24:18
Branch: HEAD Handle: 2002112110241800
Modified files:
openpkg-re openpkg-build
Log:
-Z option is like -z but ignores installed packages. This can be
used to create bootstrap scripts.
Summary:
Revision Changes Path
1.43 +5 -5 openpkg-re/openpkg-build
____________________________________________________________________________
Index: openpkg-re/openpkg-build
============================================================
$ cvs diff -u -r1.42 -r1.43 openpkg-build
--- openpkg-re/openpkg-build 21 Nov 2002 10:19:22 -0000 1.42
+++ openpkg-re/openpkg-build 21 Nov 2002 10:24:18 -0000 1.43
@@ -30,7 +30,7 @@
$|=1; # autoflush
use strict;
-use vars qw/$opt_R $opt_r $opt_f $opt_u $opt_U $opt_a $opt_A $opt_z $opt_P $opt_N
$opt_E $opt_i $opt_D/;
+use vars qw/$opt_R $opt_r $opt_f $opt_u $opt_U $opt_a $opt_A $opt_z $opt_Z $opt_P
$opt_N $opt_E $opt_i $opt_D/;
##########################################################################
@@ -101,8 +101,8 @@
close(FH);
}
-getopts('R:r:f:uUaAzP:N:E:iD:');
-die "usage: $0 [-R rpm] [-r repository] [-f index.rdf] [-uUzEi] [-P priv-cmd] [-N
non-priv-cmd] [-Dwith ...] [-Ename ...] ( [-aA] | patternlist )\n"
+getopts('R:r:f:uUaAzZP:N:E:iD:');
+die "usage: $0 [-R rpm] [-r repository] [-f index.rdf] [-uUzZEi] [-P priv-cmd] [-N
non-priv-cmd] [-Dwith ...] [-Ename ...] ( [-aA] | patternlist )\n"
unless $#ARGV >= 0 || ($#ARGV == -1 && ($opt_a || $opt_A));
##########################################################################
@@ -1116,7 +1116,7 @@
$url = get_release();
}
-$installed = get_installed();
+$installed = $opt_Z ? {} : get_installed();
$repository = get_index($url,$opt_f,\%with);
($list,$bonly) = build_list($pattern, {
@@ -1127,7 +1127,7 @@
with => \%with,
exclude => \%exclude,
upgrade => ($opt_a || $opt_U),
- zero => $opt_z
+ zero => ($opt_z || $opt_Z)
});
die "FATAL: cannot find package\n" unless defined $list;
______________________________________________________________________
The OpenPKG Project www.openpkg.org
CVS Repository Commit List [EMAIL PROTECTED]
