From 29489e7c741791873ea464cb7e13d2b5a19577a7 Mon Sep 17 00:00:00 2001
From: Dave Mitchell <davem@fdisolutions.com>
Date: Fri, 23 Apr 2004 20:43:02 +0000
Subject: Include variable names in "Use of uninitialized value" warnings

p4raw-id: //depot/perl@22741
---
 ext/DB_File/DB_File.pm   | 2 +-
 ext/DB_File/t/db-recno.t | 2 ++
 2 files changed, 3 insertions(+), 1 deletion(-)

(limited to 'ext/DB_File')

diff --git a/ext/DB_File/DB_File.pm b/ext/DB_File/DB_File.pm
index a965e82d41..b9fb63a224 100644
--- a/ext/DB_File/DB_File.pm
+++ b/ext/DB_File/DB_File.pm
@@ -165,7 +165,7 @@ our ($db_version, $use_XSLoader, $splice_end_array);
 use Carp;
 
 
-$VERSION = "1.808_01" ;
+$VERSION = "1.808_02" ;
 
 {
     local $SIG{__WARN__} = sub {$splice_end_array = "@_";};
diff --git a/ext/DB_File/t/db-recno.t b/ext/DB_File/t/db-recno.t
index 4ab0aebe4a..8bd637942f 100755
--- 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
-- 
cgit v1.2.1