Browse Source

Report when the threading is disabled and when the debugging output
is enabled.

Two new environment variables are respected:
SLIC3R_SINGLETHREADED and SLIC3R_DEBUGOUT.

bubnikv 8 years ago
parent
commit
6950ce3bcf
1 changed files with 5 additions and 1 deletions
  1. 5 1
      lib/Slic3r.pm

+ 5 - 1
lib/Slic3r.pm

@@ -34,7 +34,11 @@ BEGIN {
     # in multi-threaded context at all.
     # A good interactive perl debugger is the ActiveState Komodo IDE
     # or the EPIC http://www.epic-ide.org/
-    $have_threads = 0 if (defined($ENV{'SLIC3R_SINGLETHREADED'}) && $ENV{'SLIC3R_SINGLETHREADED'} == 1)
+    $have_threads = 0 if (defined($ENV{'SLIC3R_SINGLETHREADED'}) && $ENV{'SLIC3R_SINGLETHREADED'} == 1);
+    print "Threading disabled\n" if !$have_threads;
+
+    $debug = 1 if (defined($ENV{'SLIC3R_DEBUGOUT'}) && $ENV{'SLIC3R_DEBUGOUT'} == 1);
+    print "Debugging output enabled\n" if $debug;
 }
 
 warn "Running Slic3r under Perl 5.16 is neither supported nor recommended\n"