From 530a16ec071db0e24e6e949e265a96848864967c Mon Sep 17 00:00:00 2001
From: Antoine Ginies <aginies@mandriva.com>
Date: Wed, 19 Jan 2011 10:44:49 +0000
Subject: add mes5-2.6.33 branch

---
 perl-install/modules/parameters.pm | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)
 create mode 100644 perl-install/modules/parameters.pm

(limited to 'perl-install/modules/parameters.pm')

diff --git a/perl-install/modules/parameters.pm b/perl-install/modules/parameters.pm
new file mode 100644
index 000000000..2a6d9df8f
--- /dev/null
+++ b/perl-install/modules/parameters.pm
@@ -0,0 +1,27 @@
+package modules::parameters; # $Id: parameters.pm 215411 2007-04-25 12:26:16Z pixel $
+
+use diagnostics;
+use strict;
+
+#-######################################################################################
+#- misc imports
+#-######################################################################################
+use common;
+use modules;
+
+
+sub parameters {
+  my ($module) = @_;
+
+  if (!$::isStandalone && !$::testing) {
+      ($module) = modules::extract_modules('/tmp', $module);
+  }
+
+  map {
+      chomp;
+      (my $name, $_) = /(\w+):(.*)/s or warn "modules::parameters::parameters($module): unknown line\n";
+      [ $name, $_ ];
+  } common::join_lines(run_program::get_stdout('modinfo', '-p', $module));
+}
+
+1;
-- 
cgit v1.2.1