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:32:01 UTC
svn commit: r266276 - in /perl/modperl/trunk/ModPerl-Registry:
lib/ModPerl/RegistryCooker.pm lib/ModPerl/RegistryLoader.pm t/304.t
Author: pgollucci
Date: Thu Sep 1 21:31:53 2005
New Revision: 266276
URL: http://svn.apache.org/viewcvs?rev=266276&view=rev
Log:
s/my(/my (/g
Modified:
perl/modperl/trunk/ModPerl-Registry/lib/ModPerl/RegistryCooker.pm
perl/modperl/trunk/ModPerl-Registry/lib/ModPerl/RegistryLoader.pm
perl/modperl/trunk/ModPerl-Registry/t/304.t
Modified: perl/modperl/trunk/ModPerl-Registry/lib/ModPerl/RegistryCooker.pm
URL: http://svn.apache.org/viewcvs/perl/modperl/trunk/ModPerl-Registry/lib/ModPerl/RegistryCooker.pm?rev=266276&r1=266275&r2=266276&view=diff
==============================================================================
--- perl/modperl/trunk/ModPerl-Registry/lib/ModPerl/RegistryCooker.pm (original)
+++ perl/modperl/trunk/ModPerl-Registry/lib/ModPerl/RegistryCooker.pm Thu Sep 1 21:31:53 2005
@@ -103,7 +103,7 @@
#########################################################################
sub new {
- my($class, $r) = @_;
+ my ($class, $r) = @_;
my $self = bless {}, $class;
$self->init($r);
return $self;
@@ -575,7 +575,7 @@
sub shebang_to_perl {
my $self = shift;
- my($line) = ${ $self->{CODE} } =~ /^(.*)$/m;
+ my ($line) = ${ $self->{CODE} } =~ /^(.*)$/m;
my @cmdline = split /\s+/, $line;
return "" unless @cmdline;
return "" unless shift(@cmdline) =~ /^\#!/;
@@ -617,7 +617,7 @@
*chdir_file = \&NOP;
sub chdir_file_normal {
- my($self, $dir) = @_;
+ my ($self, $dir) = @_;
$dir ||= File::Basename::dirname($self->{FILENAME});
$self->debug("chdir $dir") if DEBUG & D_NOISE;
chdir $dir or die "Can't chdir to $dir: $!";
@@ -662,7 +662,7 @@
#########################################################################
sub compile {
- my($self, $eval) = @_;
+ my ($self, $eval) = @_;
$self->debug("compiling $self->{FILENAME}") if DEBUG && D_COMPILE;
@@ -711,10 +711,10 @@
#########################################################################
sub install_aliases {
- my($class, $rh_aliases) = @_;
+ my ($class, $rh_aliases) = @_;
no strict 'refs';
- while (my($k,$v) = each %$rh_aliases) {
+ while (my ($k,$v) = each %$rh_aliases) {
if (my $sub = *{$v}{CODE}){
*{ $class . "::$k" } = $sub;
}
@@ -733,7 +733,7 @@
}
sub log_error {
- my($self, $msg) = @_;
+ my ($self, $msg) = @_;
my $class = ref $self;
$self->{REQ}->log_error($msg);
@@ -763,7 +763,7 @@
# cache_table() to point to another function, this function will fail.
sub uncache_myself {
my $package = scalar caller;
- my($class) = __PACKAGE__->cache_table_common();
+ my ($class) = __PACKAGE__->cache_table_common();
unless (defined $class) {
Apache2->warn("$$: cannot figure out cache symbol table for $package");
Modified: perl/modperl/trunk/ModPerl-Registry/lib/ModPerl/RegistryLoader.pm
URL: http://svn.apache.org/viewcvs/perl/modperl/trunk/ModPerl-Registry/lib/ModPerl/RegistryLoader.pm?rev=266276&r1=266275&r2=266276&view=diff
==============================================================================
--- perl/modperl/trunk/ModPerl-Registry/lib/ModPerl/RegistryLoader.pm (original)
+++ perl/modperl/trunk/ModPerl-Registry/lib/ModPerl/RegistryLoader.pm Thu Sep 1 21:31:53 2005
@@ -39,7 +39,7 @@
}
sub handler {
- my($self, $uri, $filename, $virthost) = @_;
+ my ($self, $uri, $filename, $virthost) = @_;
# set the inheritance rules at run time
@ISA = $self->{package};
@@ -143,7 +143,7 @@
}
sub load_package {
- my($self, $package) = @_;
+ my ($self, $package) = @_;
croak "package to load wasn't specified" unless defined $package;
Modified: perl/modperl/trunk/ModPerl-Registry/t/304.t
URL: http://svn.apache.org/viewcvs/perl/modperl/trunk/ModPerl-Registry/t/304.t?rev=266276&r1=266275&r2=266276&view=diff
==============================================================================
--- perl/modperl/trunk/ModPerl-Registry/t/304.t (original)
+++ perl/modperl/trunk/ModPerl-Registry/t/304.t Thu Sep 1 21:31:53 2005
@@ -42,7 +42,7 @@
'Thu Juk 99 00:00:00 9999 FUK' => "bogus If-Modified-Since #2",
);
my $received = '<html><head></head><body>Test</body></html>';
- while ( my($if_modified_since, $debug) = each %dates) {
+ while ( my ($if_modified_since, $debug) = each %dates) {
my $res = GET($url, 'If-Modified-Since' => $if_modified_since);
t_debug "If-Modified-Since $if_modified_since";
ok t_cmp(