diff options
author | Jesse Luehrs <doy@tozt.net> | 2011-04-06 00:48:27 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2011-04-06 00:48:27 -0500 |
commit | 8444c109862bd7d1be7aea4c6f9e941d0f29f1ca (patch) | |
tree | e54f9f96bd1d4fd5fc28aece32e7fc51c84cc865 | |
parent | 08d862b75eb1eac8a4d167677ab7013df816d6fc (diff) | |
download | class-refresh-8444c109862bd7d1be7aea4c6f9e941d0f29f1ca.tar.gz class-refresh-8444c109862bd7d1be7aea4c6f9e941d0f29f1ca.zip |
handle more weirdly named files that get loaded0.01
-rw-r--r-- | lib/Class/Refresh.pm | 2 |
1 files changed, 1 insertions, 1 deletions
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; |