Re: [perl #37029] Perl bug - help
On Tue, Aug 30, 2005 at 06:51:22AM -0700, Yeoman, Dave wrote: > I'm by no means an expert with perl, but I need some Perl help. We have one > x440 server with RH 3.0.5 and perl v5.8.0 built for > i386-linux-thread-multiand and another server x445 upgraded with RH 4.0 perl > v5.8.5 built for i386-linux-thread-multi. The server with Perl v5.8.5 > produces different results from the pop (line 458 below) and I'm not sure > why. Can you help answer my question? RedHat seriously mangled its release of 5.8.0. Amongst other things, its not really 5.8.0 but 5.8.0 + a pile of Unicode patches from the development branch of Perl at the time. There are many, many problems with it. I don't know if your pop() issue is due to this but I would suggest you save yourself some future pain and not use it at all. -- Michael G Schwern [EMAIL PROTECTED] http://www.pobox.com/~schwern Reality is that which, when you stop believing in it, doesn't go away. -- Phillip K. Dick
Re: [perl #37029] Perl bug - help
On Tue, Aug 30, 2005 at 02:29:36PM -0600, Yeoman, Dave wrote: > Peter, > > What we have noticed is; perl v5.8.0 $FindBin::Bin is returning > "/usr/local/bin" and perl v5.8.5 $FindBin::Bin is returning > "/usr/local/bin/" > > The next "/" at the end of bin. > OK, this is problem has been previously resolved. The problem is caused by a patch to the Fedora/RedHat Perl package. See previously resolved ticket #30507. A patch to solve the problem has been accepted for future Perls, but has not been released yet. The patch is available at: http://public.activestate.com/cgi-bin/perlbrowse?patch=24753 An updated Perl with this patch may also be available from RedHat/Fedora. Steve Peters [EMAIL PROTECTED]
RE: [perl #37029] Perl bug - help
Peter, What we have noticed is; perl v5.8.0 $FindBin::Bin is returning "/usr/local/bin" and perl v5.8.5 $FindBin::Bin is returning "/usr/local/bin/" The next "/" at the end of bin. Dave Yeoman System Engineer - Enterprise Performance Galileo International Phone: (303) 397-5721 E-mail: [EMAIL PROTECTED] -Original Message- From: Steve Peters via RT [mailto:[EMAIL PROTECTED] Sent: Tuesday, August 30, 2005 1:50 PM To: Yeoman, Dave Subject: Re: [perl #37029] Perl bug - help On Tue, Aug 30, 2005 at 06:51:22AM -0700, Yeoman, Dave wrote: > # New Ticket Created by "Yeoman, Dave" > # Please include the string: [perl #37029] > # in the subject line of all future correspondence about this issue. > # https://rt.perl.org/rt3/Ticket/Display.html?id=37029 > > > > I'm by no means an expert with perl, but I need some Perl help. We have one > x440 server with RH 3.0.5 and perl v5.8.0 built for > i386-linux-thread-multiand and another server x445 upgraded with RH 4.0 perl > v5.8.5 built for i386-linux-thread-multi. The server with Perl v5.8.5 > produces different results from the pop (line 458 below) and I'm not sure > why. Can you help answer my question? > > If C is returning different results, then the array it is pop'ping off of is likely getting populated in a different order, or with different results. >From what you've included, though, its hard to say. How are the results different in 5.8.5 from 5.8.0? Steve Peters [EMAIL PROTECTED] The information in this electronic mail message is sender's business Confidential and may be legally privileged. It is intended solely for the addressee(s). Access to this Internet electronic mail message by anyone else is unauthorized. If you are not the intended recipient, any disclosure, copying, distribution or any action taken or omitted to be taken in reliance on it is prohibited and may be unlawful. The sender believes that this E-mail and any attachments were free of any virus, worm, Trojan horse, and/or malicious code when sent. This message and its attachments could have been infected during transmission. By reading the message and opening any attachments, the recipient accepts full responsibility for taking protective and remedial action about viruses and other defects. Cendant is not liable for any loss or damage arising in any way from this message or its attachments.
Re: [perl #37029] Perl bug - help
On Tue, Aug 30, 2005 at 06:51:22AM -0700, Yeoman, Dave wrote: > # New Ticket Created by "Yeoman, Dave" > # Please include the string: [perl #37029] > # in the subject line of all future correspondence about this issue. > # https://rt.perl.org/rt3/Ticket/Display.html?id=37029 > > > > I'm by no means an expert with perl, but I need some Perl help. We have one > x440 server with RH 3.0.5 and perl v5.8.0 built for > i386-linux-thread-multiand and another server x445 upgraded with RH 4.0 perl > v5.8.5 built for i386-linux-thread-multi. The server with Perl v5.8.5 > produces different results from the pop (line 458 below) and I'm not sure > why. Can you help answer my question? > > If C is returning different results, then the array it is pop'ping off of is likely getting populated in a different order, or with different results. >From what you've included, though, its hard to say. How are the results different in 5.8.5 from 5.8.0? Steve Peters [EMAIL PROTECTED]
[perl #37029] Perl bug - help
# New Ticket Created by "Yeoman, Dave"
# Please include the string: [perl #37029]
# in the subject line of all future correspondence about this issue.
# https://rt.perl.org/rt3/Ticket/Display.html?id=37029 >
I'm by no means an expert with perl, but I need some Perl help. We have one
x440 server with RH 3.0.5 and perl v5.8.0 built for
i386-linux-thread-multiand and another server x445 upgraded with RH 4.0 perl
v5.8.5 built for i386-linux-thread-multi. The server with Perl v5.8.5
produces different results from the pop (line 458 below) and I'm not sure
why. Can you help answer my question?
NGGF445TEST4 (RH 3.0.5, Perl v5.8.0): GOOD
main::(/usr/local/bin/splfr:441): @dirs =
File::Spec->splitdir($exechomedirs);
main::(/usr/local/bin/splfr:442):printf("\n ***
exechomedirs=$exechomedirs \n");
***
exechomedirs=/usr/local/bin
main::(/usr/local/bin/splfr:458): pop @dirs;
main::(/usr/local/bin/splfr:463): if (File::Spec->can('catdir')) {
main::(/usr/local/bin/splfr:465): $opt_exechome_parent_dir =
File::Spec->catdir(@dirs);
main::(/usr/local/bin/splfr:467): printf("\n ***
opt_exechome_parent_dir=$opt_exechome_parent_dir \n");
***
opt_exechome_parent_dir=/usr/local
NGGF445TEST6 (RH 4.0, Perl v5.8.5): BAD
main::(/usr/local/bin/splfr:441): @dirs =
File::Spec->splitdir($exechomedirs);
main::(/usr/local/bin/splfr:442): printf("\n ***
exechomedirs=$exechomedirs \n");
***
exechomedirs=/usr/local/bin/
main::(/usr/local/bin/splfr:458): pop @dirs;
main::(/usr/local/bin/splfr:463): if (File::Spec->can('catdir')) {
main::(/usr/local/bin/splfr:465): $opt_exechome_parent_dir =
File::Spec->catdir(@dirs);
main::(/usr/local/bin/splfr:467): printf("\n ***
opt_exechome_parent_dir=$opt_exechome_parent_dir \n");
***
opt_exechome_parent_dir=/usr/local/bin
Dave Yeoman
System Engineer - Enterprise Performance
Galileo International
Phone: (303) 397-5721
E-mail: [EMAIL PROTECTED]
The information in this electronic mail message is sender's business
Confidential and may be legally privileged. It is intended solely for the
addressee(s). Access to this Internet electronic mail message by anyone else
is unauthorized. If you are not the intended recipient, any disclosure,
copying, distribution or any action taken or omitted to be taken in reliance
on it is prohibited and may be unlawful.
The sender believes that this E-mail and any attachments were free of any
virus, worm, Trojan horse, and/or malicious code when sent. This message and
its attachments could have been infected during transmission. By reading the
message and opening any attachments, the recipient accepts full
responsibility for taking protective and remedial action about viruses and
other defects. Cendant is not liable for any loss or damage arising in any
way from this message or its attachments.
