diff options
-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; |