From 99a3bcd38126a38a29f2d09e2221f90418ac1481 Mon Sep 17 00:00:00 2001
From: Jamie Cameron <jcameron@webmin.com>
Date: Tue, 17 Apr 2007 00:39:56 +0000
Subject: [PATCH] Fixed eval of in modules with -

---
 fastrpc.cgi | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/fastrpc.cgi b/fastrpc.cgi
index 3bfb9ef16..5557db6ab 100755
--- a/fastrpc.cgi
+++ b/fastrpc.cgi
@@ -232,7 +232,9 @@ while(1) {
 		print STDERR "fastrpc: eval $arg->{'module'} $arg->{'code'}\n" if ($gconfig{'rpcdebug'});
 		local $rv;
 		if ($arg->{'module'}) {
-			$rv = eval "package $arg->{'module'};\n".
+			local $pkg = $arg->{'module'};
+			$pkg =~ s/[^A-Za-z0-9]/_/g;
+			$rv = eval "package $pkg;\n".
 				   $arg->{'code'}."\n";
 			}
 		else {