Fix style of code in dpkg-gensymbols/dpkg-shlibdeps. Also fix changelogs.

ChangeLog

@@ -1,11 +1,16 @@
+2007-11-25  Raphael Hertzog  <hertzog@debian.org>
+
+	* scripts/Dpkg/Shlibs.pm (find_library): Canonicalize paths before
+	returning them as bad RPATH can lead to non-canonical paths
+	causing us troubles in dpkg-shlibdeps.
+	* scripts/dpkg-gensymbols.pl: Some formatting fixes.
+	* scripts/dpkg-shlibdeps.pl: Likewise.
+
 2007-11-24  Raphael Hertzog  <hertzog@debian.org>
 
 	* scripts/dpkg-gensymbols.pl: Add a new -I<file> option to force
 	the usage of a specific file as basis for the generated symbols
 	file.
-	* scripts/Dpkg/Shlibs.pm (find_library): Canonicalize paths before
-	returning them as bad RPATH can lead to non-canonical paths
-	causing us troubles in dpkg-shlibdeps.
 
 2007-11-24  Guillem Jover  <guillem@debian.org>
 

debian/changelog

@@ -1,6 +1,8 @@
 dpkg (1.14.12) UNRELEASED; urgency=low
 
-  [ Raphael Hertzog ]
+  [ Raphael Hertzog ]
+  * Add -I<file> option to dpkg-gensymbols to force the usage of a specific
+    symbols file.
   * Dpkg::Shlibs::find_library() now returns canonicalized paths.
 
  -- Guillem Jover <guillem@debian.org>  Sat, 24 Nov 2007 07:38:13 +0200

scripts/dpkg-gensymbols.pl

@@ -73,9 +73,9 @@ Options:
 
 my @files;
 while (@ARGV) {
-    $_=shift(@ARGV);
+    $_ = shift(@ARGV);
     if (m/^-p([-+0-9a-z.]+)$/) {
-	$oppackage= $1;
+	$oppackage = $1;
     } elsif (m/^-c(\d)?$/) {
 	$compare = defined($1) ? $1 : 1;
     } elsif (m/^-d$/) {
@@ -95,11 +95,11 @@ while (@ARGV) {
 	$packagebuilddir = $1;
 	$packagebuilddir =~ s{/+$}{};
     } elsif (m/^-O$/) {
-	$stdout= 1;
+	$stdout = 1;
     } elsif (m/^-I(.+)$/) {
 	$input = $1;
     } elsif (m/^-O(.+)$/) {
-	$output= $1;
+	$output = $1;
     } elsif (m/^-(h|-help)$/) {
 	&usage; exit(0);
     } elsif (m/^--version$/) {
@@ -116,7 +116,7 @@ if (not defined($sourceversion)) {
 if (not defined($oppackage)) {
     parsecontrolfile($controlfile);
     my @packages = grep(m/^C /, keys %p2i);
-    @packages==1 ||
+    @packages == 1 ||
 	error(_g("must specify package since control info has many (%s)"),
 	      "@packages");
     $oppackage = $packages[0];

scripts/dpkg-shlibdeps.pl

@@ -19,20 +19,20 @@ use Dpkg::Arch qw(get_host_arch);
 use Dpkg::Fields qw(capit);
 
 # By increasing importance
-my @depfields= qw(Suggests Recommends Depends Pre-Depends);
-my $i=0; my %depstrength = map { $_ => $i++ } @depfields;
+my @depfields = qw(Suggests Recommends Depends Pre-Depends);
+my $i = 0; my %depstrength = map { $_ => $i++ } @depfields;
 
 textdomain("dpkg-dev");
 
-my $shlibsoverride= '/etc/dpkg/shlibs.override';
-my $shlibsdefault= '/etc/dpkg/shlibs.default';
-my $shlibslocal= 'debian/shlibs.local';
-my $packagetype= 'deb';
-my $dependencyfield= 'Depends';
-my $varlistfile= 'debian/substvars';
-my $varnameprefix= 'shlibs';
-my $ignore_missing_info= 0;
-my $debug= 0;
+my $shlibsoverride = '/etc/dpkg/shlibs.override';
+my $shlibsdefault = '/etc/dpkg/shlibs.default';
+my $shlibslocal = 'debian/shlibs.local';
+my $packagetype = 'deb';
+my $dependencyfield = 'Depends';
+my $varlistfile = 'debian/substvars';
+my $varnameprefix = 'shlibs';
+my $ignore_missing_info = 0;
+my $debug = 0;
 my @exclude = ();
 my $host_arch = get_host_arch();
 
@@ -45,13 +45,13 @@ if (-d "debian") {
 my ($stdout, %exec);
 foreach (@ARGV) {
     if (m/^-T(.*)$/) {
-	$varlistfile= $1;
+	$varlistfile = $1;
     } elsif (m/^-p(\w[-:0-9A-Za-z]*)$/) {
-	$varnameprefix= $1;
+	$varnameprefix = $1;
     } elsif (m/^-L(.*)$/) {
-	$shlibslocal= $1;
+	$shlibslocal = $1;
     } elsif (m/^-O$/) {
-	$stdout= 1;
+	$stdout = 1;
     } elsif (m/^-(h|-help)$/) {
 	usage(); exit(0);
     } elsif (m/^--version$/) {
@@ -61,7 +61,7 @@ foreach (@ARGV) {
 	-d $admindir ||
 	    error(_g("administrative directory '%s' does not exist"), $admindir);
     } elsif (m/^-d(.*)$/) {
-	$dependencyfield= capit($1);
+	$dependencyfield = capit($1);
 	defined($depstrength{$dependencyfield}) ||
 	    warning(_g("unrecognised dependency field \`%s'"), $dependencyfield);
     } elsif (m/^-e(.*)$/) {