fuseopts, RT #50000

[perl-fuse.git] / Fuse.pm

diff --git a/Fuse.pm b/Fuse.pm
index f9f6e73..f156df6 100755 (executable)
--- a/Fuse.pm
+++ b/Fuse.pm
@@ -28,7 +28,7 @@ our %EXPORT_TAGS = (
 our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
 
 our @EXPORT = ();
-our $VERSION = '0.09_3';
+our $VERSION = '0.09_4';
 
 sub AUTOLOAD {
     # This AUTOLOAD is used to 'autoload' constants from the constant()
@@ -83,8 +83,8 @@ sub main {
        my $tmp = 0;
        my %mapping = map { $_ => $tmp++ } @names;
        my %optmap  = map { $_ => 1 } @validOpts;
-       my @otherargs = qw(debug threaded mountpoint mountopts);
-       my %otherargs = (debug=>0, threaded=>0, mountpoint=>"", mountopts=>"");
+       my @otherargs = qw(debug threaded mountpoint mountopts fuseopts);
+       my %otherargs = (debug=>0, threaded=>0, mountpoint=>"", mountopts=>"", fuseopts=>"");
        while(my $name = shift) {
                my ($subref) = shift;
                if(exists($otherargs{$name})) {
@@ -401,7 +401,7 @@ Called in an attempt to fetch a portion of the file.
 
 Arguments:  Pathname, scalar buffer, numeric offset, file handle.  You can use length($buffer) to
 find the buffersize.
-Returns an errno.
+Returns length($buffer) if successful (number of bytes written).
 
 Called in an attempt to write (or overwrite) a portion of the file.  Be prepared because $buffer could contain random binary data with NULs and all sorts of other wonderful stuff.