Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid
 
PerlMonks  

Re^4: Problems with forking

by cavac (Parson)
on Apr 02, 2011 at 12:52 UTC ( [id://897080] : note . print w/replies, xml ) Need Help??


in reply to Re^3: Problems with forking
in thread Problems with forking

Thanks! This is mostly a remnant of the more complex scripts that actually implement the service.

They do something like this:

if(!$isCompiled && defined($ARGV[1]) && $ARGV[1] eq "--debug") { print("Development INC activated\n\n"); unshift @INC, "/home/cavac/src/maplat_prodit/lib"; unshift @INC, "/home/cavac/src/maplat_framework/lib"; $isDebugging = 1; } else { print("Development INC deactivated\n\n"); $isDebugging = 0; }

Replies are listed 'Best First'.
Re^5: Problems with forking
by Anonymous Monk on Apr 02, 2011 at 14:32 UTC
    See if
    $ perl -le " use if $ENV{maplat_debug}, lib => 666; print for @INC" C:/perl/site/5.12.2/lib/MSWin32-x86-multi-thread C:/perl/site/5.12.2/lib C:/perl/5.12.2/lib/MSWin32-x86-multi-thread C:/perl/5.12.2/lib . $ export maplat_debug=6 $ perl -le " use if $ENV{maplat_debug}, lib => 666; print for @INC" 666 C:/perl/site/5.12.2/lib/MSWin32-x86-multi-thread C:/perl/site/5.12.2/lib C:/perl/5.12.2/lib/MSWin32-x86-multi-thread C:/perl/5.12.2/lib .
    See also Log::Log4perl::CommandLine which I discovered right this minute
    use if Log::Log4perl->get_logger->is_debug, ...; # Then run your program my_program.pl --verbose my_program.pl -v my_program.pl --debug my_program.pl -d my_program.pl --quiet my_program.pl -q my_program.pl --debug my_program.pl --debug MyModule my_program.pl --debug MyModule,MyOtherModule --debug Foo