--- trunk/DBI.pm 2005/04/26 19:57:51 54 +++ trunk/DBI.pm 2005/04/26 20:12:55 55 @@ -12,7 +12,7 @@ use Carp; use Data::Dumper; -our $VERSION = '0.07'; +our $VERSION = '0.08'; # block size for this filesystem use constant BLOCK => 1024; @@ -329,12 +329,14 @@ # read them in with sesible defaults while (my $row = $sth->{'filenames'}->fetchrow_hashref() ) { + $row->{'filename'} ||= 'NULL-'.$row->{'id'}; $files{$row->{'filename'}} = { size => $row->{'size'}, mode => $row->{'writable'} ? 0644 : 0444, id => $row->{'id'} || 99, }; + my $d; foreach (split(m!/!, $row->{'filename'})) { # first, entry is assumed to be file