note
jwkrahn
<blockquote><i><c>
tie (my %hash, 'DB_File', $file, O_RDWR, 0600) || next;
foreach my $key ( keys %hash ) {
if (!defined $hash{$key}) {
</c></i></blockquote>
<p>
The [doc://undef] value is an internal perl meta-value. When you store data on an external device (like a tied hash) the [doc://undef] value is converted to a string, so trying to use [doc://defined] on this value makes no sense.
</p>
983096
983096