Include variable names in "Use of uninitialized value" warnings

[perl.git] / ext / DB_File / t / db-recno.t

diff --git a/ext/DB_File/t/db-recno.t b/ext/DB_File/t/db-recno.t
index 4ab0aeb..8bd6379 100755 (executable)
--- a/ext/DB_File/t/db-recno.t
+++ b/ext/DB_File/t/db-recno.t
@@ -1313,6 +1313,8 @@ sub test_splice {
     foreach ($s_error, @s_warnings) {
        chomp;
        s/ at \S+ line \d+\.$//;
+       # only built-in splice identifies name of uninit value
+       s/(uninitialized value) \$\w+/$1/;
     }
 
     # Now do the same for DB_File's version of splice