Possible precedence problem on bitwise ^ operator

With maintperl and bleedperl there is a new warning (see subject) in
Tk::Scale. The effecting code snippet is

 if (($w->cget('-from') > $w->cget('-to')) ^ ($dir eq 'up'))
  {
   $inc = -$inc
  }

I feel there are two many parentheses to justify this warning's
existance. Do I really have to { local $^W = 0 ... } or use the
workaround suggested in perldiag?

Regards,
	Slaven

-- 
Slaven Rezic - slaven@rezic.de

Tk-AppMaster: a perl/Tk module launcher designed for handhelds
	http://tk-appmaster.sf.net

• Possible precedence problem on bitwise ^ operator by Slaven Rezic
• Re: Possible precedence problem on bitwise ^ operator by Rafael Garcia-Suarez
• Re: Possible precedence problem on bitwise ^ operator by sthoenna
• Re: Possible precedence problem on bitwise ^ operator by Rafael Garcia-Suarez