| … | |
… | |
| 35 | chk_array (SV *sv, int size, const char *func, const char *var) |
35 | chk_array (SV *sv, int size, const char *func, const char *var) |
| 36 | { |
36 | { |
| 37 | if (!SvROK (sv) |
37 | if (!SvROK (sv) |
| 38 | || SvTYPE (SvRV (sv)) != SVt_PVAV |
38 | || SvTYPE (SvRV (sv)) != SVt_PVAV |
| 39 | || av_len ((AV *)SvRV (sv)) != size - 1) |
39 | || av_len ((AV *)SvRV (sv)) != size - 1) |
| 40 | croak ("%s: %s (%s) must be a reference to an array of size %d (is %s)", func, SvPV_nolen (sv), var, size); |
40 | croak ("%s: %s (%s) must be a reference to an array of size %d", func, SvPV_nolen (sv), var, size); |
| 41 | } |
41 | } |
| 42 | |
42 | |
| 43 | static void |
43 | static void |
| 44 | free_files (struct state *self) |
44 | free_files (struct state *self) |
| 45 | { |
45 | { |
