[perl #78462] Don't warn for splice(@a,MAX_LEN)

The intent of splice(@a,MAX_LEN) is quite clearly to truncate
the array if it's too large. There's no reason to warn if it's
currently smaller than the max length.

1 files changed, 19 insertions, 0 deletions

diff --git a/t/lib/warnings/pp b/t/lib/warnings/pp
index d1581446f0..2251b9420f 100644
--- a/t/lib/warnings/pp
+++ b/t/lib/warnings/pp
@@ -46,6 +46,25 @@ EXPECT
 Attempt to use reference as lvalue in substr at - line 5.
 ########
 # pp.c
+use warnings 'misc' ;
+@a = qw( a b c );
+splice(@a, 4, 0, 'e') ;
+@a = qw( a b c );
+splice(@a, 4, 1) ;
+@a = qw( a b c );
+splice(@a, 4) ;
+no warnings 'misc' ;
+@a = qw( a b c );
+splice(@a, 4, 0, 'e') ;
+@a = qw( a b c );
+splice(@a, 4, 1) ;
+@a = qw( a b c );
+splice(@a, 4) ;
+EXPECT
+splice() offset past end of array at - line 4.
+splice() offset past end of array at - line 6.
+########
+# pp.c
 use warnings 'uninitialized' ;
 *x = *{ undef() };
 no warnings 'uninitialized' ;