This commit was manufactured by cvs2svn to create tag 'V_9mdk'.V_9mdk

1 files changed, 0 insertions, 43 deletions

diff --git a/perl-install/modparm.pm b/perl-install/modparm.pm
deleted file mode 100644
index f1c81b0dd..000000000
--- a/perl-install/modparm.pm
+++ /dev/null
@@ -1,43 +0,0 @@
-package modparm; # $Id$
-
-use diagnostics;
-use strict;
-
-#-######################################################################################
-#- misc imports
-#-######################################################################################
-use common;
-use log;
-
-
-sub get_options_result($@) {
-    my ($module, @value) = @_;
-    mapn {
-	my ($a, $b) = @_;
-	$b =~ s/^(\w).*/$1/;
-	$a ? "$b=$a" : ();
-    } \@value, [get_options_name($module)];
-}
-
-sub get_options_name($) {
-  my ($module) = @_;
-
-  my @names;
-  my @line = `/sbin/modinfo -p $module`;
-  foreach (@line) {
-      chomp;
-      s/int/i/;
-      s/string/string/;
-      s/short/h/;
-      s/long/l/;
-      s/(\S) array \(min = (\d+), max = (\d+)\)/$2-$3$1/;
-      s/(\d)-\1i/$1i/;
-      if (/parm:\s+(.+)/) {
-	  my ($name, $type) = split '\s', $1;
-	  push @names, "$name ($type)";
-      }
-  }
-  @names;
-}
-
-1;