Add newSVsv_nomg() macro which is like newSVsv() but does not process get magic

[perl5.git] / configpm

diff --git a/configpm b/configpm
index 2fda5a5..09c4a3b 100755 (executable)
--- a/configpm
+++ b/configpm
@@ -574,9 +574,11 @@ local *_ = \my $a;
 $_ = <<'!END!';
 EOT
 #proper lexicographical order of the keys
+my %seen_var;
 $heavy_txt .= join('',
     map { $_->[-1] }
     sort {$a->[0] cmp $b->[0] }
+    grep { !$seen_var{ $_->[0] }++ }
     map {
         /^([^=]+)/ ? [ $1, $_ ]
                    : [ $_, $_ ] # shouldnt happen