handle /- paths

diff --git a/lib/App/SCS/Plugin/Generate/StaticServer.pm b/lib/App/SCS/Plugin/Generate/StaticServer.pm
index 4090423..e31b773 100644 (file)
--- a/lib/App/SCS/Plugin/Generate/StaticServer.pm
+++ b/lib/App/SCS/Plugin/Generate/StaticServer.pm
@@ -29,7 +29,7 @@ sub dispatch_request {
   my ($self) = @_;
   sub (/**.*) {
     my $path = $_[1];
-    return unless $path =~ s/\/-/\//;
+    return unless $path =~ s/(?=\/|^)-//;
     App::SCS::Web::redispatch_to("/static/${path}");
   },
   sub (/static/...) { $self->_static_handler },

diff --git a/lib/App/SCS/Plugin/Server.pm b/lib/App/SCS/Plugin/Server.pm
index 13cf90b..5759c5f 100644 (file)
--- a/lib/App/SCS/Plugin/Server.pm
+++ b/lib/App/SCS/Plugin/Server.pm
@@ -19,7 +19,7 @@ sub page_dispatchers {
   my ($self) = @_;
   sub (/**.*) {
     my $path = $_[1];
-    return unless $path =~ s/\/-/\//;
+    return unless $path =~ s/(?=\/|^)-//;
     App::SCS::Web::redispatch_to("/static/${path}");
   },
   sub (/static/...) { $self->_static_handler },