Bug 38957 – Perl::Tidy generates a warning when run with Perl 5.8.3

• Product: Gentoo Linux
• Status: RESOLVED UPSTREAM

[Description Gabriel Ebner 2004-01-21 14:09:26 UTC]

I get a warning whenever executing perltidy:

Possible precedence problem on bitwise & operator at /usr/lib/perl5/vendor_perl/5.8.3/Perl/Tidy.pm line 1677.

This could be easily fixed by applying the following patch on /usr/lib/perl5/vendor_perl/5.8.3/Perl/Tidy.pm:

1677c1677
<     return ( $os eq "2000" & $major != 5 ) ? "NT4" : $os;
---
>     return ( ($os eq "2000") & ($major != 5) ) ? "NT4" : $os;


Reproducible: Always
Steps to Reproduce:
1. emerge =dev-lang/perl-5.8.3 =dev-perl/perltidy-20020425-r1
2. echo | perltidy
3. Watch the warning.

Actual Results:  
I got the warning.

Expected Results:  
I should have got no warning.

Portage 2.0.49-r20 (default-x86-1.4, gcc-3.2.3, glibc-2.3.2-r3, 2.6.1-mm2)
=================================================================
System uname: 2.6.1-mm2 i686 mobile AMD Athlon(tm) XP 2200+ 
Gentoo Base System version 1.4.3.12
ACCEPT_KEYWORDS="x86"
AUTOCLEAN="yes"
CFLAGS="-O3 -march=athlon-xp -mcpu=athlon-xp -pipe -fomit-frame-pointer"
CHOST="i686-pc-linux-gnu"
COMPILER="gcc3"
CONFIG_PROTECT="/etc /usr/X11R6/lib/X11/xkb /usr/kde/2/share/config
/usr/kde/3/share/config /usr/share/config /usr/share/texmf/tex/generic/config/
/usr/share/texmf/tex/platex/config/ /var/qmail/control"
CONFIG_PROTECT_MASK="/etc/gconf /etc/env.d"
CXXFLAGS="-O3 -march=athlon-xp -mcpu=athlon-xp -pipe -fomit-frame-pointer"
DISTDIR="/usr/portage/distfiles"
FEATURES="autoaddcvs ccache prelink sandbox"
GENTOO_MIRRORS="ftp://gentoo.inode.at/source/
http://212.219.247.21/sites/www.ibiblio.org/gentoo/
http://212.219.247.16/sites/www.ibiblio.org/gentoo/
http://212.219.247.13/sites/www.ibiblio.org/gentoo/"
MAKEOPTS="-j4"
PKGDIR="/usr/portage/packages"
PORTAGE_TMPDIR="/var/tmp"
PORTDIR="/usr/portage"
PORTDIR_OVERLAY="/usr/local/portage"
SYNC="rsync://rsync.gentoo.org/gentoo-portage"
USE="3dnow X Xaw3d aalib acl acpi alsa apache2 avi berkdb bidi bonobo cdr crypt
cscope cups dga dnd dv dvd emacs emacs-w3 encode esd ethereal evo fam flac
foomaticdb freetype fs gb gcl gd gdbm gif gmtsuppl gmttria gnome gpm gps
gstreamer gtk gtk2 guile imagemagick imap imlib imlib2 ipv6 jack jack-caps
jack-tmpfs javascript jpeg kerberos lcd lcms ldap leim libdsk libwww maildir
mbox mcal mikmod mmx mozilla moznocompose mozsvg mozxmlterm mpeg mpeg4 mule
ncurses nls nocd nptl oggvorbis oldworld opengl opie pam pcmcia pda pdflib perl
pic plotutils png pnp ppds python quicktime readline ruby samba sasl scanner sdl
slang slp snmp sox speex spell sse ssl stroke t1lib tcltk tetex threads tiff
transcode truetype trusted type1 unicode usb v4l vim-with-x wmf x86 xine xml
xml2 xmms xv zlib zvbi"

[Comment 1 Eric Sammer (RETIRED) 2004-01-25 12:33:35 UTC]

This is a code issue with Perl::Tidy and isn't Gentoo specific. I'll report this upstream. Thanks.