This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
perl 5.0 alpha 5
[perl5.git] / perl.c
diff --git a/perl.c b/perl.c
index e2b4821..c6c2bee 100644 (file)
--- a/perl.c
+++ b/perl.c
@@ -109,6 +109,7 @@ register PerlInterpreter *sv_interp;
     /* Init the real globals? */
     if (!linestr) {
        linestr = NEWSV(65,80);
+       sv_upgrade(linestr,SVt_PVIV);
 
        SvREADONLY_on(&sv_undef);
 
@@ -693,7 +694,7 @@ char *s;
        s++;
        return s;
     case 'v':
-       fputs("\nThis is perl, version 5.0, Alpha 4 (unsupported)\n\n",stdout);
+       fputs("\nThis is perl, version 5.0, Alpha 5 (unsupported)\n\n",stdout);
        fputs(rcsid,stdout);
        fputs("\nCopyright (c) 1989, 1990, 1991, 1992, 1993, 1994 Larry Wall\n",stdout);
 #ifdef MSDOS
@@ -1303,7 +1304,6 @@ register char **env;
        SvMULTI_on(envgv);
        hv = GvHVn(envgv);
        hv_clear(hv);
-       hv_magic(hv, envgv, 'E');
        if (env != environ)
            environ[0] = Nullch;
        for (; *env; env++) {
@@ -1314,6 +1314,7 @@ register char **env;
            (void)hv_store(hv, *env, s - *env, sv, 0);
            *s = '=';
        }
+       hv_magic(hv, envgv, 'E');
     }
     tainted = 0;
     if (tmpgv = gv_fetchpv("$",TRUE))