Skip to content

Commit

Permalink
Remove :unique attribute from Config.pm,
Browse files Browse the repository at this point in the history
until we find a better implementation of it (or
remove it). See [perl #36375].

p4raw-id: //depot/perl@25195
  • Loading branch information
rgs committed Jul 20, 2005
1 parent f9bc45e commit e935c5a
Showing 1 changed file with 2 additions and 6 deletions.
8 changes: 2 additions & 6 deletions configpm
Original file line number Diff line number Diff line change
Expand Up @@ -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,"<myconfig.SH") || die "open myconfig.SH failed: $!";
1 while defined($_ = <MYCONFIG>) && !/^Summary of/;
do { print CONFIG_HEAVY $_ } until !defined($_ = <MYCONFIG>) || /^\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;

Expand Down Expand Up @@ -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)) {
Expand Down

0 comments on commit e935c5a

Please sign in to comment.