remove pointless warn

diff --git a/cgi-bin/sdl.cgi b/cgi-bin/sdl.cgi
index 5730285..b3c1579 100755 (executable)
--- a/cgi-bin/sdl.cgi
+++ b/cgi-bin/sdl.cgi
@@ -28,7 +28,7 @@ sub page {
 dispatch [
   sub (GET + /) { redispatch_to '/index.html' },
   sub (GET + /**/) {
-    redispatch_to do { my $x = join('/','',$_[1],'index.html'); warn $x; $x };
+    redispatch_to join('/','',$_[1],'index.html');
   },
   sub (.html) {
     filter_response { $self->render_html($_[1]) }