From 5777ef8730ac5584780d1a534cd5c1eb5a3c10b6 Mon Sep 17 00:00:00 2001
From: Spoon M <spoonm@gmail.com>
Date: Sat, 9 Jul 2005 21:03:24 +0000
Subject: [PATCH] wee

git-svn-id: file:///home/svn/incoming/trunk@2687 4d416f70-5f16-0410-b530-b9f4589650da
---
 dev/adminy/movey_requires.pl | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/dev/adminy/movey_requires.pl b/dev/adminy/movey_requires.pl
index 885735b32c..ca5a54ba0a 100644
--- a/dev/adminy/movey_requires.pl
+++ b/dev/adminy/movey_requires.pl
@@ -18,6 +18,10 @@ while(<STDIN>) {
 sub old_to_new {
 	my $name = shift;
 
+	if(uc($name) eq $name) {
+		return(lc($name));
+	}
+
 	$name =~ s/^([A-Z])/lc($1)/ge;
 	$name =~ s/([A-Z])/"_" . lc($1)/ge;