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

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";