diff options
| author | Joshua Pritikin <joshua.pritikin@db.com> | 1998-06-15 06:03:37 -0400 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-06-20 23:47:09 +0000 |
| commit | 800e9ae0504a9c74de77c7ab0037cc96b5df4995 (patch) | |
| tree | 118b9d18a389b7dadbbf626bb92876116df977c5 /t/op/avhv.t | |
| parent | 270d1e3932d8fd3e603e87df650a603bf9eefa79 (diff) | |
| download | perl-800e9ae0504a9c74de77c7ab0037cc96b5df4995.tar.gz | |
added patch, tweaked missed files, excised comment that doesn't really
belong in the sources
Message-Id: <H00000e500072c63@MHS>
Subject: [PATCH 5.004_57] tied hash slice & do_kv cleanup
p4raw-id: //depot/perl@1165
Diffstat (limited to 't/op/avhv.t')
| -rwxr-xr-x | t/op/avhv.t | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/t/op/avhv.t b/t/op/avhv.t index a7ce58ab87..84d3f270fb 100755 --- a/t/op/avhv.t +++ b/t/op/avhv.t @@ -17,7 +17,7 @@ sub STORESIZE { $#{$_[0]} = $_[1]+1 } package main; -print "1..5\n"; +print "1..6\n"; $sch = { 'abc' => 1, @@ -74,3 +74,8 @@ $a->[0] = \%fake; $a->{'abc'} = 'ABC'; if ($a->{'abc'} eq 'ABC') {print "ok 5\n";} else {print "not ok 5\n";} + +# hash slice +my $slice = join('', 'x',@$a{'abc','def'},'x'); +print "not " if $slice ne 'xABCx'; +print "ok 6\n"; |