George Baugh преди 1 година
родител
ревизия
73f376e772
променени са 1 файла, в които са добавени 2 реда и са изтрити 1 реда
  1. 2 1
      lib/TPSGI.pm

+ 2 - 1
lib/TPSGI.pm

@@ -39,10 +39,11 @@ use Log::Dispatch::FileRotate;
 use Config::Simple;
 
 # Building in observability, whee
+my $DO_PROFILE;
 BEGIN {
     # If we have manually set the NYTPROF var, use it and don't try to control
     # When to stop or start it.
-    my $DO_PROFILE = $ENV{NYTPROF} ? 0 : 1;
+    $DO_PROFILE = $ENV{NYTPROF} ? 0 : 1;
     $ENV{NYTPROF} ||= "sigexit=int:savesrc=0:start=no";
     require Devel::NYTProf;
 }