… | |
… | |
2143 | SV **ary; |
2143 | SV **ary; |
2144 | |
2144 | |
2145 | /* unfortunately, building manually saves memory */ |
2145 | /* unfortunately, building manually saves memory */ |
2146 | Newx (ary, 2, SV *); |
2146 | Newx (ary, 2, SV *); |
2147 | AvALLOC (av) = ary; |
2147 | AvALLOC (av) = ary; |
2148 | AvARRAY (av) = ary; |
2148 | SvPV_set ((SV *)av, (char *)ary); /* 5.8.8 needs this syntax instead of AvARRAY = ary */ |
2149 | AvMAX (av) = 1; |
2149 | AvMAX (av) = 1; |
2150 | AvFILLp (av) = 0; |
2150 | AvFILLp (av) = 0; |
2151 | ary [0] = newSViv (count); |
2151 | ary [0] = newSViv (count); |
2152 | |
2152 | |
2153 | return newRV_noinc ((SV *)av); |
2153 | return newRV_noinc ((SV *)av); |