summaryrefslogtreecommitdiffstats
path: root/perl-install/modparm.pm
diff options
context:
space:
mode:
authorpad <pad@mandriva.com>1999-09-14 14:50:50 +0000
committerpad <pad@mandriva.com>1999-09-14 14:50:50 +0000
commit0aa7a9e98c3b51085c87aa13d61eef8e3f694626 (patch)
tree06c3462cb7af3adb37d3a4606dd43d2604b88eec /perl-install/modparm.pm
parent951e65ef820631665dbeddf6cfb43afce034efb9 (diff)
downloaddrakx-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/modparm.pm')
-rw-r--r--perl-install/modparm.pm18
1 files changed, 13 insertions, 5 deletions
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; #