From 3962d4b3713e69569b71688e2ccc681c60d97fdb Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 11 Sep 2002 17:10:11 +0000 Subject: use flag "kudzu" for entries automatically handled by drakupdate_fstab --- perl-install/standalone/drakupdate_fstab | 11 +++++++++++ 1 file changed, 11 insertions(+) (limited to 'perl-install') diff --git a/perl-install/standalone/drakupdate_fstab b/perl-install/standalone/drakupdate_fstab index 130e1ab4f..5a70c431a 100755 --- a/perl-install/standalone/drakupdate_fstab +++ b/perl-install/standalone/drakupdate_fstab @@ -81,6 +81,10 @@ sub set_options { my ($iocharset, $codepage) = lang::fs_options(lang::read()); fs::set_default_options($part, 1, $use_supermount, $security, $iocharset, $codepage); + + my ($options, $unknown) = fs::mount_options_unpack($part); + $options->{kudzu} = 1; + fs::mount_options_pack($part, $options, $unknown); } sub set_mount_point { @@ -136,6 +140,13 @@ sub main { print STDERR "Not found in fstab\n" if $::testing; return; } + foreach (@$existing_fstab_entries) { + if ($_->{options} !~ /\bkudzu\b/) { + print STDERR "Not a 'kudzu'-flagged entry\n" if $::testing; + return; + } + } + my ($s) = fs::prepare_write_fstab($fstab_, '', 'keep_smb_credentials'); output($fstab_file, $s); -- cgit v1.2.1