my $DEBUG if exists...

[der.hans]

Am 13. May, 2001 schwäzte Nick Estes so:

> > my $gDEBUG = $DEBUG;
> > my $fx = 'initialize';
> > my $DEBUG = $fxDEBUG{$fx} and print "got <$fxDEBUG{$fx}>\n" if exists $fxDEBUG{$fx};
> > print "Entering <$fx>. <$DEBUG> <$fxDEBUG{$fx}> <$gDEBUG>\n";
> >
> > The 3rd line assigns a localized $DEBUG regardless of whether or not the
> > $fxDEBUG{$fx} exists, is defined or just is, e.g. same story using defined
> > or leaving out exists and defined.
> 
> Looks like an operator precedence problem, the binding for 'and' is very
> very loose.  Try:

Actually, the and has no effect. I put it in to help debug the problem.
Reversing the statements or removing the print altogether produce the same
results.

ciao,

der.hans
-- 
# der.hans@LuftHans.com home.pages.de/~lufthans/ www.YourCompanyHere.net ;-)
#  "... the social skills of a cow on acid." - der.hans