From 0aa7a9e98c3b51085c87aa13d61eef8e3f694626 Mon Sep 17 00:00:00 2001
From: pad <pad@mandriva.com>
Date: Tue, 14 Sep 1999 14:50:50 +0000
Subject: *** empty log message ***

---
 perl-install/fsedit.pm | 18 ++++++++++++++----
 1 file changed, 14 insertions(+), 4 deletions(-)

(limited to 'perl-install/fsedit.pm')

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; # 
-- 
cgit v1.2.1