1 files changed, 11 insertions, 0 deletions
diff --git a/perl-install/modalias.pm b/perl-install/modalias.pm
index 6ae09b9cc..516a2dd01 100644
--- a/perl-install/modalias.pm
+++ b/perl-install/modalias.pm
@@ -59,6 +59,17 @@ sub parse_path {
     }
 }
 
+sub parse_file_modules {
+    my ($path) = @_;
+    my %modules;
+    foreach (cat_($path)) {
+        if (my ($alias, undef, $module) = $_ =~ $alias_re) {
+            push @{$modules{$module}}, $alias;
+        }
+    }
+    \%modules;
+}
+
 sub get_alias_groups() {
     @alias_groups = map {
         my $group = {};