diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2004-04-23 20:43:02 +0000 |
|---|---|---|
| committer | Dave Mitchell <davem@fdisolutions.com> | 2004-04-23 20:43:02 +0000 |
| commit | 29489e7c741791873ea464cb7e13d2b5a19577a7 (patch) | |
| tree | 416b7c61173edafe7ef2746b86383c7663652cdc /ext/DB_File | |
| parent | e22ea7cc8db19b7765901c13e81b890baf3405da (diff) | |
| download | perl-29489e7c741791873ea464cb7e13d2b5a19577a7.tar.gz | |
Include variable names in "Use of uninitialized value" warnings
p4raw-id: //depot/perl@22741
Diffstat (limited to 'ext/DB_File')
| -rw-r--r-- | ext/DB_File/DB_File.pm | 2 | ||||
| -rwxr-xr-x | ext/DB_File/t/db-recno.t | 2 |
2 files changed, 3 insertions, 1 deletions
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 |