Changeset 3c428d4 for perl/lib

Timestamp:

Oct 21, 2009, 8:48:38 PM (15 years ago)

Author:

Karl Ramm <kcr@1ts.org>

Branches:

master, release-1.10, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9

Children:

fb7742c

Parents:

99525be

git-author:

Karl Ramm <kcr@1ts.org> (10/21/09 19:18:28)

git-committer:

Karl Ramm <kcr@1ts.org> (10/21/09 20:48:38)

Message:

Actually check if zsig is set before we go looking elsewhere

File:

• perl/lib/BarnOwl.pm (modified) (1 diff)

perl/lib/BarnOwl.pm

@@ -437 +437 @@
 {
   my $zsig = getvar('zsig');
-  if (!$zsig && (my $zsigproc = getvar('zsigproc'))) {
-    $zsig = `$zsigproc`;
-  } elsif (!defined($zsig = get_zephyr_variable('zwrite-signature'))) {
-    $zsig = ((getpwuid($<))[6]);
-    $zsig =~ s/,.*//;
+  if (!$zsig) {
+      if (my $zsigproc = getvar('zsigproc')) {
+          $zsig = `$zsigproc`;
+      } elsif (!defined($zsig = get_zephyr_variable('zwrite-signature'))) {
+          $zsig = ((getpwuid($<))[6]);
+          $zsig =~ s/,.*//;
+      }
   }
   chomp($zsig);