Changeset 3c428d48282cf713201d1675e0b568003c595d46

Show
Ignore:
Timestamp:
10/21/09 20:48:38 (5 weeks ago)
Author:
Karl Ramm <kcr@1ts.org>
git-author:
Karl Ramm <kcr@1ts.org> / 2009-10-21T19:18:28Z-0400
Parents:
99525be7e6268ba595d424f7f84e31716765f1fc
Children:
fb7742c26c2c6ef87a9fafbc1dd594987d2ef4c9
git-committer:
Karl Ramm <kcr@1ts.org> / 2009-10-21T20:48:38Z-0400
Message:
Actually check if zsig is set before we go looking elsewhere
Files:
1 modified

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);