redispatch /-foo/ style static URLs

diff --git a/lib/SCSite/DevMode.pm b/lib/SCSite/DevMode.pm
index e33ab23..f02dd89 100644 (file)
--- a/lib/SCSite/DevMode.pm
+++ b/lib/SCSite/DevMode.pm
@@ -17,6 +17,11 @@ around dispatch_request => sub {
   my ($orig, $self) = (shift, shift);
   no warnings::illegalproto;
   (
+    sub (/**.*) {
+      my ($self, $path) = @_;
+      return unless $path =~ s/\/-/\//;
+      SCSite::redispatch_to "/static/${path}";
+    },
     sub (/static/...) { $self->_static_handler },
     sub (/favicon + .ico) { $self->_static_handler },
     $self->$orig(@_)