X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=Fuse.pm;h=f156df6c44ab9a3d296d1fdd0141aedf00cf20ed;hb=refs%2Fheads%2Frt-50000-fuseopts;hp=3ab76a0885202cea2f939120a16e7aaed513e16c;hpb=5a5106f6c7b8d4fce13099be89574510bf4f6e48;p=perl-fuse.git diff --git a/Fuse.pm b/Fuse.pm index 3ab76a0..f156df6 100755 --- 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})) {