{
    return "" unless scalar keys %$vfs;

    $OUT = "vfs objects = " . (join " ", keys %$vfs) . "\n";
    foreach $mod (keys %$vfs) {
	($mod2) = $mod =~ m{^([^_]+)};
	foreach $opt (keys %{$vfs->{$mod}}) {
	    $OUT .= "  $mod2:$opt=$vfs->{$mod}->{$opt}\n";
	}
    }
}
