You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by pg...@apache.org on 2005/09/02 06:24:32 UTC
svn commit: r266261 - in /perl/modperl/trunk/lib/ModPerl: BuildMM.pm
BuildOptions.pm
Author: pgollucci
Date: Thu Sep 1 21:24:29 2005
New Revision: 266261
URL: http://svn.apache.org/viewcvs?rev=266261&view=rev
Log:
s/my(/my (/g
Modified:
perl/modperl/trunk/lib/ModPerl/BuildMM.pm
perl/modperl/trunk/lib/ModPerl/BuildOptions.pm
Modified: perl/modperl/trunk/lib/ModPerl/BuildMM.pm
URL: http://svn.apache.org/viewcvs/perl/modperl/trunk/lib/ModPerl/BuildMM.pm?rev=266261&r1=266260&r2=266261&view=diff
==============================================================================
--- perl/modperl/trunk/lib/ModPerl/BuildMM.pm (original)
+++ perl/modperl/trunk/lib/ModPerl/BuildMM.pm Thu Sep 1 21:24:29 2005
@@ -153,7 +153,7 @@
#skip .xs -> .so if we are linking static
my $name = $self->{NAME};
unless ($always_dynamic{$name}) {
- if (my($xs) = keys %{ $self->{XS} }) {
+ if (my ($xs) = keys %{ $self->{XS} }) {
$self->{HAS_LINK_CODE} = 0;
print "$name will be linked static\n";
#propagate static xs module to src/modules/perl/Makefile
@@ -236,7 +236,7 @@
}
}
- while (my($pm, $blib) = each %pms) {
+ while (my ($pm, $blib) = each %pms) {
$pm =~ s|/\./|/|g; # clean the path
$blib =~ s|/\./|/|g; # clean the path
my @segm = splitdir $blib;
@@ -286,7 +286,7 @@
sub glue_pod {
die "expecting 3 arguments: pm, pod, dst" unless @ARGV == 3;
- my($pm, $pod, $dst) = @ARGV;
+ my ($pm, $pod, $dst) = @ARGV;
# it's possible that the .pm file is not existing
# (e.g. ThreadMutex.pm is not created on unless
@@ -317,7 +317,7 @@
$build ||= build_config();
my $pm = $self->{PM};
- while (my($k, $v) = each %PM) {
+ while (my ($k, $v) = each %PM) {
if (-e $k) {
$pm->{$k} = $v;
}
@@ -335,7 +335,7 @@
my $apr_config;
sub ModPerl::BuildMM::MY::libscan {
- my($self, $path) = @_;
+ my ($self, $path) = @_;
$apr_config ||= $build->get_apr_config();
Modified: perl/modperl/trunk/lib/ModPerl/BuildOptions.pm
URL: http://svn.apache.org/viewcvs/perl/modperl/trunk/lib/ModPerl/BuildOptions.pm?rev=266261&r1=266260&r2=266261&view=diff
==============================================================================
--- perl/modperl/trunk/lib/ModPerl/BuildOptions.pm (original)
+++ perl/modperl/trunk/lib/ModPerl/BuildOptions.pm Thu Sep 1 21:24:29 2005
@@ -27,7 +27,7 @@
use File::Spec;
sub init {
- my($self, $build) = @_;
+ my ($self, $build) = @_;
#@ARGV should override what's in .makepl_args.mod_perl2
#but @ARGV might also override the default MP_OPTS_FILE
@@ -68,7 +68,7 @@
}
sub parse {
- my($self, $lines, $opts) = @_;
+ my ($self, $lines, $opts) = @_;
$opts = VERBOSE|UNKNOWN_FATAL unless defined $opts;
my $table = table();
@@ -100,7 +100,7 @@
}
if (/^MP_/) {
- my($key, $val) = split $param_qr, $_, 2;
+ my ($key, $val) = split $param_qr, $_, 2;
$val ||= "" unless defined $val && $val eq '0';
$continue = $val =~ s/\\$// ? $key : "";
@@ -185,7 +185,7 @@
}
sub parse_table {
- my($fh) = @_;
+ my ($fh) = @_;
my %table;
local $_;
@@ -194,7 +194,7 @@
s/^\s+//; s/\s+$//;
next if /^\#/ || /^$/;
last if /^__END__/;
- my($key, $append, $val) = split /\s+/, $_, 3;
+ my ($key, $append, $val) = split /\s+/, $_, 3;
$table{'MP_' . $key} = { append => $append, val => $val };
}