- Remove use of $] which is deprecated in perl and gone in perl 5.12
This is already being discussed at dev@httpd and will be committed upstream Reported by: brad clawsie <clawsie@fastmail.fm> (on apache@ list) With Hat: apache@
This commit is contained in:
parent
7abc65f67c
commit
6aee801e30
Notes:
svn2git
2021-03-31 03:12:20 +00:00
svn path=/head/; revision=254238
@ -9,7 +9,7 @@
|
||||
|
||||
PORTNAME= apache
|
||||
PORTVERSION= 2.2.15
|
||||
PORTREVISION= 4
|
||||
PORTREVISION= 5
|
||||
CATEGORIES= www
|
||||
MASTER_SITES= ${MASTER_SITE_APACHE_HTTPD}
|
||||
DISTNAME= httpd-${PORTVERSION}
|
||||
|
@ -1,6 +1,14 @@
|
||||
--- ./support/apxs.in.orig 2006-07-11 23:38:44.000000000 -0400
|
||||
+++ ./support/apxs.in 2010-05-06 19:37:54.268730293 -0400
|
||||
@@ -547,7 +547,10 @@
|
||||
+++ ./support/apxs.in 2010-05-12 20:57:31.242745632 -0400
|
||||
@@ -83,7 +83,6 @@
|
||||
my ($argumentative, @ARGV) = @_;
|
||||
my $errs = 0;
|
||||
local $_;
|
||||
- local $[ = 0;
|
||||
|
||||
my @args = split / */, $argumentative;
|
||||
while (@ARGV && ($_ = $ARGV[0]) =~ /^-(.)(.*)/) {
|
||||
@@ -547,7 +546,10 @@
|
||||
$c = '#' if ($opt_A);
|
||||
foreach $lmd (@lmd) {
|
||||
my $what = $opt_A ? "preparing" : "activating";
|
||||
@ -12,7 +20,7 @@
|
||||
# check for open <containers>, so that the new LoadModule
|
||||
# directive always appears *outside* of an <container>.
|
||||
|
||||
@@ -610,7 +613,13 @@
|
||||
@@ -610,7 +612,13 @@
|
||||
}
|
||||
} else {
|
||||
# replace already existing LoadModule line
|
||||
@ -27,7 +35,7 @@
|
||||
}
|
||||
$lmd =~ m|LoadModule\s+(.+?)_module.*|;
|
||||
notice("[$what module `$1' in $CFG_SYSCONFDIR/$CFG_TARGET.conf]");
|
||||
@@ -619,8 +628,7 @@
|
||||
@@ -619,8 +627,7 @@
|
||||
if (open(FP, ">$CFG_SYSCONFDIR/$CFG_TARGET.conf.new")) {
|
||||
print FP $content;
|
||||
close(FP);
|
||||
|
Loading…
Reference in New Issue
Block a user