From a1db3d6904f415dfae88c64a2fada1098b5207dc Mon Sep 17 00:00:00 2001
From: Jamie Cameron <jcameron@webmin.com>
Date: Mon, 6 May 2013 17:44:29 -0700
Subject: [PATCH] Use RPM depends system o find packages as a fallback

---
 cpan/download.cgi | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/cpan/download.cgi b/cpan/download.cgi
index 3d7cdb865..7e048db08 100755
--- a/cpan/download.cgi
+++ b/cpan/download.cgi
@@ -74,7 +74,14 @@ elsif ($in{'source'} == 3) {
 		@yum = &list_packaged_modules();
 		foreach $c (@cpan) {
 			($yum) = grep { lc($_->{'mod'}) eq lc($c) } @yum;
-			push(@cpanyum, $yum) if ($yum);
+			if ($yum) {
+				# Module name is known
+				push(@cpanyum, $yum);
+				}
+			elsif ($software::config{'package_system'} eq "rpm") {
+				# Try to install from perl dependency
+				push(@cpanyum, { 'package' => "perl($c)" });
+				}
 			}
 		}
 	if (scalar(@cpan) == scalar(@cpanyum)) {