diff options
| author | pad <pad@mandriva.com> | 1999-09-14 14:50:50 +0000 |
|---|---|---|
| committer | pad <pad@mandriva.com> | 1999-09-14 14:50:50 +0000 |
| commit | 0aa7a9e98c3b51085c87aa13d61eef8e3f694626 (patch) | |
| tree | 06c3462cb7af3adb37d3a4606dd43d2604b88eec /perl-install/fsedit.pm | |
| parent | 951e65ef820631665dbeddf6cfb43afce034efb9 (diff) | |
| download | drakx-backup-do-not-use-0aa7a9e98c3b51085c87aa13d61eef8e3f694626.tar drakx-backup-do-not-use-0aa7a9e98c3b51085c87aa13d61eef8e3f694626.tar.gz drakx-backup-do-not-use-0aa7a9e98c3b51085c87aa13d61eef8e3f694626.tar.bz2 drakx-backup-do-not-use-0aa7a9e98c3b51085c87aa13d61eef8e3f694626.tar.xz drakx-backup-do-not-use-0aa7a9e98c3b51085c87aa13d61eef8e3f694626.zip | |
*** empty log message ***
Diffstat (limited to 'perl-install/fsedit.pm')
| -rw-r--r-- | perl-install/fsedit.pm | 18 |
1 files changed, 14 insertions, 4 deletions
diff --git a/perl-install/fsedit.pm b/perl-install/fsedit.pm index 055a1d3b8..61a0f2dff 100644 --- a/perl-install/fsedit.pm +++ b/perl-install/fsedit.pm @@ -3,6 +3,9 @@ package fsedit; use diagnostics; use strict; +#-###################################################################################### +#- misc imports +#-###################################################################################### use common qw(:common :constant :functional); use partition_table qw(:types); use partition_table_raw; @@ -10,8 +13,9 @@ use Data::Dumper; use devices; use log; -1; - +#-##################################################################################### +#- Globals +#-##################################################################################### my @suggestions = ( { mntpoint => "/boot", minsize => 10 << 11, size => 16 << 11, type => 0x83 }, { mntpoint => "/", minsize => 50 << 11, size => 100 << 11, type => 0x83 }, @@ -25,8 +29,9 @@ my @suggestions = ( my @suggestions_mntpoints = qw(/mnt/dos); -1; - +#-###################################################################################### +#- Functions +#-###################################################################################### sub suggestions_mntpoint($) { my ($hds) = @_; sort grep { !/swap/ && !has_mntpoint($_, $hds) } @@ -281,3 +286,8 @@ sub move { &$f($v); } } + +#-###################################################################################### +#- Wonderful perl :( +#-###################################################################################### +1; # |