[Pkg-multidistrotools-commits] r13 - multidistrotools/trunk/scripts

[raphink-guest at alioth.debian.org]

Author: raphink-guest
Date: 2007-12-18 12:46:54 +0000 (Tue, 18 Dec 2007)
New Revision: 13

Modified:
   multidistrotools/trunk/scripts/compare-src-bin.pl
Log:

Fix typos



Modified: multidistrotools/trunk/scripts/compare-src-bin.pl
===================================================================
--- multidistrotools/trunk/scripts/compare-src-bin.pl	2007-12-18 12:35:07 UTC (rev 12)
+++ multidistrotools/trunk/scripts/compare-src-bin.pl	2007-12-18 12:46:54 UTC (rev 13)
@@ -1,12 +1,4 @@
 #!/usr/bin/perl
-#
-# compare-src-bin.bash - Raphael Pinson <raphink at gmail.com>
-# 
-# Given a distribution in mdt, this script compares the binaries that should be
-# produced by the sources with the ones really present in the repository
-# 
-# The result can be useful to detect binary only uploads or FTBFS packages
-#
 
 use strict;
 use warnings;
@@ -108,24 +100,24 @@
 # Build %src_bin hash
 foreach my $package ( keys(%src) ) {
    if ( $src{$package}{'Binary'} ) {
-      my @binries = split(", ", $src{$package}{'Binary'});
+      my @binaries = split(", ", $src{$package}{'Binary'});
       my $version  = $src{$package}{'Version'};
-      foreach my $binry (@binries) {
-	 if ( $src_bin{$binry} ) {
+      foreach my $binary (@binaries) {
+	 if ( $src_bin{$binary} ) {
 	    # TODO: replace if new version is newer (use dpkg --compare-version?)
-            warn "There is already a version for binry $binry. Not replacing.\n";
+            warn "There is already a version for binary $binary. Not replacing.\n";
 	 } else {
-	    $src_bin{$binry} = $version;
+	    $src_bin{$binary} = $version;
 	 }
       }
    } else {
-      warn "Source $package has no binries!\n";
+      warn "Source $package has no binaries!\n";
    }
 }
 
 
 
-# Read binries
+# Read binaries
 foreach my $bin_file (@bin_files) {
    my $parsed_file = parseFile("$listdir/$bin_file");
    foreach my $package ( keys(%{$parsed_file} ) ) {