Gentoo Websites Logo
Go to: Gentoo Home Documentation Forums Lists Bugs Planet Store Wiki Get Gentoo!
Bug 38957 - Perl::Tidy generates a warning when run with Perl 5.8.3
Summary: Perl::Tidy generates a warning when run with Perl 5.8.3
Status: RESOLVED UPSTREAM
Alias: None
Product: Gentoo Linux
Classification: Unclassified
Component: New packages (show other bugs)
Hardware: All Linux
: High minor
Assignee: Gentoo Perl team
URL:
Whiteboard:
Keywords:
Depends on:
Blocks:
 
Reported: 2004-01-21 14:09 UTC by Gabriel Ebner
Modified: 2004-01-25 12:33 UTC (History)
0 users

See Also:
Package list:
Runtime testing required: ---

Attachments
Add an attachment (proposed patch, testcase, etc.)

Note You need to log in before you can comment on or make changes to this bug.
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) gentoo-dev 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.