dougm 01/07/06 09:09:53
Modified: . Changes
src/modules/perl Apache.xs perl_PL.h
t/net/perl api.pl
Log:
fix -[TB] file tests against $r->finfo
Revision Changes Path
1.603 +3 -0 modperl/Changes
Index: Changes
===================================================================
RCS file: /home/cvs/modperl/Changes,v
retrieving revision 1.602
retrieving revision 1.603
diff -u -r1.602 -r1.603
--- Changes 2001/07/06 13:44:34 1.602
+++ Changes 2001/07/06 16:09:52 1.603
@@ -10,6 +10,9 @@
=item 1.25_01-dev
+fix -[TB] file tests against $r->finfo, thanks to Geoffrey Young for
+the spot
+
Apache::SizeLimit enhancements [Perrin Harkins <[EMAIL PROTECTED]>]:
- Added support for minimum shared memory and maximum unshared memory
settings.
1.124 +2 -0 modperl/src/modules/perl/Apache.xs
Index: Apache.xs
===================================================================
RCS file: /home/cvs/modperl/src/modules/perl/Apache.xs,v
retrieving revision 1.123
retrieving revision 1.124
diff -u -r1.123 -r1.124
--- Apache.xs 2001/06/14 05:26:28 1.123
+++ Apache.xs 2001/07/06 16:09:53 1.124
@@ -1956,9 +1956,11 @@
statcache = r->finfo;
if (r->finfo.st_mode) {
laststatval = 0;
+ sv_setpv(statname, r->filename);
}
else {
laststatval = -1;
+ sv_setpv(statname, "");
}
if(GIMME_V == G_VOID) XSRETURN_UNDEF;
RETVAL = newRV_noinc((SV*)gv_fetchpv("_", TRUE, SVt_PVIO));
1.8 +3 -0 modperl/src/modules/perl/perl_PL.h
Index: perl_PL.h
===================================================================
RCS file: /home/cvs/modperl/src/modules/perl/perl_PL.h,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -r1.7 -r1.8
--- perl_PL.h 1999/01/18 03:26:19 1.7
+++ perl_PL.h 2001/07/06 16:09:53 1.8
@@ -19,6 +19,9 @@
#ifndef laststatval
#define laststatval PL_laststatval
#endif
+#ifndef statname
+#define statname PL_statname
+#endif
#ifndef rs
#define rs PL_rs
#endif
1.47 +3 -1 modperl/t/net/perl/api.pl
Index: api.pl
===================================================================
RCS file: /home/cvs/modperl/t/net/perl/api.pl,v
retrieving revision 1.46
retrieving revision 1.47
diff -u -r1.46 -r1.47
--- api.pl 2001/06/14 04:36:20 1.46
+++ api.pl 2001/07/06 16:09:53 1.47
@@ -18,7 +18,7 @@
my $tests = 74;
my $is_win32 = WIN32;
-$tests += 2 unless $is_win32;
+$tests += 4 unless $is_win32;
my $test_get_set = Apache->can('set_handlers') && ($tests += 4);
my $test_custom_response = (MODULE_MAGIC_NUMBER >= 19980324) && ($tests += 4);
my $test_dir_config = $INC{'Apache/TestDirectives.pm'} && ($tests += 9);
@@ -68,6 +68,8 @@
print "Apache.pm == $ft_s, $0 == $ft_def\n";
test ++$i, $ft_s != $ft_def;
test ++$i, (-s $r->finfo) == $ft_def;
+ test ++$i, -T $r->finfo;
+ test ++$i, not -B $r->finfo;
}
my $the_request = $r->the_request;
