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...@apache.org on 2002/06/19 18:31:53 UTC
cvs commit: modperl/t/net/perl/noenv test.pl
dougm 2002/06/19 09:31:53
Modified: . Changes Makefile.PL
apaci mod_perl.config.sh
t/net/perl action.pl api.pl cgi.pl.PL constants.pl
dirty-script.cgi dirty-test.cgi echo file.pl
have_module.pl hooks.pl log.pl module.pl
qredirect.pl raw.pl request-cookie.pl
request-param.pl request-upload.pl rwrite.pl
server_error.pl ssi.pl sym.pl throw_error.pl
tie_table.pl uri.pl util.pl
t/net/perl/io dir_config.pl include.pl redir.pl redir1.pl
redir2.pl ssi1.pl ssi2.pl
t/net/perl/noenv test.pl
Log:
Submitted by: Per Einar Ellefsen <pe...@skynet.be>
Reviewed by: dougm
various cygwin fixes
Revision Changes Path
1.653 +2 -0 modperl/Changes
Index: Changes
===================================================================
RCS file: /home/cvs/modperl/Changes,v
retrieving revision 1.652
retrieving revision 1.653
diff -u -r1.652 -r1.653
--- Changes 16 Jun 2002 19:28:21 -0000 1.652
+++ Changes 19 Jun 2002 16:31:52 -0000 1.653
@@ -10,6 +10,8 @@
=item 1.27_01-dev
+various cygwin fixes [Per Einar Ellefsen <pe...@skynet.be>]
+
fix to compile with 5.8.0 on win32 [Randy Kobes <ra...@theoryx5.uwinnipeg.ca>]
Document the possible misuses of the Apache::Constant constants
1.204 +3 -7 modperl/Makefile.PL
Index: Makefile.PL
===================================================================
RCS file: /home/cvs/modperl/Makefile.PL,v
retrieving revision 1.203
retrieving revision 1.204
diff -u -r1.203 -r1.204
--- Makefile.PL 2 Jun 2002 02:34:12 -0000 1.203
+++ Makefile.PL 19 Jun 2002 16:31:52 -0000 1.204
@@ -1070,6 +1070,7 @@
iedit "t/conf/httpd.conf", "s: \./t(\\S*): $PWD/t\$1:";
for (qw(User Group)) {
+ $$_ = qq{"$$_"} if $$_ =~ /\s/; # User takes one parameter
iedit "t/conf/httpd.conf", "s/^$_ .*/$_ $$_/";
}
conf_append(<<EOF) if $IsBenSSL;
@@ -1117,9 +1118,8 @@
require "lib/mod_perl_hooks.pm";
my @list = mod_perl::hooks();
- if ($Is_Cygwin) {
- }
- else {
+
+ unless ($Is_Cygwin) { # test doesn't seem to be needed, works for me (Per Einar)
@list == @mod_perl_hooks or die "Edit of lib/mod_perl_hooks.pm failed $!\n";
}
@@ -1979,11 +1979,7 @@
return if $Is_Win32;
#print STDERR "-e @_\n";
- if ($Is_Cygwin) {
- system $^X, "-e", "@_", $file;
- } else {
system $^X, "-pi~", "-e", "@_", $file;
- }
}
sub win32_setup {
1.27 +1 -0 modperl/apaci/mod_perl.config.sh
Index: mod_perl.config.sh
===================================================================
RCS file: /home/cvs/modperl/apaci/mod_perl.config.sh,v
retrieving revision 1.26
retrieving revision 1.27
diff -u -r1.26 -r1.27
--- mod_perl.config.sh 23 May 2002 03:30:21 -0000 1.26
+++ mod_perl.config.sh 19 Jun 2002 16:31:52 -0000 1.27
@@ -1,3 +1,4 @@
+#!/bin/sh
##
## mod_perl.config.sh -- mod_perl configuration transformation script
## Written by Ralf S. Engelschall <rs...@apache.org>
1.2 +1 -1 modperl/t/net/perl/action.pl
Index: action.pl
===================================================================
RCS file: /home/cvs/modperl/t/net/perl/action.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- action.pl 6 Dec 1997 17:57:30 -0000 1.1
+++ action.pl 19 Jun 2002 16:31:52 -0000 1.2
@@ -1,4 +1,4 @@
-
+#!perl
my $r = Apache->request;
$r->content_type("text/plain");
$r->send_http_header;
1.50 +1 -0 modperl/t/net/perl/api.pl
Index: api.pl
===================================================================
RCS file: /home/cvs/modperl/t/net/perl/api.pl,v
retrieving revision 1.49
retrieving revision 1.50
diff -u -r1.49 -r1.50
--- api.pl 29 May 2002 16:26:49 -0000 1.49
+++ api.pl 19 Jun 2002 16:31:52 -0000 1.50
@@ -1,3 +1,4 @@
+#!perl
use Apache ();
use Apache::Constants qw(:server :common :methods);
use Apache::test;
1.4 +1 -1 modperl/t/net/perl/cgi.pl.PL
Index: cgi.pl.PL
===================================================================
RCS file: /home/cvs/modperl/t/net/perl/cgi.pl.PL,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- cgi.pl.PL 30 Nov 1998 13:00:52 -0000 1.3
+++ cgi.pl.PL 19 Jun 2002 16:31:52 -0000 1.4
@@ -1,4 +1,4 @@
-
+#!perl
use CGI ();
use strict;
1.12 +1 -0 modperl/t/net/perl/constants.pl
Index: constants.pl
===================================================================
RCS file: /home/cvs/modperl/t/net/perl/constants.pl,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -r1.11 -r1.12
--- constants.pl 23 Dec 2000 00:04:37 -0000 1.11
+++ constants.pl 19 Jun 2002 16:31:52 -0000 1.12
@@ -1,3 +1,4 @@
+#!perl
# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl test.pl'
1.7 +1 -0 modperl/t/net/perl/dirty-script.cgi
Index: dirty-script.cgi
===================================================================
RCS file: /home/cvs/modperl/t/net/perl/dirty-script.cgi,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -r1.6 -r1.7
--- dirty-script.cgi 13 Sep 2000 06:06:48 -0000 1.6
+++ dirty-script.cgi 19 Jun 2002 16:31:52 -0000 1.7
@@ -1,3 +1,4 @@
+#!perl
local $^W = 0;
unshift @INC,
-e "dirty-lib" ? '.' :
1.7 +1 -0 modperl/t/net/perl/dirty-test.cgi
Index: dirty-test.cgi
===================================================================
RCS file: /home/cvs/modperl/t/net/perl/dirty-test.cgi,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -r1.6 -r1.7
--- dirty-test.cgi 13 Sep 2000 06:06:48 -0000 1.6
+++ dirty-test.cgi 19 Jun 2002 16:31:52 -0000 1.7
@@ -1,3 +1,4 @@
+#!perl
unshift @INC,
-e "dirty-lib" ? '.' :
1.2 +1 -0 modperl/t/net/perl/echo
Index: echo
===================================================================
RCS file: /home/cvs/modperl/t/net/perl/echo,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- echo 6 Dec 1997 17:57:32 -0000 1.1
+++ echo 19 Jun 2002 16:31:52 -0000 1.2
@@ -1,3 +1,4 @@
+#!perl
my $r = Apache->request;
$r->content_type("text/plain");
$r->send_http_header;
1.8 +1 -0 modperl/t/net/perl/file.pl
Index: file.pl
===================================================================
RCS file: /home/cvs/modperl/t/net/perl/file.pl,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -r1.7 -r1.8
--- file.pl 30 Dec 1999 01:49:52 -0000 1.7
+++ file.pl 19 Jun 2002 16:31:52 -0000 1.8
@@ -1,3 +1,4 @@
+#!perl
use strict;
use Apache::test;
1.2 +1 -0 modperl/t/net/perl/have_module.pl
Index: have_module.pl
===================================================================
RCS file: /home/cvs/modperl/t/net/perl/have_module.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- have_module.pl 24 Dec 1998 19:20:17 -0000 1.1
+++ have_module.pl 19 Jun 2002 16:31:52 -0000 1.2
@@ -1,3 +1,4 @@
+#!perl
my $r = shift;
$r->send_http_header('text/plain');
my $module = $r->args;
1.8 +1 -0 modperl/t/net/perl/hooks.pl
Index: hooks.pl
===================================================================
RCS file: /home/cvs/modperl/t/net/perl/hooks.pl,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -r1.7 -r1.8
--- hooks.pl 13 Aug 1998 01:49:09 -0000 1.7
+++ hooks.pl 19 Jun 2002 16:31:52 -0000 1.8
@@ -1,3 +1,4 @@
+#!perl
use Apache ();
my $tests = 0;
1.5 +1 -0 modperl/t/net/perl/log.pl
Index: log.pl
===================================================================
RCS file: /home/cvs/modperl/t/net/perl/log.pl,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- log.pl 28 Aug 1998 20:36:32 -0000 1.4
+++ log.pl 19 Jun 2002 16:31:52 -0000 1.5
@@ -1,3 +1,4 @@
+#!perl
use strict;
use Apache::test;
my $i = 0;
1.3 +1 -1 modperl/t/net/perl/module.pl
Index: module.pl
===================================================================
RCS file: /home/cvs/modperl/t/net/perl/module.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- module.pl 21 Jan 1999 00:03:16 -0000 1.2
+++ module.pl 19 Jun 2002 16:31:52 -0000 1.3
@@ -1,4 +1,4 @@
-
+#!perl
use Apache::test;
my $r = shift;
1.2 +1 -1 modperl/t/net/perl/qredirect.pl
Index: qredirect.pl
===================================================================
RCS file: /home/cvs/modperl/t/net/perl/qredirect.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- qredirect.pl 10 Feb 1998 21:36:24 -0000 1.1
+++ qredirect.pl 19 Jun 2002 16:31:52 -0000 1.2
@@ -1,4 +1,4 @@
-
+#!perl
use CGI;
use strict;
my $q = new CGI;
1.2 +1 -0 modperl/t/net/perl/raw.pl
Index: raw.pl
===================================================================
RCS file: /home/cvs/modperl/t/net/perl/raw.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- raw.pl 6 Dec 1997 17:57:32 -0000 1.1
+++ raw.pl 19 Jun 2002 16:31:52 -0000 1.2
@@ -1,3 +1,4 @@
+#!perl
print "HTTP/1.0 200 OK\n";
print "Content-type: text/plain\n\n";
1.8 +1 -0 modperl/t/net/perl/request-cookie.pl
Index: request-cookie.pl
===================================================================
RCS file: /home/cvs/modperl/t/net/perl/request-cookie.pl,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -r1.7 -r1.8
--- request-cookie.pl 30 Dec 1999 20:34:27 -0000 1.7
+++ request-cookie.pl 19 Jun 2002 16:31:52 -0000 1.8
@@ -1,3 +1,4 @@
+#!perl
use strict;
use Apache::test;
1.3 +1 -0 modperl/t/net/perl/request-param.pl
Index: request-param.pl
===================================================================
RCS file: /home/cvs/modperl/t/net/perl/request-param.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- request-param.pl 30 Dec 1999 20:34:28 -0000 1.2
+++ request-param.pl 19 Jun 2002 16:31:52 -0000 1.3
@@ -1,3 +1,4 @@
+#!perl
use strict;
use Apache::test;
1.9 +1 -0 modperl/t/net/perl/request-upload.pl
Index: request-upload.pl
===================================================================
RCS file: /home/cvs/modperl/t/net/perl/request-upload.pl,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -r1.8 -r1.9
--- request-upload.pl 30 Dec 1999 20:34:28 -0000 1.8
+++ request-upload.pl 19 Jun 2002 16:31:52 -0000 1.9
@@ -1,3 +1,4 @@
+#!perl
use strict;
use Apache::test;
1.2 +1 -0 modperl/t/net/perl/rwrite.pl
Index: rwrite.pl
===================================================================
RCS file: /home/cvs/modperl/t/net/perl/rwrite.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- rwrite.pl 19 Mar 1998 23:09:06 -0000 1.1
+++ rwrite.pl 19 Jun 2002 16:31:52 -0000 1.2
@@ -1,3 +1,4 @@
+#!perl
my $r = shift;
$r->send_http_header("text/plain");
1.3 +1 -0 modperl/t/net/perl/server_error.pl
Index: server_error.pl
===================================================================
RCS file: /home/cvs/modperl/t/net/perl/server_error.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- server_error.pl 23 May 2002 04:21:07 -0000 1.2
+++ server_error.pl 19 Jun 2002 16:31:52 -0000 1.3
@@ -1,3 +1,4 @@
+#!perl
my $r = shift;
$r->send_http_header("text/plain");
1.2 +1 -1 modperl/t/net/perl/ssi.pl
Index: ssi.pl
===================================================================
RCS file: /home/cvs/modperl/t/net/perl/ssi.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- ssi.pl 6 Dec 1997 17:57:33 -0000 1.1
+++ ssi.pl 19 Jun 2002 16:31:52 -0000 1.2
@@ -1,4 +1,4 @@
-
+#!perl
my($r, @args) = @_;
print "Hi, I've been pulled in by mod_include via Apache::Include<p>\n";
print "I'm cached by Apache::Registry in package `", __PACKAGE__, "'<p>\n";
1.3 +1 -0 modperl/t/net/perl/sym.pl
Index: sym.pl
===================================================================
RCS file: /home/cvs/modperl/t/net/perl/sym.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- sym.pl 6 Jul 2001 20:46:19 -0000 1.2
+++ sym.pl 19 Jun 2002 16:31:52 -0000 1.3
@@ -1,3 +1,4 @@
+#!perl
eval {
require Apache::Symbol;
};
1.3 +1 -0 modperl/t/net/perl/throw_error.pl
Index: throw_error.pl
===================================================================
RCS file: /home/cvs/modperl/t/net/perl/throw_error.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- throw_error.pl 26 Apr 1998 00:32:22 -0000 1.2
+++ throw_error.pl 19 Jun 2002 16:31:52 -0000 1.3
@@ -1,3 +1,4 @@
+#!perl
my $r = shift;
$r->custom_response(500, "/perl/server_error.pl");
1.12 +1 -0 modperl/t/net/perl/tie_table.pl
Index: tie_table.pl
===================================================================
RCS file: /home/cvs/modperl/t/net/perl/tie_table.pl,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -r1.11 -r1.12
--- tie_table.pl 13 Nov 1998 03:27:57 -0000 1.11
+++ tie_table.pl 19 Jun 2002 16:31:52 -0000 1.12
@@ -1,3 +1,4 @@
+#!perl
use Apache::test;
use strict;
1.2 +1 -0 modperl/t/net/perl/uri.pl
Index: uri.pl
===================================================================
RCS file: /home/cvs/modperl/t/net/perl/uri.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- uri.pl 17 Jul 1998 20:48:42 -0000 1.1
+++ uri.pl 19 Jun 2002 16:31:52 -0000 1.2
@@ -1,3 +1,4 @@
+#!perl
use strict;
use Apache::test;
$|++;
1.15 +1 -0 modperl/t/net/perl/util.pl
Index: util.pl
===================================================================
RCS file: /home/cvs/modperl/t/net/perl/util.pl,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -r1.14 -r1.15
--- util.pl 26 Mar 2002 14:52:28 -0000 1.14
+++ util.pl 19 Jun 2002 16:31:52 -0000 1.15
@@ -1,3 +1,4 @@
+#!perl
use strict;
use Apache::test;
$|++;
1.3 +1 -0 modperl/t/net/perl/io/dir_config.pl
Index: dir_config.pl
===================================================================
RCS file: /home/cvs/modperl/t/net/perl/io/dir_config.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- dir_config.pl 14 May 1998 03:07:00 -0000 1.2
+++ dir_config.pl 19 Jun 2002 16:31:53 -0000 1.3
@@ -1,3 +1,4 @@
+#!perl
use strict;
use Apache::test;
use Data::Dumper ();
1.2 +1 -1 modperl/t/net/perl/io/include.pl
Index: include.pl
===================================================================
RCS file: /home/cvs/modperl/t/net/perl/io/include.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- include.pl 6 Dec 1997 17:57:35 -0000 1.1
+++ include.pl 19 Jun 2002 16:31:53 -0000 1.2
@@ -1,4 +1,4 @@
-
+#!perl
use Apache::Include ();
print "Content-type: text/plain\n\n";
1.2 +1 -1 modperl/t/net/perl/io/redir.pl
Index: redir.pl
===================================================================
RCS file: /home/cvs/modperl/t/net/perl/io/redir.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- redir.pl 6 Dec 1997 17:57:36 -0000 1.1
+++ redir.pl 19 Jun 2002 16:31:53 -0000 1.2
@@ -1,4 +1,4 @@
-
+#!perl
#test internal redirects
my %loc = (
1.2 +1 -0 modperl/t/net/perl/io/redir1.pl
Index: redir1.pl
===================================================================
RCS file: /home/cvs/modperl/t/net/perl/io/redir1.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- redir1.pl 16 Jul 2001 17:11:04 -0000 1.1
+++ redir1.pl 19 Jun 2002 16:31:53 -0000 1.2
@@ -1,3 +1,4 @@
+#!perl
use strict;
my $r = shift;
$r->internal_redirect('/perl/io/redir2.pl');
1.2 +1 -0 modperl/t/net/perl/io/redir2.pl
Index: redir2.pl
===================================================================
RCS file: /home/cvs/modperl/t/net/perl/io/redir2.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- redir2.pl 16 Jul 2001 17:11:04 -0000 1.1
+++ redir2.pl 19 Jun 2002 16:31:53 -0000 1.2
@@ -1,3 +1,4 @@
+#!perl
use strict;
my $r = shift;
$r->send_http_header('text/plain');
1.2 +1 -1 modperl/t/net/perl/io/ssi1.pl
Index: ssi1.pl
===================================================================
RCS file: /home/cvs/modperl/t/net/perl/io/ssi1.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- ssi1.pl 6 Dec 1997 17:57:36 -0000 1.1
+++ ssi1.pl 19 Jun 2002 16:31:53 -0000 1.2
@@ -1,4 +1,4 @@
-
+#!perl
sub SSI::one {
print "Content-type: text/html\n\n";
1.2 +1 -1 modperl/t/net/perl/io/ssi2.pl
Index: ssi2.pl
===================================================================
RCS file: /home/cvs/modperl/t/net/perl/io/ssi2.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- ssi2.pl 6 Dec 1997 17:57:37 -0000 1.1
+++ ssi2.pl 19 Jun 2002 16:31:53 -0000 1.2
@@ -1,4 +1,4 @@
-
+#!perl
sub SSI::two {
print "Content-type: text/html\n\n";
1.2 +1 -0 modperl/t/net/perl/noenv/test.pl
Index: test.pl
===================================================================
RCS file: /home/cvs/modperl/t/net/perl/noenv/test.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- test.pl 30 Apr 1998 12:06:35 -0000 1.1
+++ test.pl 19 Jun 2002 16:31:53 -0000 1.2
@@ -1,3 +1,4 @@
+#!perl
shift->send_http_header("text/plain");
unless($My::config_is_perl) {