diff options
author | Larry Wall <larry@netlabs.com> | 1993-10-10 00:00:00 +0000 |
---|---|---|
committer | Larry Wall <larry@netlabs.com> | 1993-10-10 00:00:00 +0000 |
commit | 93a17b20b6d176db3f04f51a63b0a781e5ffd11c (patch) | |
tree | 764149b1d480d5236d4d62b3228bd57f53a71042 /t/op/ref.t | |
parent | 79072805bf63abe5b5978b5928ab00d360ea3e7f (diff) | |
download | perl-93a17b20b6d176db3f04f51a63b0a781e5ffd11c.tar.gz |
perl 5.0 alpha 3
[editor's note: the sparc executables have not been included,
and emacs backup files have been removed]
Diffstat (limited to 't/op/ref.t')
-rwxr-xr-x | t/op/ref.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/t/op/ref.t b/t/op/ref.t index cace1e14bd..b0619cbc2c 100755 --- a/t/op/ref.t +++ b/t/op/ref.t @@ -81,14 +81,14 @@ $refref = \%whatever; $refref->{"key"} = $ref; print $refref->{"key"}->[2]->[0] == 3 ? "ok 20\n" : "not ok 20\n"; -# Test to see if anonymous subarrays sprint into existence. +# Test to see if anonymous subarrays spring into existence. $spring[5]->[0] = 123; $spring[5]->[1] = 456; push(@{$spring[5]}, 789); print join(':',@{$spring[5]}) eq "123:456:789" ? "ok 21\n" : "not ok 21\n"; -# Test to see if anonymous subhashes sprint into existence. +# Test to see if anonymous subhashes spring into existence. @{$spring2{"foo"}} = (1,2,3); $spring2{"foo"}->[3] = 4; |