# New Ticket Created by James Keenan
# Please include the string: [perl #43639]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=43639 >
---
osname= linux
osvers= 2.6.18.3
arch= i486-linux-gnu-thread-multi
cc= cc
---
Flags:
category=core
severity=medium
ack=no
---
In this configuration package sub runstep() declares a lexical variable
named $a. This is inappropriate, as in Perl 5 $a is used in the sort
function. Please review patch attached which s/\$a/$content/g.
Index: config/auto/perldoc.pm
===================================================================
--- config/auto/perldoc.pm (revision 19692)
+++ config/auto/perldoc.pm (working copy)
@@ -29,27 +29,27 @@
my ( $self, $conf ) = @_;
my $version = 0;
- my $a = capture_output('perldoc -ud c99da7c4.tmp perldoc') || undef;
+ my $content = capture_output('perldoc -ud c99da7c4.tmp perldoc') || undef;
- if ( defined $a ) {
- if ( $a =~ m/^Unknown option:/ ) {
- $a = capture_output('perldoc perldoc') || '';
+ if ( defined $content ) {
+ if ( $content =~ m/^Unknown option:/ ) {
+ $content = capture_output('perldoc perldoc') || '';
$version = 1;
$self->set_result('yes, old version');
}
else {
if ( open my $FH, "<", "c99da7c4.tmp" ) {
local $/;
- $a = <$FH>;
+ $content = <$FH>;
close $FH;
$version = 2;
$self->set_result('yes');
}
else {
- $a = undef;
+ $content = undef;
}
}
- unless ( defined $a && $a =~ m/perldoc/ ) {
+ unless ( defined $content && $content =~ m/perldoc/ ) {
$version = 0;
$self->set_result('failed');
}
---
Summary of my parrot 0.4.13 (r19675) configuration:
configdate='Sat Jul 7 17:34:29 2007 GMT'
Platform:
osname=linux, archname=i686-linux
jitcapable=1, jitarchname=i386-linux,
jitosname=LINUX, jitcpuarch=i386
execcapable=1
perl=/usr/local/bin/perl
Compiler:
cc='cc', ccflags=' -pipe -I/usr/local/include -D_LARGEFILE_SOURCE
-D_FILE_OFFSET_BITS=64 -D_GNU_SOURCE',
Linker and Libraries:
ld='cc', ldflags=' -L/usr/local/lib',
cc_ldflags='',
libs='-lnsl -ldl -lm -lcrypt -lutil -lpthread -lrt'
Dynamic Linking:
share_ext='.so', ld_share_flags='-shared -L/usr/local/lib -fPIC',
load_ext='.so', ld_load_flags='-shared -L/usr/local/lib -fPIC'
Types:
iv=long, intvalsize=4, intsize=4, opcode_t=long, opcode_t_size=4,
ptrsize=4, ptr_alignment=1 byteorder=1234,
nv=double, numvalsize=8, doublesize=8
---
Environment:
HOME =/home/jimk
LANG (unset)
LANGUAGE (unset)
LD_LIBRARY_PATH (unset)
LOGDIR (unset)
PATH
=/usr/local/bin:/usr/local/bin:/usr/bin:/bin:/usr/bin/X11:/usr/games:/usr/local/mysql/bin:/home/jimk/bin:/home/jimk/bin/perl
SHELL =/bin/bash
