Static::Simple 0.15, fixed issue where dirs config option did not quote metachars

[catagits/Catalyst-Plugin-Static-Simple.git] / lib / Catalyst / Plugin / Static / Simple.pm

diff --git a/lib/Catalyst/Plugin/Static/Simple.pm b/lib/Catalyst/Plugin/Static/Simple.pm
index 76e8f28..a36ecb8 100644 (file)
--- a/lib/Catalyst/Plugin/Static/Simple.pm
+++ b/lib/Catalyst/Plugin/Static/Simple.pm
@@ -21,7 +21,8 @@ sub prepare_action {
 
     # is the URI in a static-defined path?
     foreach my $dir ( @{ $config->{dirs} } ) {
-        my $re = ( $dir =~ m{^qr/}xms ) ? eval $dir : qr/^${dir}/;
+        my $dir_re = quotemeta $dir;
+        my $re = ( $dir =~ m{^qr/}xms ) ? eval $dir : qr/^${dir_re}/;
         if ($@) {
             $c->error( "Error compiling static dir regex '$dir': $@" );
         }