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;
    }

[download]

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
.

    [download]
    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

    [download]
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom