From 9f1dfb0e6b859cba0ebda5f945987ba6c24a596b Mon Sep 17 00:00:00 2001
From: Mystery Man <unknown@mandriva.org>
Date: Tue, 20 Nov 2001 23:35:06 +0000
Subject: This commit was manufactured by cvs2svn to create branch
 'PCMCIA_CS_DISTRO'.

---
 perl-install/modparm.pm | 43 -------------------------------------------
 1 file changed, 43 deletions(-)
 delete mode 100644 perl-install/modparm.pm

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

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