diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-02-16 04:09:47 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-02-16 04:09:47 +0000 |
| commit | cceca5ed003bac658cb0392a14bb2f26d434bd78 (patch) | |
| tree | 286c2340276a7cbefe1899f0f01767791bb31ea4 /win32 | |
| parent | a9fb271febef206f32659f8abc5f9029ae2f7a25 (diff) | |
| download | perl-cceca5ed003bac658cb0392a14bb2f26d434bd78.tar.gz | |
propagate PERL_VERSION everywhere, add to pod
p4raw-id: //depot/perl@2957
Diffstat (limited to 'win32')
| -rw-r--r-- | win32/config.bc | 6 | ||||
| -rw-r--r-- | win32/config.gc | 6 | ||||
| -rw-r--r-- | win32/config.vc | 6 | ||||
| -rw-r--r-- | win32/config_sh.PL | 4 | ||||
| -rw-r--r-- | win32/win32.c | 5 |
5 files changed, 16 insertions, 11 deletions
diff --git a/win32/config.bc b/win32/config.bc index 7fe2222182..1726a369c5 100644 --- a/win32/config.bc +++ b/win32/config.bc @@ -8,10 +8,12 @@ Id='$Id' Locker='' Log='$Log' Mcc='Mcc' -PATCHLEVEL='~PATCHLEVEL~' +PERL_VERSION='~PERL_VERSION~' +PERL_SUBVERSION='~PERL_SUBVERSION~' +PATCHLEVEL='~PERL_VERSION~' RCSfile='$RCSfile' Revision='$Revision' -SUBVERSION='~SUBVERSION~' +SUBVERSION='~PERL_SUBVERSION~' Source='' State='' _a='.lib' diff --git a/win32/config.gc b/win32/config.gc index 728f8dcc42..a1d5d0baf1 100644 --- a/win32/config.gc +++ b/win32/config.gc @@ -8,10 +8,12 @@ Id='$Id' Locker='' Log='$Log' Mcc='Mcc' -PATCHLEVEL='~PATCHLEVEL~' +PERL_VERSION='~PERL_VERSION~' +PERL_SUBVERSION='~PERL_SUBVERSION~' +PATCHLEVEL='~PERL_VERSION~' RCSfile='$RCSfile' Revision='$Revision' -SUBVERSION='~SUBVERSION~' +SUBVERSION='~PERL_SUBVERSION~' Source='' State='' _a='.a' diff --git a/win32/config.vc b/win32/config.vc index 78fb8c0e1c..11aa47e12f 100644 --- a/win32/config.vc +++ b/win32/config.vc @@ -8,10 +8,12 @@ Id='$Id' Locker='' Log='$Log' Mcc='Mcc' -PATCHLEVEL='~PATCHLEVEL~' +PERL_VERSION='~PERL_VERSION~' +PERL_SUBVERSION='~PERL_SUBVERSION~' +PATCHLEVEL='~PERL_VERSION~' RCSfile='$RCSfile' Revision='$Revision' -SUBVERSION='~SUBVERSION~' +SUBVERSION='~PERL_SUBVERSION~' Source='' State='' _a='.lib' diff --git a/win32/config_sh.PL b/win32/config_sh.PL index 1d4b2fb5c3..fc0daf05bc 100644 --- a/win32/config_sh.PL +++ b/win32/config_sh.PL @@ -20,8 +20,8 @@ while (@ARGV && $ARGV[0] =~ /^([\w_]+)=(.*)$/) $opt{VERSION} = $]; $opt{INST_VER} =~ s|~VERSION~|$]|g; if ($] =~ /\.(\d\d\d)?(\d\d)?$/) { # should always be true - $opt{PATCHLEVEL} = int($1 || 0); - $opt{SUBVERSION} = $2 || '00'; + $opt{PERL_VERSION} = int($1 || 0); + $opt{PERL_SUBVERSION} = $2 || '00'; } $opt{'cf_by'} = $ENV{USERNAME} unless $opt{'cf_by'}; diff --git a/win32/win32.c b/win32/win32.c index 7b328e9e5a..408215c1ff 100644 --- a/win32/win32.c +++ b/win32/win32.c @@ -38,8 +38,6 @@ #include "EXTERN.h" #include "perl.h" -#include "patchlevel.h" - #define NO_XSLOCKS #ifdef PERL_OBJECT extern CPerlObj* pPerl; @@ -189,7 +187,8 @@ get_emd_part(char *prev_path, char *trailing_path, ...) va_start(ap, trailing_path); strip = va_arg(ap, char *); - sprintf(base, "%5.3f", (double) 5 + ((double) PATCHLEVEL / (double) 1000)); + sprintf(base, "%5.3f", + (double)PERL_REVISION + ((double)PERL_VERSION / (double)1000)); GetModuleFileName((HMODULE)((w32_perldll_handle == INVALID_HANDLE_VALUE) ? GetModuleHandle(NULL) : w32_perldll_handle), |