… | |
… | |
1238 | |
1238 | |
1239 | SV * |
1239 | SV * |
1240 | _get_state () |
1240 | _get_state () |
1241 | CODE: |
1241 | CODE: |
1242 | { |
1242 | { |
|
|
1243 | struct io_state *data; |
|
|
1244 | |
1243 | RETVAL = newSV (sizeof (struct io_state)); |
1245 | RETVAL = newSV (sizeof (struct io_state)); |
1244 | struct io_state *data = (struct io_state *)SvPVX (RETVAL); |
1246 | data = (struct io_state *)SvPVX (RETVAL); |
1245 | SvCUR_set (RETVAL, sizeof (struct io_state)); |
1247 | SvCUR_set (RETVAL, sizeof (struct io_state)); |
1246 | SvPOK_only (RETVAL); |
1248 | SvPOK_only (RETVAL); |
1247 | |
1249 | |
1248 | data->errorno = errno; |
1250 | data->errorno = errno; |
1249 | data->laststype = PL_laststype; |
1251 | data->laststype = PL_laststype; |