$^O is initalised to OSNAME, so no need to return the latter from Internals::V.

Saves having object code to build one SV that Config::_V can find out by itself.

1 files changed, 1 insertions, 3 deletions

diff --git a/perl.c b/perl.c
index a15f86e97c..7a1db7c9c4 100644
--- a/perl.c
+++ b/perl.c
@@ -1643,7 +1643,7 @@ S_Internals_V(pTHX_ CV *cv)
 #else
     const int local_patch_count = 0;
 #endif
-    const int entries = 4 + local_patch_count;
+    const int entries = 3 + local_patch_count;
     int i;
     static char non_bincompat_options[] = 
 #  ifdef DEBUGGING
@@ -1705,8 +1705,6 @@ S_Internals_V(pTHX_ CV *cv)
     PUSHs(&PL_sv_undef);
 #endif
 
-    PUSHs(Perl_newSVpvn_flags(aTHX_ STR_WITH_LEN(OSNAME), SVs_TEMP));
-
     for (i = 1; i <= local_patch_count; i++) {
 	/* This will be an undef, if PL_localpatches[i] is NULL.  */
 	PUSHs(sv_2mortal(newSVpv(PL_localpatches[i], 0)));