diff options
author | Gurusamy Sarathy <gsar@engin.umich.edu> | 1997-05-28 02:28:08 +1200 |
---|---|---|
committer | Tim Bunce <Tim.Bunce@ig.co.uk> | 1997-06-11 12:00:00 +1200 |
commit | d484a8290f98952e0e3a67e0aae9aa08c631f5c2 (patch) | |
tree | b320bbe3e63a7213b8248b90dac68fd6c7e5d385 /win32/config_sh.PL | |
parent | 174c211a66516a872d3a421681076bee9a56fa2b (diff) | |
download | perl-d484a8290f98952e0e3a67e0aae9aa08c631f5c2.tar.gz |
win32: Configure cf_email
Subject: [PATCH] win32: cf_email (was Re: Win32 embedding w/ 5.004)
On Fri, 30 May 1997 11:01:57 +0800, "Gary Ng (Systek)" wrote:
>Nick and Sarathy contribute much more that me. BTW, anyone
>notice that perl -V on win32 still show 'garyng' no matter who build it
>:-)
>Can that be removed ?
Actually perl -V doesn't show that for me, but perlbug does.
Here's a patch.
p5p-msgid: 199705301335.JAA05079@aatma.engin.umich.edu
Diffstat (limited to 'win32/config_sh.PL')
-rw-r--r-- | win32/config_sh.PL | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/win32/config_sh.PL b/win32/config_sh.PL index 020485d66a..0769ef3112 100644 --- a/win32/config_sh.PL +++ b/win32/config_sh.PL @@ -10,6 +10,10 @@ if ($] =~ /\.(\d\d\d)?(\d\d)?$/) { # should always be true $opt{SUBVERSION} = $2 || '00'; } +$opt{'cf_by'} = $ENV{USERNAME} unless $opt{'cf_by'}; +$opt{'cf_email'} = $opt{'cf_by'} . '@' . (gethostbyname('localhost'))[0] + unless $opt{'cf_email'}; + while (<>) { s/~([\w_]+)~/$opt{$1}/g; |