die "fork() failed: $!" unless defined $pid;
# child will return to caller
if ($pid) {
die "fork() failed: $!" unless defined $pid;
# child will return to caller
if ($pid) {
- $self ? return $self : return undef;
- my $mount = Fuse::main(
mountpoint=>$arg->{'mount'},
getattr=>\&e_getattr,
getdir=>\&e_getdir,
mountpoint=>$arg->{'mount'},
getattr=>\&e_getattr,
getdir=>\&e_getdir,
- if (! $mount) {
- warn "mount on ",$arg->{'mount'}," failed!\n";
- return undef;
- }
+ exit(0) if ($arg->{'fork'});
+
+ return 1;
+
eval "use DBD::SQLite";
plan skip_all => "DBD::SQLite required for testing" if $@;
eval "use DBD::SQLite";
plan skip_all => "DBD::SQLite required for testing" if $@;
use_ok('DBI');
use_ok('Fuse::DBI');
use_ok('DBI');
use_ok('Fuse::DBI');
ok($sth->execute($file,$data), "insert $file");
}
ok($sth->execute($file,$data), "insert $file");
}
+ok($dbh->disconnect, "disconnect after insert");
+
my $sql_filenames = qq{
select
name as id,
my $sql_filenames = qq{
select
name as id,
update => $sql_update,
dsn => $dsn,
mount => $mount,
update => $sql_update,
dsn => $dsn,
mount => $mount,
update => $sql_update,
dsn => $dsn,
mount => $mount,
update => $sql_update,
dsn => $dsn,
mount => $mount,