INN commit: trunk (control/signcontrol.in frontends/cnfsheadconf.in)

[INN Commit]

    Date: Monday, May 5, 2008 @ 09:20:04
  Author: iulius
Revision: 7818

Fix a Perl warning in signcontrol.
Remove warnings for cnfsheadconf because there is one in a Perl module:

    Use of uninitialized value in addition (+) at /usr/share/perl/5.8/bigint.pl line 220, <STOR> line 48.

Modified:
  trunk/control/signcontrol.in
  trunk/frontends/cnfsheadconf.in

---------------------------+
 control/signcontrol.in    |   16 ++++++++--------
 frontends/cnfsheadconf.in |    2 +-
 2 files changed, 9 insertions(+), 9 deletions(-)

Modified: control/signcontrol.in
===================================================================
--- control/signcontrol.in	2008-05-05 10:17:36 UTC (rev 7817)
+++ control/signcontrol.in	2008-05-05 16:20:04 UTC (rev 7818)
@@ -45,12 +45,12 @@
 # $pgp can be set to the path to GnuPG to use GnuPG instead.  The program
 # name needs to end in gpg so that signcontrol knows GnuPG is being used.
 #
-# STORING YOUR PASS PHRASE IN A FILE IS A POTENTIAL SECURITY HOLE.
-# make sure you know what you're doing if you do it.
-# if you don't use pgppassfile, you can only use this script interactively.
-# if you DO use pgppassfile, it is possible that someone could steal
-#  your passphrase either by gaining access to the file or by seeing
-#  the environment of a running pgpverify program.
+# STORING YOUR PASSPHRASE IN A FILE IS A POTENTIAL SECURITY HOLE.
+# Make sure you know what you're doing if you do it.
+# If you don't use $pgppassfile, you can only use this script interactively.
+# If you DO use $pgppassfile, it is possible that someone could steal
+# your passphrase either by gaining access to the file or by seeing
+# the environment of a running pgpverify program.
 #
 # $pgplock is used because pgp does not guard itself against concurrent
 # read/write access to its randseed.bin file.  A writable file is needed;
@@ -173,7 +173,7 @@
 
 umask(0022);                    # flock needs a writable file, if we create it
 if ($pgp !~ /gpg$/) {
-  open(LOCK, ">>$pgplock") || die "$0: open $lock: $!, exiting\n";
+  open(LOCK, ">>$pgplock") || die "$0: open $pgplock: $!, exiting\n";
   flock(LOCK, 2);               # block until locked
 }
 
@@ -199,7 +199,7 @@
 &signit;
 
 if ($pgp !~ /gpg$/) {
-  close(LOCK) || warn "$0: close $lock: $!\n";
+  close(LOCK) || warn "$0: close $pgplock: $!\n";
 }
 exit 0;
 

Modified: frontends/cnfsheadconf.in
===================================================================
--- frontends/cnfsheadconf.in	2008-05-05 10:17:36 UTC (rev 7817)
+++ frontends/cnfsheadconf.in	2008-05-05 16:20:04 UTC (rev 7818)
@@ -1,4 +1,4 @@
-#! /usr/bin/perl -w
+#! /usr/bin/perl
 # fixscript will replace this line with code to load INN::Config
 
 #  $Id$