From 8444c109862bd7d1be7aea4c6f9e941d0f29f1ca Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Wed, 6 Apr 2011 00:48:27 -0500
Subject: handle more weirdly named files that get loaded

---
 lib/Class/Refresh.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/Class/Refresh.pm b/lib/Class/Refresh.pm
index 5c644ac..62a64cd 100644
--- a/lib/Class/Refresh.pm
+++ b/lib/Class/Refresh.pm
@@ -224,7 +224,7 @@ sub _mod_to_file {
     my $class = shift;
     my ($mod) = @_;
 
-    return $mod if $mod =~ /\.p[lm]$/;
+    return $mod unless $mod =~ /^\w+(?:::\w+)*$/;
 
     my $file = $mod;
     $file =~ s{::}{/}g;
-- 
cgit v1.2.3-54-g00ecf