Bug#577239: apxs2 is broken with Perl 5.12
Package: apache2-threaded-dev
Version: 2.2.15-3
Severity: important
Tags: experimental
apxs2 assigns to $[ which has been deprecated for a long time and is now an
error with Perl 5.12 (perl 5.12.0~rc3-1). Patch attached.
-- System Information:
Debian Release: squeeze/sid
APT prefers unstable
APT policy: (500, 'unstable'), (1, 'experimental')
Architecture: amd64 (x86_64)
Kernel: Linux 2.6.33.2 (SMP w/4 CPU cores)
Locale: LANG=en_US.UTF-8, LC_CTYPE=en_US.UTF-8 (charmap=UTF-8)
Shell: /bin/sh linked to /bin/dash
Versions of packages apache2-threaded-dev depends on:
ii apache2.2-common 2.2.15-3 Apache HTTP Server common files
ii libaprutil1-dev 1.3.9+dfsg-3 The Apache Portable Runtime Utilit
ii openssl 0.9.8n-1 Secure Socket Layer (SSL) binary a
apache2-threaded-dev recommends no packages.
apache2-threaded-dev suggests no packages.
-- no debconf information
--- a/support/apxs.in 2006-07-12 05:38:44.000000000 +0200
+++ b/support/apxs.in 2010-04-08 20:29:43.000000000 +0200
@@ -83,7 +83,6 @@
my ($argumentative, @ARGV) = @_;
my $errs = 0;
local $_;
- local $[ = 0;
my @args = split / */, $argumentative;
while (@ARGV && ($_ = $ARGV[0]) =~ /^-(.)(.*)/) {
@@ -93,7 +92,7 @@
last;
}
my $pos = index($argumentative,$first);
- if ($pos >= $[) {
+ if ($pos >= 0) {
if ($pos < $#args && $args[$pos+1] eq ':') {
shift @ARGV;
if ($rest eq '') {
Reply to: