Changeset 3c428d4


Ignore:
Timestamp:
Oct 21, 2009, 8:48:38 PM (12 years ago)
Author:
Karl Ramm <kcr@1ts.org>
Branches:
master, 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:
1 edited

Legend:

Unmodified
Added
Removed
  • perl/lib/BarnOwl.pm

    r99cc3dc r3c428d4  
    437437{
    438438  my $zsig = getvar('zsig');
    439   if (!$zsig && (my $zsigproc = getvar('zsigproc'))) {
    440     $zsig = `$zsigproc`;
    441   } elsif (!defined($zsig = get_zephyr_variable('zwrite-signature'))) {
    442     $zsig = ((getpwuid($<))[6]);
    443     $zsig =~ s/,.*//;
     439  if (!$zsig) {
     440      if (my $zsigproc = getvar('zsigproc')) {
     441          $zsig = `$zsigproc`;
     442      } elsif (!defined($zsig = get_zephyr_variable('zwrite-signature'))) {
     443          $zsig = ((getpwuid($<))[6]);
     444          $zsig =~ s/,.*//;
     445      }
    444446  }
    445447  chomp($zsig);
Note: See TracChangeset for help on using the changeset viewer.