Re^2: ifdef in modules

You're right...it does work! It looks like mine didn't work due to this (which I failed to put in my sample code...sorry):

use lib './perl5lib';
[download]

That's where I put Bar.pm. Here's the full not-working-as-expected code:

# ./foo.pl:
use lib './perl5lib';
use Bar;

die "outer death";
__END__

# ./perl5lib/Bar.pm:
package Bar;

=begin DEBUGGING
die "inner death";
=cut

1;
__END__
[download]

That said, I'm still not sure why this doesn't work. I'm guessing it has something to do with 'use lib' being loaded after 'ifdef', and 'ifdef' isn't able to work its magic on anything that wasn't in @INC when it was loaded.

Given the restriction that the module in question must be put in './perl5lib', can anyone offer any suggestions for workarounds?

Thanks!

Comment on Re^2: ifdef in modules Select or Download Code

Replies are listed 'Best First'.
Re^3: ifdef in modules by tlm (Prior) on Jun 14, 2005 at 17:49 UTC
I think that by the time `lib` modifies `@INC`, `ifdef` has already done its thing. One possible workaround would go something like: `$ PERL5LIB=perl5lib:$PERL5LIB perl -Mifdef=DEBUGGING foo.pl` [download] the lowliest monk	[reply] [d/l]
Re^4: ifdef in modules by clee (Novice) on Jun 14, 2005 at 19:50 UTC
Hmm...that still doesn't work for me. I'm on a Win32 system though, so I tried: `set PERL5LIB=perl5lib;%PERL5LIB% perl -Mifdef=DEBUGGING foo.pl` [download] I also tried changing foo.pl like so: `# ./foo.pl: use lib './perl5lib'; use ifdef qw/DEBUGGING/; use Bar; =begin DEBUGGING die "limbo"; =cut die "outer death"; __END__` [download] Here, the 'use lib' clearly comes before 'use ifdef', but still no luck. I should also note that, unexpectedly, this doesn't output 'limbo' either (when run as 'perl foo.pl'). However, that is another issue that is, I believe, unrelated to 'use lib'. In the thread I originally referenced, it indicates that "this pragma is only intended to be called from the commandline" anyway.	[reply] [d/l] [select]
Re^3: ifdef in modules by tlm (Prior) on Jun 14, 2005 at 21:33 UTC
Try this: `% perl -Mlib=perl5lib -Mifdef=DEBUGGING foo.pl` [download] the lowliest monk	[reply] [d/l]
Re^4: ifdef in modules by clee (Novice) on Jun 15, 2005 at 00:32 UTC
Still no joy. Thanks for the suggestion though.	[reply]