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/08/31 21:32:37 UTC
cvs commit: modperl/lib/Apache Registry.pm
dougm 98/08/31 12:32:37
Modified: . Changes
lib/Apache Registry.pm
Log:
fix chdir_file() call in Apache::Registry so we go back to the original
directory [Gerald Richter <ri...@ecos.de>]
Revision Changes Path
1.123 +3 -0 modperl/Changes
Index: Changes
===================================================================
RCS file: /export/home/cvs/modperl/Changes,v
retrieving revision 1.122
retrieving revision 1.123
diff -u -r1.122 -r1.123
--- Changes 1998/08/28 23:07:18 1.122
+++ Changes 1998/08/31 19:32:32 1.123
@@ -8,6 +8,9 @@
=item 1.15_01-dev
+fix chdir_file() call in Apache::Registry so we go back to the original
+directory [Gerald Richter <ri...@ecos.de>]
+
added :override :args_how tags to Apache::Constants
add DIR_MAGIC_TYPE to perl_handlers[] table for directory indexing
1.16 +1 -1 modperl/lib/Apache/Registry.pm
Index: Registry.pm
===================================================================
RCS file: /export/home/cvs/modperl/lib/Apache/Registry.pm,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -r1.15 -r1.16
--- Registry.pm 1998/07/30 15:37:18 1.15
+++ Registry.pm 1998/08/31 19:32:33 1.16
@@ -132,7 +132,7 @@
my $cv = \&{"$package\::handler"};
eval { &{$cv}($r, @_) } if $r->seqno;
- $r->chdir_file($Apache::Server::CWD);
+ chdir $Apache::Server::CWD;
$^W = $oldwarn;
my $errsv = "";