Change 14959 by ams@lustre on 2002/03/03 08:11:34
Fix #14957.
Affected files ...
.... //depot/perl/ext/DB_File/t/db-recno.t#13 edit
Differences ...
==== //depot/perl/ext/DB_File/t/db-recno.t#13 (xtext) ====
Index: perl/ext/DB_File/t/db-recno.t
--- perl/ext/DB_File/t/db-recno.t.~1~ Sun Mar 3 01:15:05 2002
+++ perl/ext/DB_File/t/db-recno.t Sun Mar 3 01:15:05 2002
@@ -1080,6 +1080,7 @@
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 @@
# 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 {
End of Patch.
