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 1998/12/15 00:34:02 UTC
cvs commit: modperl/t/internal auth.t stacked.t
dougm 98/12/14 15:34:02
Modified: . Makefile.PL ToDo
lib/Apache test.pm
t/internal auth.t stacked.t
Log:
some minor fixes
Revision Changes Path
1.118 +4 -3 modperl/Makefile.PL
Index: Makefile.PL
===================================================================
RCS file: /home/cvs/modperl/Makefile.PL,v
retrieving revision 1.117
retrieving revision 1.118
diff -u -r1.117 -r1.118
--- Makefile.PL 1998/12/11 22:44:02 1.117
+++ Makefile.PL 1998/12/14 23:33:59 1.118
@@ -163,7 +163,7 @@
$ALL_HOOKS = 0;
$APACHE_SRC = "";
$APACHE_PREFIX = "";
-$APACHE_LAYOUT = "Apache";
+$APACHE_LAYOUT = "GNU";
$APACHE_HEADER_INSTALL = 1;
$PERL_SECTIONS = 0;
$PERL_SSI = 0;
@@ -414,7 +414,7 @@
last;
}
else {
- print "Can't stat $src_dir\n";
+ print "Can't stat `$src_dir'\n";
}
}
}
@@ -1328,7 +1328,7 @@
}
sub wanted {
- return unless /\.h$/;
+ return unless /\.h$/ or /os-inline\.c$/;
(my $d = $File::Find::dir) =~ s:^\Q$APACHE_SRC::;
$d =~ s:^/::;
@@ -1821,6 +1821,7 @@
last if -d ($ar_dir = "$APACHE_SRC/modules/perl/$_");
$ar_dir = "";
}
+ return unless -d $ar_dir;
finddepth(sub {
return unless /\.a$/;
1.131 +4 -10 modperl/ToDo
Index: ToDo
===================================================================
RCS file: /home/cvs/modperl/ToDo,v
retrieving revision 1.130
retrieving revision 1.131
diff -u -r1.130 -r1.131
--- ToDo 1998/12/14 20:58:44 1.130
+++ ToDo 1998/12/14 23:33:59 1.131
@@ -3,20 +3,10 @@
(well, close to it anyhow)
---------------------------------------------------------------------------
-- Makefile.PL saying: Can't stat : No such file or directory
-
-- internal/auth.......FAILED test 1 (w/o mod_autoindex)
-
-- install os-inline.c
-
-- avoid write_client symtab lookup in print()
-
- turn of strip of httpd in Apache's install.sh
- method handler called when it shouldn't be? (Ken)
-- Apache::Status extensions (ix)
-
- <perl> sections and DirectoryIndex (Eric Cholet)
- Perl{Set,Pass}Env tainted, should they not be? (Vivek)
@@ -247,6 +237,8 @@
NEW MODULE STUFF
---------------------------------------------------------------------------
+- Apache::Status extensions (ix)
+
- StatINC doesn't reimport the imported symbols?
Stas Bekman <sb...@iil.intel.com>,
Message-Id: <Pi...@ilx374.iil.intel.com>
@@ -312,6 +304,8 @@
---------------------------------------------------------------------------
OPTIMIZATIONS
---------------------------------------------------------------------------
+
+- avoid write_client symtab lookup in print()
- preloading of method cache
1.10 +1 -1 modperl/lib/Apache/test.pm
Index: test.pm
===================================================================
RCS file: /home/cvs/modperl/lib/Apache/test.pm,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -r1.9 -r1.10
--- test.pm 1998/10/01 03:21:45 1.9
+++ test.pm 1998/12/14 23:34:00 1.10
@@ -84,7 +84,7 @@
require Apache::Constants;
};
eval "require $mod";
- if($v) {
+ if($v and not $@) {
eval {
local $SIG{__WARN__} = sub {};
$mod->UNIVERSAL::VERSION($v);
1.3 +1 -1 modperl/t/internal/auth.t
Index: auth.t
===================================================================
RCS file: /home/cvs/modperl/t/internal/auth.t,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- auth.t 1998/08/28 22:33:34 1.2
+++ auth.t 1998/12/14 23:34:01 1.3
@@ -1,7 +1,7 @@
use Apache::test;
my $ua = Apache::UserAgent->new;
-my $url = URI::URL->new("http://$net::httpserver/auth/");
+my $url = URI::URL->new("http://$net::httpserver/auth/.htaccess");
my $i;
my $request = HTTP::Request->new(GET => $url);
1.4 +1 -1 modperl/t/internal/stacked.t
Index: stacked.t
===================================================================
RCS file: /home/cvs/modperl/t/internal/stacked.t,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- stacked.t 1998/06/12 18:29:10 1.3
+++ stacked.t 1998/12/14 23:34:01 1.4
@@ -3,5 +3,5 @@
skip_test unless $net::callback_hooks{PERL_STACKED_HANDLERS} and
$net::callback_hooks{PERL_FIXUP};
die "can't open http://$net::httpserver/$net::perldir/stacked\n"
- unless simple_fetch "/stacked";
+ unless simple_fetch "/stacked/test.html";
print fetch "/chain/";