Remove trailing whitespace

This commit is contained in:
Eelco Dolstra
2012-08-27 13:53:07 -04:00
parent 395718e927
commit bacc6ab790
2 changed files with 74 additions and 75 deletions
+5 -6
View File
@@ -67,7 +67,7 @@ sub closePackage {
my $pkgName = shift;
print STDERR ">>> $pkgName\n";
my $cdata = $packages{$pkgName};
if (!defined $cdata) {
die "unknown (virtual) package $pkgName"
unless defined $provides{$pkgName};
@@ -75,7 +75,7 @@ sub closePackage {
$pkgName = $provides{$pkgName};
$cdata = $packages{$pkgName};
}
die "unknown package $pkgName" unless defined $cdata;
return if defined $donePkgs{$pkgName};
$donePkgs{$pkgName} = 1;
@@ -85,9 +85,9 @@ sub closePackage {
$provides{$name} = $cdata->{Package};
}
}
my @depNames = ();
if (defined $cdata->{Depends}) {
print STDERR " $pkgName: $cdata->{Depends}\n";
my $deps = Dpkg::Deps::parse($cdata->{Depends});
@@ -141,7 +141,7 @@ foreach my $pkgName (@order) {
my $origName = basename $cdata->{Filename};
my $cleanedName = $origName;
$cleanedName =~ s/~//g;
print " (fetchurl {\n";
print " url = $urlPrefix/$cdata->{Filename};\n";
print " sha256 = \"$cdata->{SHA256}\";\n";
@@ -165,4 +165,3 @@ if ($newComponent != 1) {
print STDERR "argh: ", keys %forward, "\n";
exit 1;
}