| … | |
… | |
| 80 | // all objects no longer referenced and empty are |
80 | // all objects no longer referenced and empty are |
| 81 | // eligible for destruction. |
81 | // eligible for destruction. |
| 82 | void |
82 | void |
| 83 | clean_obj_cache () |
83 | clean_obj_cache () |
| 84 | { |
84 | { |
| 85 | return; // killing neko-san gives me an unreferenced scalar |
85 | return; //D // killing neko-san gives me an unreferenced scalar |
| 86 | int todo = 10; |
86 | int todo = 10; |
| 87 | do |
87 | do |
| 88 | { |
88 | { |
| 89 | I32 klen; |
89 | I32 klen; |
| 90 | char *key; |
90 | char *key; |
| … | |
… | |
| 130 | |
130 | |
| 131 | if (he) |
131 | if (he) |
| 132 | sv = *he; |
132 | sv = *he; |
| 133 | else |
133 | else |
| 134 | { |
134 | { |
|
|
135 | return sv; //D |
| 135 | sv = newSVptr (ptr, klass); |
136 | sv = newSVptr (ptr, klass); |
| 136 | hv_store (obj_cache, (char *)&ptr, sizeof (ptr), sv, 0); |
137 | hv_store (obj_cache, (char *)&ptr, sizeof (ptr), sv, 0); |
| 137 | } |
138 | } |
| 138 | |
139 | |
| 139 | return newSVsv (sv); |
140 | return newSVsv (sv); |
