perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From do...@apache.org
Subject cvs commit: modperl/t/net/perl/noenv test.pl
Date Wed, 19 Jun 2002 16:31:53 GMT
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 <per.einar@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 <per.einar@skynet.be>]
  +
   fix to compile with 5.8.0 on win32 [Randy Kobes <randy@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 <rse@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) {
  
  
  

Mime
View raw message