Return-Path: Delivered-To: modperl-cvs-archive@hyperreal.org Received: (qmail 1985 invoked by uid 6000); 6 Apr 1999 23:56:38 -0000 Received: (qmail 1971 invoked by uid 169); 6 Apr 1999 23:56:36 -0000 Date: 6 Apr 1999 23:56:36 -0000 Message-ID: <19990406235636.1970.qmail@hyperreal.org> From: dougm@hyperreal.org To: modperl-cvs@hyperreal.org Subject: cvs commit: modperl/t/net/perl file.pl Sender: modperl-cvs-owner@apache.org Precedence: bulk Reply-To: modperl-cvs@apache.org dougm 99/04/06 16:56:36 Modified: . Changes ToDo apache-modlist.html src/modules/perl File.xs t/net/perl file.pl Log: added $r->mtime method Revision Changes Path 1.274 +2 -0 modperl/Changes Index: Changes =================================================================== RCS file: /home/cvs/modperl/Changes,v retrieving revision 1.273 retrieving revision 1.274 diff -u -r1.273 -r1.274 --- Changes 1999/03/26 22:20:33 1.273 +++ Changes 1999/04/06 23:56:32 1.274 @@ -8,6 +8,8 @@ =item 1.18_01-dev +added $r->mtime method [Andreas J. Koenig ] + fix so version info is not inserted too early (i.e. before Apache/x.x.x) new Apache::PerlRun::namespace_from() method, returns 1.171 +2 -0 modperl/ToDo Index: ToDo =================================================================== RCS file: /home/cvs/modperl/ToDo,v retrieving revision 1.170 retrieving revision 1.171 diff -u -r1.170 -r1.171 --- ToDo 1999/03/26 20:41:56 1.170 +++ ToDo 1999/04/06 23:56:32 1.171 @@ -3,6 +3,8 @@ (well, close to it anyhow) --------------------------------------------------------------------------- +- Leak.xs under win32 + - $r->set_handlers(PerlAuthenHandler => undef) stomps other config!? - how to manipulate order of handlers (not just Perl*Handlers) 1.54 +2 -1 modperl/apache-modlist.html Index: apache-modlist.html =================================================================== RCS file: /home/cvs/modperl/apache-modlist.html,v retrieving revision 1.53 retrieving revision 1.54 diff -u -r1.53 -r1.54 --- apache-modlist.html 1999/01/25 22:39:48 1.53 +++ apache-modlist.html 1999/04/06 23:56:33 1.54 @@ -8,7 +8,7 @@

The Apache/Perl Module List

Maintained by Doug MacEachern, -
$Revision: 1.53 $ $Date: 1999/01/25 22:39:48 $ +
$Revision: 1.54 $ $Date: 1999/04/06 23:56:33 $

Contents

Introduction
@@ -225,6 +225,7 @@ Roaming bdpO PUT/GET/MOVE/DELETE (Netscape Roaming) JWEID * Development and Debug tools +DB amcO Hook Perl interactive DB into mod_perl DOUGM Debug Rmpf mod_perl debugging utilities APML DProf bmcf Hook Devel::DProf into mod_perl DOUGM FakeRequest ampO Implement Apache methods off-line APML 1.7 +6 -0 modperl/src/modules/perl/File.xs Index: File.xs =================================================================== RCS file: /home/cvs/modperl/src/modules/perl/File.xs,v retrieving revision 1.6 retrieving revision 1.7 diff -u -r1.6 -r1.7 --- File.xs 1998/12/28 18:16:34 1.6 +++ File.xs 1999/04/06 23:56:35 1.7 @@ -6,6 +6,8 @@ #define ap_fclose(r, fd) \ ap_pfclose(r->pool, fd) +#define ap_mtime(r) r->mtime + #ifndef SvCLASS #define SvCLASS(o) HvNAME(SvSTASH(SvRV(o))) #endif @@ -199,6 +201,10 @@ ap_update_mtime(r, dependency_mtime=r->finfo.st_mtime) Apache r time_t dependency_mtime + +time_t +ap_mtime(r) + Apache r int ap_discard_request_body(r) 1.4 +8 -4 modperl/t/net/perl/file.pl Index: file.pl =================================================================== RCS file: /home/cvs/modperl/t/net/perl/file.pl,v retrieving revision 1.3 retrieving revision 1.4 diff -u -r1.3 -r1.4 --- file.pl 1998/11/13 21:39:02 1.3 +++ file.pl 1999/04/06 23:56:35 1.4 @@ -14,13 +14,17 @@ my $fh = Apache::File->new; my $i = 0; test ++$i, $fh; -test ++$i, $fh->open($0); -test ++$i, !$fh->open("$0.nochance"); -test ++$i, !Apache::File->new("$0.yeahright"); +test ++$i, $fh->open($r->filename); +test ++$i, !$fh->open($r->filename.".nochance"); +test ++$i, !Apache::File->new($r->filename.".yeahright"); #my $tmp = Apache::File->tmp; #test ++$i, $tmp; #++$i; #print $tmp "ok $i\n"; #seek $tmp, 0, 0; #print scalar(<$tmp>); -test ++$i, Apache::File->tmpfile; +#test ++$i, Apache::File->tmpfile; + +$r->update_mtime; +test ++$i, $r->mtime; +print scalar localtime $r->mtime;