… | |
… | |
1528 | { |
1528 | { |
1529 | dec_t dec; |
1529 | dec_t dec; |
1530 | SV *sv; |
1530 | SV *sv; |
1531 | |
1531 | |
1532 | /* work around bugs in 5.10 where manipulating magic values |
1532 | /* work around bugs in 5.10 where manipulating magic values |
1533 | * will perl ignore the magic in subsequent accesses. |
1533 | * makes perl ignore the magic in subsequent accesses. |
1534 | * also make a copy of non-PV values, to get them into a clean |
1534 | * also make a copy of non-PV values, to get them into a clean |
1535 | * state (SvPV should do that, but it's buggy, see below). |
1535 | * state (SvPV should do that, but it's buggy, see below). |
1536 | */ |
1536 | */ |
1537 | /*SvGETMAGIC (string);*/ |
1537 | /*SvGETMAGIC (string);*/ |
1538 | if (SvMAGICAL (string) || !SvPOK (string)) |
1538 | if (SvMAGICAL (string) || !SvPOK (string)) |