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 | |
| 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
| -rw-r--r-- | win32/Makefile | 7 | ||||
| -rw-r--r-- | win32/config.w32 | 2 | ||||
| -rw-r--r-- | win32/config_sh.PL | 4 |
3 files changed, 11 insertions, 2 deletions
diff --git a/win32/Makefile b/win32/Makefile index 8c99ef7550..9712c57420 100644 --- a/win32/Makefile +++ b/win32/Makefile @@ -24,6 +24,11 @@ INST_TOP=$(INST_DRV)\perl # uncomment next line if you want debug version of perl (big,slow) #CFG=Debug +# +# set this to your email address (perl will guess a value from +# from your loginname and your hostname, which may not be right) +#EMAIL = + ##################### CHANGE THESE ONLY IF YOU MUST ##################### # @@ -264,7 +269,7 @@ perlglob.obj : perlglob.c ..\config.sh : config.w32 $(MINIPERL) config_sh.PL $(MINIPERL) -I..\lib config_sh.PL "INST_DRV=$(INST_DRV)" "INST_TOP=$(INST_TOP)"\ - "cc=$(CC)" "ccflags=$(RUNTIME) -DWIN32" config.w32 > ..\config.sh + "cc=$(CC)" "ccflags=$(RUNTIME) -DWIN32" "cf_email=$(EMAIL)" config.w32 > ..\config.sh $(CONFIGPM) : $(MINIPERL) ..\config.sh config_h.PL ..\minimod.pl cd .. && miniperl configpm diff --git a/win32/config.w32 b/win32/config.w32 index e977b17e07..b40efeeece 100644 --- a/win32/config.w32 +++ b/win32/config.w32 @@ -1,7 +1,7 @@ # ## This file was hand coded and a lot of information is invalid # -## Configured by: garyng +## Configured by: ~cf_email~ ## Target system: WIN32 # 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; |