diff options
| author | Perl 5 Porters <perl5-porters.nicoh.com> | 1996-01-04 02:13:53 +0000 |
|---|---|---|
| committer | Andy Dougherty <doughera.lafayette.edu> | 1996-01-04 02:13:53 +0000 |
| commit | 4550b24a9adfb75d9c081ae699e54700e1a9add2 (patch) | |
| tree | bd57ec5c5b7b9c93bb03e948839499af80d285eb /perl.c | |
| parent | 3e01a666488d80fe50496967927fb8a6ccff1744 (diff) | |
| download | perl-4550b24a9adfb75d9c081ae699e54700e1a9add2.tar.gz | |
perl 5.002beta1h patch: perl.c
Updated to say beta1h.
Move VMS env code.
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 10 |
1 files changed, 5 insertions, 5 deletions
@@ -1093,7 +1093,7 @@ char *s; s++; return s; case 'v': - printf("\nThis is perl, version %s beta1g\n\n",patchlevel); + printf("\nThis is perl, version %s beta1h\n\n",patchlevel); fputs("\nCopyright 1987-1995, Larry Wall\n",stdout); #ifdef MSDOS fputs("MS-DOS port Copyright (c) 1989, 1990, Diomidis Spinellis\n", @@ -1766,10 +1766,6 @@ register char **env; environ[0] = Nullch; hv_magic(hv, envgv, 'E'); } -#endif -#ifdef DYNAMIC_ENV_FETCH - HvNAME(hv) = savepv(ENV_HV_NAME); -#endif for (; *env; env++) { if (!(s = strchr(*env,'='))) continue; @@ -1779,6 +1775,10 @@ register char **env; (void)hv_store(hv, *env, s - *env, sv, 0); *s = '='; } +#endif +#ifdef DYNAMIC_ENV_FETCH + HvNAME(hv) = savepv(ENV_HV_NAME); +#endif hv_magic(hv, envgv, 'E'); } tainted = 0; |