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 do...@hyperreal.org on 1999/08/04 01:25:16 UTC
cvs commit: modperl/t/modules cgi.t
dougm 99/08/03 16:25:15
Modified: . Changes
Constants Constants.pm
Symbol Symbol.pm
lib/Apache Status.pm httpd_conf.pm
t/conf httpd.conf-dist
t/modules cgi.t
Log:
get rid of various 5.005_60 warnings
Revision Changes Path
1.328 +2 -0 modperl/Changes
Index: Changes
===================================================================
RCS file: /home/cvs/modperl/Changes,v
retrieving revision 1.327
retrieving revision 1.328
diff -u -r1.327 -r1.328
--- Changes 1999/08/03 22:45:11 1.327
+++ Changes 1999/08/03 23:25:11 1.328
@@ -8,6 +8,8 @@
=item 1.21_01-dev
+get rid of various 5.005_60 warnings
+
add Status{Terse,Deparse,OptionsAll} options to Apache::Status
adjust mod_perl.h for 5.005_59 perl_eval_{pv,sv} rename
1.18 +1 -1 modperl/Constants/Constants.pm
Index: Constants.pm
===================================================================
RCS file: /home/cvs/modperl/Constants/Constants.pm,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -r1.17 -r1.18
--- Constants.pm 1999/01/28 01:13:42 1.17
+++ Constants.pm 1999/08/03 23:25:12 1.18
@@ -27,7 +27,7 @@
for my $new (@_) {
next if grep { $new eq $_ } @Apache::Constants::EXPORT_OK;
push @Apache::Constants::EXPORT_OK, $new;
- if(defined %Apache::Constants::EXPORT) {
+ if(%Apache::Constants::EXPORT) {
$Apache::Constants::EXPORT{$new} = 1;
}
}
1.5 +4 -4 modperl/Symbol/Symbol.pm
Index: Symbol.pm
===================================================================
RCS file: /home/cvs/modperl/Symbol/Symbol.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- Symbol.pm 1999/01/18 04:31:11 1.4
+++ Symbol.pm 1999/08/03 23:25:13 1.5
@@ -25,10 +25,10 @@
if( $only_undef_exports ) {
no strict 'refs';
my $any_export_var;
- $any_export_var = 1 if defined @{$package . "::EXPORT"};
- $any_export_var = 1 if defined @{$package . "::EXPORT_OK"};
- $any_export_var = 1 if defined %{$package . "::EXPORT_TAGS"};
- $any_export_var = 1 if defined @{$package . "::EXPORT_EXTRAS"};
+ $any_export_var = 1 if @{$package . "::EXPORT"};
+ $any_export_var = 1 if @{$package . "::EXPORT_OK"};
+ $any_export_var = 1 if %{$package . "::EXPORT_TAGS"};
+ $any_export_var = 1 if @{$package . "::EXPORT_EXTRAS"};
if( $any_export_var ) {
my @names = (@{$package . "::EXPORT"},
1.19 +1 -1 modperl/lib/Apache/Status.pm
Index: Status.pm
===================================================================
RCS file: /home/cvs/modperl/lib/Apache/Status.pm,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -r1.18 -r1.19
--- Status.pm 1999/08/03 22:45:16 1.18
+++ Status.pm 1999/08/03 23:25:13 1.19
@@ -66,7 +66,7 @@
if(defined &$sub) {
$r->print(@{ &{$sub}($r, $newQ->($r)) });
}
- elsif ($qs and defined %{$qs."::"}) {
+ elsif ($qs and %{$qs."::"}) {
$r->print(symdump($r, $qs));
}
else {
1.4 +1 -1 modperl/lib/Apache/httpd_conf.pm
Index: httpd_conf.pm
===================================================================
RCS file: /home/cvs/modperl/lib/Apache/httpd_conf.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- httpd_conf.pm 1998/02/10 21:32:31 1.3
+++ httpd_conf.pm 1999/08/03 23:25:14 1.4
@@ -183,7 +183,7 @@
$DocumentRoot = $dir ? "$dir/docs" : "docs";
$ServerName = "localhost";
-@Alias = () unless defined @Alias;
+@Alias = () unless @Alias;
for (qw(/perl /cgi-bin)) {
push @Alias, [$_ => $dir ? "$dir/perl" : "perl"];
1.27 +1 -1 modperl/t/conf/httpd.conf-dist
Index: httpd.conf-dist
===================================================================
RCS file: /home/cvs/modperl/t/conf/httpd.conf-dist,v
retrieving revision 1.26
retrieving revision 1.27
diff -u -r1.26 -r1.27
--- httpd.conf-dist 1999/08/03 22:45:18 1.26
+++ httpd.conf-dist 1999/08/03 23:25:14 1.27
@@ -67,7 +67,7 @@
<Files ~ "\.pl$">
PerlHandler Apache::Registry
PerlSendHeader On
- Options ExecCGI
+ Options +ExecCGI
</Files>
Alias /perl/ ./t/net/perl/
1.7 +1 -1 modperl/t/modules/cgi.t
Index: cgi.t
===================================================================
RCS file: /home/cvs/modperl/t/modules/cgi.t,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -r1.6 -r1.7
--- cgi.t 1998/09/19 16:40:20 1.6
+++ cgi.t 1999/08/03 23:25:15 1.7
@@ -41,7 +41,7 @@
print fetch($ua, "http://$net::httpserver/cgi-bin/cgi.pl?PARAM=5");
}
-sub upload ($$$) {
+sub upload {
my $ua = shift;
my $url = new URI::URL(shift);
my $abc = shift;