diff options
| author | Rick Delaney <rick@consumercontact.com> | 2007-09-05 10:38:40 -0400 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-09-06 08:31:01 +0000 |
| commit | 5f0a87760bb9130fbd7579236f81db0729b54496 (patch) | |
| tree | dcc7c77e7623a7bb851e48fb56ceb0d722b70656 /lib/base | |
| parent | 38bfad488a28af9fd073332d031bfcf0baed9010 (diff) | |
| download | perl-5f0a87760bb9130fbd7579236f81db0729b54496.tar.gz | |
Re: [perl #44969] Restricted hashes do not handle private fields properly
Message-ID: <20070905183840.GE9260@bort.ca>
p4raw-id: //depot/perl@31797
Diffstat (limited to 'lib/base')
| -rw-r--r-- | lib/base/t/fields-base.t | 12 |
1 files changed, 0 insertions, 12 deletions
diff --git a/lib/base/t/fields-base.t b/lib/base/t/fields-base.t index 0ec12c225e..d3e8c7bb1c 100644 --- a/lib/base/t/fields-base.t +++ b/lib/base/t/fields-base.t @@ -245,11 +245,6 @@ package main; my X $self = shift; $self = fields::new($self) unless ref $self; $self->{X1} = "x1"; - # FIXME. This code is dead on blead becase the test is skipped. - # The test states that it's being skipped becaues restricted hashes - # don't support a feature. Presumably we need to make that feature - # supported. Bah. - # use Devel::Peek; Dump($self); $self->{_X2} = "_x2"; return $self; } @@ -280,13 +275,6 @@ package main; package main; - if ($Has_PH) { my Z $c = Z->new(); is($c->get_X2, '_x2', "empty intermediate class"); - } - else { - SKIP: { - skip "restricted hashes don't support private fields properly", 1; - } - } } |