From: Abhijit Menon-Sen <ams@wiw.org>
Date: Sun, 3 Mar 2002 08:11:34 +0000 (+0000)
Subject:    Fix #14957.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=103b575a610fa266138f0ab0655f26f83244bca8;p=p5sagit%2Fp5-mst-13.2.git

   Fix #14957.

p4raw-id: //depot/perl@14959
---

diff --git a/ext/DB_File/t/db-recno.t b/ext/DB_File/t/db-recno.t
index 5b03219..f077252 100755
--- a/ext/DB_File/t/db-recno.t
+++ b/ext/DB_File/t/db-recno.t
@@ -1080,6 +1080,7 @@ sub test_splice {
     my ($s_r, $s_error, @s_warnings);
 
     my $gather_warning = sub { push @s_warnings, $_[0] };
+    $offset = $#array if $offset and $offset > @array;
     if ($context eq 'list') {
 	my @r;
 	eval {
@@ -1118,6 +1119,7 @@ sub test_splice {
     # Now do the same for DB_File's version of splice
     my ($ms_r, $ms_error, @ms_warnings);
     $gather_warning = sub { push @ms_warnings, $_[0] };
+    $offset = $#h if $offset and $offset > @h;
     if ($context eq 'list') {
 	my @r;
 	eval {