diff options
author | bubnikv <bubnikv@gmail.com> | 2016-09-26 13:57:15 +0300 |
---|---|---|
committer | bubnikv <bubnikv@gmail.com> | 2016-09-26 13:57:15 +0300 |
commit | 6950ce3bcfe4220914b4cd0a257c1dcb827a1554 (patch) | |
tree | 8988b57fe50af058a1d00aa924738085dd34bb88 /lib | |
parent | c514e731da7e0a2a49549dd111c063d2ab5e9c41 (diff) |
Report when the threading is disabled and when the debugging output
is enabled.
Two new environment variables are respected:
SLIC3R_SINGLETHREADED and SLIC3R_DEBUGOUT.
Diffstat (limited to 'lib')
-rw-r--r-- | lib/Slic3r.pm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lib/Slic3r.pm b/lib/Slic3r.pm index 7dfa9063f..44b2a9bf5 100644 --- a/lib/Slic3r.pm +++ b/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" |