in reply to AUTHOR default setting in h2xs
my ($email,$author,$licence); eval { my $username; ($username,$author) = (getpwuid($>))[0,6]; if (defined $username && defined $author) { $author =~ s/,.*$//; # in case of sub fields my $domain = $Config{'mydomain'}; $domain =~ s/^\.//; $email = "$username\@$domain"; } }; $author =~ s/'/\\'/g if defined $author; $author ||= "A. U. Thor"; $email ||= 'a.u.thor@a.galaxy.far.far.away';
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^2: AUTHOR default setting in h2xs
by perlboy_emeritus (Scribe) on Feb 26, 2018 at 23:04 UTC | |
by syphilis (Archbishop) on Feb 26, 2018 at 23:43 UTC | |
by perlboy_emeritus (Scribe) on Feb 27, 2018 at 00:43 UTC | |
by Anonymous Monk on Feb 27, 2018 at 00:16 UTC | |
by perlboy_emeritus (Scribe) on Feb 27, 2018 at 00:47 UTC | |
by Anonymous Monk on Feb 27, 2018 at 02:05 UTC | |
by syphilis (Archbishop) on Feb 27, 2018 at 03:47 UTC |