From f39f307ded336dddb9a4767b1128b82471446412 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sat, 11 Mar 2000 01:11:06 +0000
Subject: no_comment

---
 perl-install/modules.pm | 5 +++++
 1 file changed, 5 insertions(+)

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

diff --git a/perl-install/modules.pm b/perl-install/modules.pm
index 8ed1be0c9..c288168dd 100644
--- a/perl-install/modules.pm
+++ b/perl-install/modules.pm
@@ -338,6 +338,11 @@ sub text2driver($) {
     die "$text is not a valid module description";
 }
 
+sub get_alias {
+    my ($alias) = @_;
+    $conf{$alias}{alias};
+}
+
 sub add_alias($$) { 
     my ($alias, $name) = @_;
     /\Q$alias/ && $conf{$_}{alias} && $conf{$_}{alias} eq $name and return $_ foreach keys %conf;
-- 
cgit v1.2.1