|| $c->config->{ 'Plugin::ConfigLoader' }->{ file }
|| $c->path_to( $prefix );
- my ( $extension ) = ( $path =~ m{\.(.{1,4})$} );
+ my ( $extension ) = ( $path =~ m{\.([^/\.]{1,4})$} );
if ( -d $path ) {
$path =~ s{[\/\\]$}{};
=head1 COPYRIGHT AND LICENSE
-Copyright 2006-2009 by Brian Cassidy
+Copyright 2006-2010 by Brian Cassidy
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.