- Timestamp:
- Oct 21, 2009, 8:48:38 PM (15 years ago)
- 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)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
perl/lib/BarnOwl.pm
r99cc3dc r3c428d4 437 437 { 438 438 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 } 444 446 } 445 447 chomp($zsig);
Note: See TracChangeset
for help on using the changeset viewer.