… | |
… | |
151 | } |
151 | } |
152 | |
152 | |
153 | void |
153 | void |
154 | _unpatch (IV sock) |
154 | _unpatch (IV sock) |
155 | CODE: |
155 | CODE: |
156 | if (IN_DESTRUCT) |
156 | if (!IN_DESTRUCT) |
157 | { |
157 | { |
158 | /* we currently leak data during global destruction */ |
158 | /* we currently leak data during global destruction */ |
159 | /* perl makes it extremely hard to do otherwise, though */ |
159 | /* perl makes it extremely hard to do otherwise, though */ |
160 | MYSQL *my = (MYSQL *)sock; |
160 | MYSQL *my = (MYSQL *)sock; |
161 | Vio *vio = my->net.vio; |
161 | Vio *vio = my->net.vio; |