From e935c5a40cc2e11d6cc50386820177a932ba7ce1 Mon Sep 17 00:00:00 2001 From: Rafael Garcia-Suarez Date: Wed, 20 Jul 2005 10:31:04 +0000 Subject: [PATCH] Remove :unique attribute from Config.pm, until we find a better implementation of it (or remove it). See [perl #36375]. p4raw-id: //depot/perl@25195 --- configpm | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) diff --git a/configpm b/configpm index 728e012..874e3f3 100755 --- a/configpm +++ b/configpm @@ -362,16 +362,12 @@ if (%need_relocation) { print CONFIG_HEAVY @non_v, "\n"; # copy config summary format from the myconfig.SH script -print CONFIG_HEAVY "our \$summary : unique = <<'!END!';\n"; +print CONFIG_HEAVY "our \$summary = <<'!END!';\n"; open(MYCONFIG,") && !/^Summary of/; do { print CONFIG_HEAVY $_ } until !defined($_ = ) || /^\s*$/; close(MYCONFIG); -# NB. as $summary is unique, we need to copy it in a lexical variable -# before expanding it, because may have been made readonly if a perl -# interpreter has been cloned. - print CONFIG_HEAVY "\n!END!\n", <<'EOT'; my $summary_expanded; @@ -418,7 +414,7 @@ s/(byteorder=)(['"]).*?\2/$1$2$Config::byteorder$2/m; my $config_sh_len = length $_; -our $Config_SH_expanded : unique = "\n$_" . << 'EOVIRTUAL'; +our $Config_SH_expanded = "\n$_" . << 'EOVIRTUAL'; EOT foreach my $prefix (qw(ccflags ldflags)) { -- 2.7.4