530a0ad790
clue as to WHICH file or directory is missing when it dies because it is unable to create, read or write a session file. Without these patches, setting up things like PageKit and other mod_perl-based software can be much more time-consuming than it needs to be. These patches will be submitted back to the author.
24 lines
1.1 KiB
Perl
24 lines
1.1 KiB
Perl
--- Session/Lock/File.pm.orig Sat Sep 2 00:21:17 2000
|
|
+++ Session/Lock/File.pm Thu Dec 6 17:37:40 2001
|
|
@@ -36,8 +36,9 @@
|
|
|
|
my $LockDirectory = $session->{args}->{LockDirectory} ||
|
|
$Apache::Session::Lock::File::LockDirectory;
|
|
+ my $LockFile = $LockDirectory."/Apache-Session-".$session->{data}->{_session_id}.".lock";
|
|
|
|
- open($fh, "+>".$LockDirectory."/Apache-Session-".$session->{data}->{_session_id}.".lock") || die $!;
|
|
+ open($fh, "+> $LockFile") || die "$LockFile: $!";
|
|
|
|
$self->{fh} = $fh;
|
|
$self->{opened} = 1;
|
|
@@ -58,8 +59,9 @@
|
|
|
|
my $LockDirectory = $session->{args}->{LockDirectory} ||
|
|
$Apache::Session::Lock::File::LockDirectory;
|
|
+ my $LockFile = $LockDirectory."/Apache-Session-".$session->{data}->{_session_id}.".lock";
|
|
|
|
- open($fh, "+>".$LockDirectory."/Apache-Session-".$session->{data}->{_session_id}.".lock") || die $!;
|
|
+ open($fh, "+> $LockFile") || die "$LockFile: $!";
|
|
|
|
$self->{fh} = $fh;
|
|
$self->{opened} = 1;
|