add mes5-2.6.33 branch

1 files changed, 27 insertions, 0 deletions

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;