Bläddra i källkod

get rid of debug print

George Baugh 6 månader sedan
förälder
incheckning
8e286a2d58
1 ändrade filer med 1 tillägg och 1 borttagningar
  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);