diff options
| author | Mike Guy <mjtg@cam.ac.uk> | 2000-08-08 16:51:27 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-08-08 18:06:29 +0000 |
| commit | 1426bbf4b7d39af0f80ec0afcb4869d2bc3f0a90 (patch) | |
| tree | 594be049f6d75b6949b880b017535670ff194ed3 /t/pragma/overload.t | |
| parent | a223bd6128bafe323fc3be7c344f6b66aa25af02 (diff) | |
| download | perl-1426bbf4b7d39af0f80ec0afcb4869d2bc3f0a90.tar.gz | |
Re: [ID 20000807.008] Double reads considered evil? (deja vu)
Message-Id: <E13MAj1-00038W-00@libra.cus.cam.ac.uk>
p4raw-id: //depot/perl@6552
Diffstat (limited to 't/pragma/overload.t')
| -rwxr-xr-x | t/pragma/overload.t | 15 |
1 files changed, 11 insertions, 4 deletions
diff --git a/t/pragma/overload.t b/t/pragma/overload.t index 78ca147bf3..a5949b68d8 100755 --- a/t/pragma/overload.t +++ b/t/pragma/overload.t @@ -919,14 +919,21 @@ test $bar->[3], 13; # 206 my $aaa; { my $bbbb = 0; $aaa = bless \$bbbb, B } -test !$aaa, 1; +test !$aaa, 1; # 207 unless ($aaa) { - test 'ok', 'ok'; + test 'ok', 'ok'; # 208 } else { - test 'is not', 'ok'; + test 'is not', 'ok'; # 208 } +# check that overload isn't done twice by join +{ my $c = 0; + package Join; + use overload '""' => sub { $c++ }; + my $x = join '', bless([]), 'pq', bless([]); + main::test $x, '0pq1'; # 209 +}; # Last test is: -sub last {208} +sub last {209} |