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: 24-Jul-2006 17:04:45
Branch: HEAD Handle: 2006072416044500
Modified files:
openpkg-tools/cmd index.pl
Log:
more cleanups and removal of one more FIXME
Summary:
Revision Changes Path
1.12 +7 -7 openpkg-tools/cmd/index.pl
____________________________________________________________________________
patch -p0 <<'@@ .'
Index: openpkg-tools/cmd/index.pl
============================================================================
$ cvs diff -u -r1.11 -r1.12 index.pl
--- openpkg-tools/cmd/index.pl 24 Jul 2006 15:03:14 -0000 1.11
+++ openpkg-tools/cmd/index.pl 24 Jul 2006 15:04:45 -0000 1.12
@@ -529,8 +529,8 @@
EOFEOF
}
-# FIXME: ??
-sub n($$) {
+# conditional expansion of attribute
+sub n ($$) {
my ($a, $k) = @_;
return if (not $a->{$k});
return if (not $a->{$k}->{''});
@@ -544,7 +544,7 @@
return "" if (not exists($a->{$k}));
$tag = $k if (not defined($tag));
$i = ' ' x $i;
- $out = e(n($a,$k));
+ $out = e(n($a, $k));
return if $out eq '';
return "$i<$tag>\n$out\n$i</$tag>\n";
}
@@ -623,9 +623,9 @@
my ($maj, $min, $rel, $about);
$about =
- n($a,'Name') . '-' .
- n($a,'Version') . '-' .
- n($a,'Release');
+ n($a, 'Name') . '-' .
+ n($a, 'Version') . '-' .
+ n($a, 'Release');
if (not defined($href)) {
# guess location from Information in Specfile
if (exists($a->{'NoSource'})) {
@@ -637,7 +637,7 @@
if (defined($min)) {
if ($maj > 1 || ($maj == 1 && $min > 0)) {
# OpenPKG-1.1-RELEASE or later
- if (n($a,'Distribution') =~ /\[PLUS\]/) {
+ if (n($a, 'Distribution') =~ /\[PLUS\]/) {
$href = 'PLUS/'.$href;
}
}
@@ .
______________________________________________________________________
The OpenPKG Project www.openpkg.org
CVS Repository Commit List [email protected]
