$^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, 2 insertions, 2 deletions

diff --git a/configpm b/configpm
index 9fb30eeaeb..b8fea15674 100755
--- a/configpm
+++ b/configpm
@@ -124,7 +124,7 @@ use strict;
 # use vars pulls in Carp
 
 sub _V {
-    my ($bincompat, $non_bincompat, $date, $osname, @patches) = Internals::V();
+    my ($bincompat, $non_bincompat, $date, @patches) = Internals::V();
 
     my $opts = join ' ', sort split ' ', "$bincompat $non_bincompat";
 
@@ -146,7 +146,7 @@ sub _V {
         print "\t$_\n" foreach @patches;
     }
 
-    print "  Built under $osname\n";
+    print "  Built under $^O\n";
 
     print "  $date\n" if defined $date;