use Carp;
use Data::Dumper;
-
our $VERSION = '0.07';
+# block size for this filesystem
+use constant BLOCK => 1024;
+
=head1 NAME
Fuse::DBI - mount your database as filesystem and use it
my $self = shift;
if ($self->{'mount'} && $self->is_mounted) {
- system "fusermount -u ".$self->{'mount'}." 2>&1 >/dev/null" ||
+ system "( fusermount -u ".$self->{'mount'}." 2>&1 ) >/dev/null" ||
system "sudo umount ".$self->{'mount'} ||
return 0;
return 1;
$file =~ s,^/,,;
$file = '.' unless length($file);
return -ENOENT() unless exists($files{$file});
- my ($size) = $files{$file}{size} || 1024;
- my ($dev, $ino, $rdev, $blocks, $gid, $uid, $nlink, $blksize) = (0,0,0,int(($size+1023)/1024),0,0,1,1024);
+ my ($size) = $files{$file}{size} || BLOCK;
+ my ($dev, $ino, $rdev, $blocks, $gid, $uid, $nlink, $blksize) = (0,0,0,int(($size+BLOCK-1)/BLOCK),0,0,1,BLOCK);
my ($atime, $ctime, $mtime);
$atime = $ctime = $mtime = $files{$file}{ctime} || $ctime_start;
print "$inodes: $f [$size]\n";
}
- $size = int(($size+1023)/1024);
+ $size = int(($size+BLOCK-1)/BLOCK);
- my @ret = (255, $inodes+1000, $inodes, $size, $size-10, 1024);
+ my @ret = (255, $inodes, 1, $size, $size-1, BLOCK);
print "statfs: ",join(",",@ret),"\n";