| … | |
… | |
| 71 | |
71 | |
| 72 | use Errno (); |
72 | use Errno (); |
| 73 | use Fcntl (); |
73 | use Fcntl (); |
| 74 | use POSIX (); |
74 | use POSIX (); |
| 75 | |
75 | |
| 76 | our $VERSION = '2.2'; |
76 | our $VERSION = '2.3'; |
| 77 | |
77 | |
| 78 | our $FD_MAX = eval { POSIX::sysconf (&POSIX::_SC_OPEN_MAX) - 1 } || 1023; |
78 | our $FD_MAX = eval { POSIX::sysconf (&POSIX::_SC_OPEN_MAX) - 1 } || 1023; |
| 79 | |
79 | |
| 80 | # this is the forked server code, could/should be bundled as it's own file |
80 | # this is the forked server code, could/should be bundled as it's own file |
| 81 | |
81 | |
| … | |
… | |
| 108 | |
108 | |
| 109 | [1, $DBH->{$attr_name}] |
109 | [1, $DBH->{$attr_name}] |
| 110 | } |
110 | } |
| 111 | |
111 | |
| 112 | sub req_begin_work { |
112 | sub req_begin_work { |
| 113 | [1, $DBH->begin_work or die [$DBI::errstr]] |
113 | [1, $DBH->begin_work || die [$DBI::errstr]] |
| 114 | } |
114 | } |
| 115 | |
115 | |
| 116 | sub req_commit { |
116 | sub req_commit { |
| 117 | [1, $DBH->commit or die [$DBI::errstr]] |
117 | [1, $DBH->commit || die [$DBI::errstr]] |
| 118 | } |
118 | } |
| 119 | |
119 | |
| 120 | sub req_rollback { |
120 | sub req_rollback { |
| 121 | [1, $DBH->rollback or die [$DBI::errstr]] |
121 | [1, $DBH->rollback || die [$DBI::errstr]] |
| 122 | } |
122 | } |
| 123 | |
123 | |
| 124 | sub req_func { |
124 | sub req_func { |
| 125 | my (undef, $arg_string, $function) = @{+shift}; |
125 | my (undef, $arg_string, $function) = @{+shift}; |
| 126 | my @args = eval $arg_string; |
126 | my @args = eval $arg_string; |
