[Gnucash-changes] r11844 - meta/hooks - fix naughtiness.

[Joshua Sled]

Author: jsled
Date: 2005-11-05 12:50:19 -0500 (Sat, 05 Nov 2005)
New Revision: 11844

Modified:
   meta/hooks/commit-email.pl
Log:
fix naughtiness.

Modified: meta/hooks/commit-email.pl
===================================================================
--- meta/hooks/commit-email.pl	2005-11-05 17:41:21 UTC (rev 11843)
+++ meta/hooks/commit-email.pl	2005-11-05 17:50:19 UTC (rev 11844)
@@ -127,13 +127,13 @@
           }
 
         my $value = "";
-        if (not ($arg eq '-n' or @ARGV))
+        if ($arg ne '-n')
+        {
+          unless (@ARGV)
           {
             die "$0: command line option `$arg' is missing a value.\n";
           }
-        else
-        {
-            $value = shift @ARGV;
+          $value = shift @ARGV;
         }
 
         if ($hash_key)