blob: 692944c0b4ccdc06e1ae882f528278898f0b3747 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
|
--- libdbi-perl-1.21.orig/lib/DBI/ProxyServer.pm
+++ libdbi-perl-1.21/lib/DBI/ProxyServer.pm
@@ -33,12 +33,6 @@
package DBI::ProxyServer;
-my $haveFileSpec = eval { require File::Spec };
-my $tmpDir = $haveFileSpec ? File::Spec->tmpdir() :
- ($ENV{'TMP'} || $ENV{'TEMP'} || '/tmp');
-my $defaultPidFile = $haveFileSpec ?
- File::Spec->catdir($tmpDir, "dbiproxy.pid") : "/tmp/dbiproxy.pid";
-
############################################################################
#
@@ -107,7 +101,8 @@
} else {
$o->{'mode'} = 'single';
}
- $o->{'pidfile'} = $defaultPidFile;
+ # No pidfile by default, configuration must provide one if needed
+ $o->{'pidfile'} = 'none';
$o->{'user'} = undef;
};
@@ -491,7 +486,7 @@
=item I<pidfile> (B<--pidfile=file>)
(UNIX only) If this option is present, a PID file will be created at the
-given location.
+given location. Default is do not create a pidfile.
=item I<user> (B<--user=uid>)
only in patch2:
unchanged:
--- libdbi-perl-1.21.orig/dbiproxy.PL
+++ libdbi-perl-1.21/dbiproxy.PL
@@ -143,7 +143,7 @@
=item B<--pidfile=file>
(UNIX only) If this option is present, a PID file will be created at the
-given location.
+given location. Default is do not create a pidfile.
=item B<--user=uid>
|
GitWeb
