浏览代码

get rid of debug print

George Baugh 6 月之前
父节点
当前提交
8e286a2d58
共有 1 个文件被更改,包括 1 次插入 和 1 次删除
  1. 1 1
      lib/TPSGI.pm

+ 1 - 1
lib/TPSGI.pm

@@ -562,7 +562,7 @@ sub _app {
 
             # Here's where you want to use Regexp::Debugger in the context of call.pl to debug routes... EX:
             # perl ./call.pl GET /path/to/route
-            print $r->[$_]."\n";
+            #print $r->[$_]."\n";
             $path =~ m/^$r->[$_]$/;
         } 0..scalar(@$r)-1;
         $route_actual = $r->[$matched+1] if defined($matched);