diff options
| author | Yitzchak Scott-Thoennes <sthoenna@efn.org> | 2005-09-01 17:05:52 -0700 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-09-06 14:50:18 +0000 |
| commit | 2b77b520a897b2de1a476dfdd714900e49cf942b (patch) | |
| tree | c94b568e37e322a0c21f107956cc5a9bbde60d1c /t | |
| parent | 44c87379b0eb26068458a7274e6ba030624f8ac1 (diff) | |
| download | perl-2b77b520a897b2de1a476dfdd714900e49cf942b.tar.gz | |
Re: Fw: Tied hash numeric values are rounded off under Perl v5.8.6
Message-ID: <20050902070552.GA3992@efn.org>
p4raw-id: //depot/perl@25358
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/tie.t | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/t/op/tie.t b/t/op/tie.t index 2ea128512c..1fe37e1624 100755 --- a/t/op/tie.t +++ b/t/op/tie.t @@ -571,3 +571,10 @@ FIRSTKEY not empty FIRSTKEY empty +######## +sub TIESCALAR { bless {} } +sub FETCH { my $x = 3.3; 1 if 0+$x; $x } +tie $h, "main"; +print $h,"\n"; +EXPECT +3.3 |