Properly check and report lock file existence in install-info.

Based on patch by Ben Pfaff. Closes: #368874

ChangeLog

@@ -1,3 +1,7 @@
+2006-05-25  Ben Pfaff  <blp@cs.stanford.edu>
+
+	* scripts/install-info.pl: Use %! instead if $! to check for EEXIST.
+
 2006-05-23  Guillem Jover  <guillem@debian.org>
 
 	* scripts/controllib.pl (parsechangelog): Do not strip the epoch from

debian/changelog

@@ -62,6 +62,8 @@ dpkg (1.13.20~) UNRELEASED; urgency=low
     for most of the scripts. Print the usage and version to stdout.
   * Do not strip the epoch from the source:Upstream-Version substvar.
     Closes: #366351
+  * Properly check and report lock file existence in install-info.
+    Based on patch by Ben Pfaff. Closes: #368874
 
   [ Updated dpkg Translations ]
   * Portuguese (Miguel Figueiredo).

scripts/install-info.pl

@@ -306,7 +306,7 @@ if (!$nowrite && !link($dirfile, "$dirfile.lock")) {
     printf( STDERR _g("%s: failed to lock dir for editing! %s")."\n",
 	    $name, $! );
     printf( STDERR _g("try deleting %s?")."\n", "$dirfile.lock")
-	if $! == EEXIST;
+	if $!{EEXIST};
 }
 
 open(OLD,$dirfile) || &ulquit(sprintf(_g("open %s: %s"), $dirfile, $!));