diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2004-09-05 20:16:55 +0000 |
|---|---|---|
| committer | Dave Mitchell <davem@fdisolutions.com> | 2004-09-05 20:16:55 +0000 |
| commit | 446e776fb7618d56ecd9043c4060e08967abe22c (patch) | |
| tree | 09f22f10d12f22090d3bbe49f04bcdc96bb93b7d /lib/base.pm | |
| parent | 85be41ddc82ae1b92a5cc5dab5f925295b67a742 (diff) | |
| download | perl-446e776fb7618d56ecd9043c4060e08967abe22c.tar.gz | |
I somehow managed to omit the base.pm change from #23266
p4raw-id: //depot/perl@23267
Diffstat (limited to 'lib/base.pm')
| -rw-r--r-- | lib/base.pm | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/lib/base.pm b/lib/base.pm index e98d0f1e61..832b6a4a9a 100644 --- a/lib/base.pm +++ b/lib/base.pm @@ -152,10 +152,9 @@ sub inherit_fields { } } - unless( keys %$bfields ) { - foreach my $idx (1..$#{$battr}) { - $dattr->[$idx] = $battr->[$idx] & INHERITED; - } + foreach my $idx (1..$#{$battr}) { + next if defined $dattr->[$idx]; + $dattr->[$idx] = $battr->[$idx] & INHERITED; } } |