|
Line
Link Here
|
| 0 |
-- libdbi-perl-1.21.orig/lib/DBI/ProxyServer.pm |
0 |
++ libdbi-perl-1.21/lib/DBI/ProxyServer.pm |
|
Lines 33-44
Link Here
|
| 33 |
package DBI::ProxyServer; |
33 |
package DBI::ProxyServer; |
| 34 |
|
34 |
|
| 35 |
|
35 |
|
| 36 |
my $haveFileSpec = eval { require File::Spec }; |
|
|
| 37 |
my $tmpDir = $haveFileSpec ? File::Spec->tmpdir() : |
| 38 |
($ENV{'TMP'} || $ENV{'TEMP'} || '/tmp'); |
| 39 |
my $defaultPidFile = $haveFileSpec ? |
| 40 |
File::Spec->catdir($tmpDir, "dbiproxy.pid") : "/tmp/dbiproxy.pid"; |
| 41 |
|
| 42 |
|
36 |
|
| 43 |
############################################################################ |
37 |
############################################################################ |
| 44 |
# |
38 |
# |
|
Lines 107-113
Link Here
|
| 107 |
} else { |
101 |
} else { |
| 108 |
$o->{'mode'} = 'single'; |
102 |
$o->{'mode'} = 'single'; |
| 109 |
} |
103 |
} |
| 110 |
$o->{'pidfile'} = $defaultPidFile; |
104 |
# No pidfile by default, configuration must provide one if needed |
|
|
105 |
$o->{'pidfile'} = 'none'; |
| 111 |
$o->{'user'} = undef; |
106 |
$o->{'user'} = undef; |
| 112 |
}; |
107 |
}; |
| 113 |
|
108 |
|
|
Lines 491-497
Link Here
|
| 491 |
=item I<pidfile> (B<--pidfile=file>) |
486 |
=item I<pidfile> (B<--pidfile=file>) |
| 492 |
|
487 |
|
| 493 |
(UNIX only) If this option is present, a PID file will be created at the |
488 |
(UNIX only) If this option is present, a PID file will be created at the |
| 494 |
given location. |
489 |
given location. Default is do not create a pidfile. |
| 495 |
|
490 |
|
| 496 |
=item I<user> (B<--user=uid>) |
491 |
=item I<user> (B<--user=uid>) |
| 497 |
|
492 |
|
| 498 |
-- libdbi-perl-1.21.orig/dbiproxy.PL |
493 |
++ libdbi-perl-1.21/dbiproxy.PL |
|
Lines 143-149
Link Here
|
| 143 |
=item B<--pidfile=file> |
143 |
=item B<--pidfile=file> |
| 144 |
|
144 |
|
| 145 |
(UNIX only) If this option is present, a PID file will be created at the |
145 |
(UNIX only) If this option is present, a PID file will be created at the |
| 146 |
given location. |
146 |
given location. Default is do not create a pidfile. |
| 147 |
|
147 |
|
| 148 |
=item B<--user=uid> |
148 |
=item B<--user=uid> |
| 149 |
|
149 |
|
