| … | |
… | |
| 318 | if (len == 1) |
318 | if (len == 1) |
| 319 | if (*pv == '1') |
319 | if (*pv == '1') |
| 320 | return 1; |
320 | return 1; |
| 321 | else if (*pv == '0') |
321 | else if (*pv == '0') |
| 322 | return 0; |
322 | return 0; |
| 323 | |
|
|
| 324 | } |
323 | } |
| 325 | |
324 | |
| 326 | return -1; |
325 | return -1; |
| 327 | } |
326 | } |
| 328 | |
327 | |
| … | |
… | |
| 333 | if (!SvROK (scalar)) |
332 | if (!SvROK (scalar)) |
| 334 | return 1; |
333 | return 1; |
| 335 | |
334 | |
| 336 | scalar = SvRV (scalar); |
335 | scalar = SvRV (scalar); |
| 337 | |
336 | |
|
|
337 | if (SvTYPE (scalar) >= SVt_PVMG) |
|
|
338 | { |
| 338 | if (SvSTASH (scalar) == bool_stash) |
339 | if (SvSTASH (scalar) == bool_stash) |
| 339 | return 1; |
340 | return 1; |
| 340 | |
341 | |
| 341 | if (!SvOBJECT (scalar) && ref_bool_type (scalar) >= 0) |
342 | if (!SvOBJECT (scalar) && ref_bool_type (scalar) >= 0) |
| 342 | return 1; |
343 | return 1; |
|
|
344 | } |
| 343 | |
345 | |
| 344 | return 0; |
346 | return 0; |
| 345 | } |
347 | } |
| 346 | |
348 | |
| 347 | ///////////////////////////////////////////////////////////////////////////// |
349 | ///////////////////////////////////////////////////////////////////////////// |
