Author: rra
Date: 2008-06-05 02:52:02 +0200 (Thu, 05 Jun 2008)
New Revision: 1333
Modified:
trunk/checks/control-file
Log:
Fix formatting to make it consistent.
Modified: trunk/checks/control-file
===================================================================
--- trunk/checks/control-file 2008-06-05 00:47:48 UTC (rev 1332)
+++ trunk/checks/control-file 2008-06-05 00:52:02 UTC (rev 1333)
@@ -87,20 +87,20 @@
# another problem.
my @dep_fields = qw(pre-depends depends recommends suggests);
for my $control (@binary_controls) {
- for my $strong (0 .. ($#dep_fields - 1)) {
- next unless $control->{$dep_fields[$strong]};
- my $parsed = Dep::parse ($control->{$dep_fields[$strong]});
- tag "package-depends-on-itself", $control->{package},
$dep_fields[$strong]
- if Dep::implies($parsed, Dep::parse($control->{package}));
- for my $weak (($strong + 1) .. $#dep_fields) {
- next unless $control->{$dep_fields[$weak]};
- for my $dependency (split /\s*,\s*/,
$control->{$dep_fields[$weak]}) {
- next unless $dependency;
- tag "stronger-dependency-implies-weaker", $control->{package},
"$dep_fields[$strong] -> $dep_fields[$weak]", $dependency
- if Dep::implies($parsed, Dep::parse($dependency));
- }
- }
- }
+ for my $strong (0 .. ($#dep_fields - 1)) {
+ next unless $control->{$dep_fields[$strong]};
+ my $parsed = Dep::parse ($control->{$dep_fields[$strong]});
+ tag "package-depends-on-itself", $control->{package},
$dep_fields[$strong]
+ if Dep::implies($parsed, Dep::parse($control->{package}));
+ for my $weak (($strong + 1) .. $#dep_fields) {
+ next unless $control->{$dep_fields[$weak]};
+ for my $dependency (split /\s*,\s*/,
$control->{$dep_fields[$weak]}) {
+ next unless $dependency;
+ tag "stronger-dependency-implies-weaker",
$control->{package}, "$dep_fields[$strong] -> $dep_fields[$weak]", $dependency
+ if Dep::implies($parsed,
Dep::parse($dependency));
+ }
+ }
+ }
}
# Check that every package is in the same archive category, except that
@@ -139,4 +139,8 @@
1;
+# Local Variables:
+# indent-tabs-mode: t
+# cperl-indent-level: 8
+# End:
# vim: syntax=perl sw=4 ts=4 noet shiftround
--
To UNSUBSCRIBE, email to [EMAIL PROTECTED]
with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]
