From 686d79d76dcb1278a2b8c8b45d6dfd6bbe9a5f2d Mon Sep 17 00:00:00 2001
From: Graham Knop <graham@plainblack.com>
Date: Tue, 11 Aug 2009 22:30:18 +0000
Subject: [PATCH] small fix to regex for asset class names

---
 lib/WebGUI/Asset.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/WebGUI/Asset.pm b/lib/WebGUI/Asset.pm
index 8702b1461..2cb64f5c2 100644
--- a/lib/WebGUI/Asset.pm
+++ b/lib/WebGUI/Asset.pm
@@ -1662,10 +1662,10 @@ Loads an asset module if it's not already in memory. This is a class method. Ret
 
 sub loadModule {
     my ($class, $session, $className) = @_;
-    if ($className !~ /^WebGUI::Asset(?:$|::)/ ) {
+    if ($className !~ /^WebGUI::Asset(?:::\w+)*$/ ) {
         return undef;
     }
-    (my $module = $className . '.pm') =~ s{::|'}{/}g;
+    (my $module = $className . '.pm') =~ s{::}{/}g;
     if (eval { require $module; 1 }) {
         return $className;
     }