summaryrefslogtreecommitdiffstats
path: root/perl-install/devices.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>1999-10-29 16:37:52 +0000
committerFrancois Pons <fpons@mandriva.com>1999-10-29 16:37:52 +0000
commit2b049f0f6d1972e445829a2503eaf6d306896e9d (patch)
treea66afbe9702d516675a3bea370ced51ed5c8c616 /perl-install/devices.pm
parentaa912d0daeaa6d4d84addfd2fc0ebba11e137edd (diff)
downloaddrakx-2b049f0f6d1972e445829a2503eaf6d306896e9d.tar
drakx-2b049f0f6d1972e445829a2503eaf6d306896e9d.tar.gz
drakx-2b049f0f6d1972e445829a2503eaf6d306896e9d.tar.bz2
drakx-2b049f0f6d1972e445829a2503eaf6d306896e9d.tar.xz
drakx-2b049f0f6d1972e445829a2503eaf6d306896e9d.zip
*** empty log message ***
Diffstat (limited to 'perl-install/devices.pm')
-rw-r--r--perl-install/devices.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/devices.pm b/perl-install/devices.pm
index 01b200632..c1cd5f397 100644
--- a/perl-install/devices.pm
+++ b/perl-install/devices.pm
@@ -90,7 +90,7 @@ sub make($) {
"cdu31a" => [ c::S_IFBLK(), 15, 0 ],
"cdu535" => [ c::S_IFBLK(), 24, 0 ],
"cm206cd" => [ c::S_IFBLK(), 32, 0 ],
- "tty" => [ c::S_IFCHR(), 5, 0 ],
+ "tty" => [ c::S_IFCHR(), 5, 0 ],
"gscd" => [ c::S_IFBLK(), 16, 0 ],
"mcd" => [ c::S_IFBLK(), 23, 0 ],
"mcdx" => [ c::S_IFBLK(), 20, 0 ],
pan> || $entry->{attributes} & $SYSTEM_ATTR; } sub is_directory($) { my ($entry) = @_; $entry->{attributes} & $DIRECTORY_ATTR && $entry->{name} !~ /^\.\.? / && !is_special_entry($entry); } sub is_volume($) { my ($entry) = @_; !is_special_entry($entry) && $entry->{attributes} & $VOLUME_LABEL_ATTR; } sub is_file($) { my ($entry) = @_; !is_special_entry($entry) && !is_directory($entry) && !is_volume($entry) && $entry->{length}; } sub is_special_entry($) { my ($entry) = @_; my ($c) = unpack "C", $entry->{name}; #- skip empty slots, deleted files, and 0xF6?? (taken from kernel) $c == 0 || $c == $DELETED_FLAG || $c == 0xF6 and return 1; $entry->{attributes} == $VFAT_ATTR and return 1; 0; } #- return true if entry has been modified #- curr_dir_name is added to contains current directory name, "" for root. sub remap { my ($_curr_dir_name, $entry) = @_; is_special_entry($entry) and return; my $cluster = get_cluster($entry); my $new_cluster = resize_fat::c_rewritten::fat_remap($cluster); #-print "remapping cluster ", get_cluster($entry), " to $new_cluster"; $new_cluster == $cluster and return; #- no need to modify set_cluster($entry, $new_cluster); 1; }