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/modparm.pm | 18 +++++++++++++-----
 1 file changed, 13 insertions(+), 5 deletions(-)

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

diff --git a/perl-install/modparm.pm b/perl-install/modparm.pm
index cc7b0efb4..438b79dcd 100644
--- a/perl-install/modparm.pm
+++ b/perl-install/modparm.pm
@@ -3,12 +3,21 @@ package modparm;
 use diagnostics;
 use strict;
 
+#-######################################################################################
+#- misc imports
+#-######################################################################################
 use common qw(:common :functional);
 use log;
 
 
+#-#####################################################################################
+#- Globals
+#-#####################################################################################
 my %modparm_hash;
 
+#-######################################################################################
+#- Functions
+#-######################################################################################
 sub read_modparm_file($) {
   my ($file) = @_;
   my @line;
@@ -50,8 +59,7 @@ sub get_options_name($) {
   @names;
 }
 
-if ($::testing) {
-    read_modparm_file("/tmp/modparm.txt");
-}
-
-1;
+#-######################################################################################
+#- Wonderful perl :(
+#-######################################################################################
+1; # 
-- 
cgit v1.2.1