From 4781e491c32fdfe0dbe3cf97a8aca90040a9406b Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 17 Apr 2003 11:34:32 +0000 Subject: new perl_checker compliance --- perl-install/standalone/drakupdate_fstab | 16 +++++++++------- 1 file changed, 9 insertions(+), 7 deletions(-) (limited to 'perl-install/standalone/drakupdate_fstab') diff --git a/perl-install/standalone/drakupdate_fstab b/perl-install/standalone/drakupdate_fstab index 94f1a5d54..aee783cd6 100755 --- a/perl-install/standalone/drakupdate_fstab +++ b/perl-install/standalone/drakupdate_fstab @@ -79,11 +79,13 @@ sub device_name_to_entry { } sub set_options { - my ($part, $use_supermount) = @_; - my $security = security::level::get(); - my ($iocharset, $codepage) = lang::fs_options(lang::read()); + my ($part, $useSupermount) = @_; - fs::set_default_options($part, 1, $use_supermount, $security, $iocharset, $codepage); + fs::set_default_options($part, + is_removable => 1, + useSupermount => $useSupermount, + security => security::level::get(), + lang::fs_options(lang::read())); my ($options, $unknown) = fs::mount_options_unpack($part); $options->{kudzu} = 1 if !$no_flag; @@ -128,15 +130,15 @@ sub main { print STDERR "Already in fstab\n" if $::testing; return; } - my $use_supermount = 0; #- force non-supermount, supermount is too buggy - set_options($part, $use_supermount); + my $useSupermount = 0; #- force non-supermount, supermount is too buggy + set_options($part, $useSupermount); set_mount_point($part, $fstab) or return; my ($line) = fs::prepare_write_fstab([$part]); append_to_file($fstab_file, $line) if $line; if ($::auto) { - print $part->{mntpoint}, " ", $use_supermount ? 'supermount' : 'user', "\n"; + print $part->{mntpoint}, " ", $useSupermount ? 'supermount' : 'user', "\n"; } } else { if (!@$existing_fstab_entries) { -- cgit v1.2.1