… | … | ||
---|---|---|---|
58 | 58 | ||
59 | T_CF_OBJ | 59 | T_CF_OBJ |
60 | $arg = to_sv ($var); | 60 | $arg = to_sv ($var); |
61 | 61 | ||
62 | T_CF_OCTETS | 62 | T_CF_OCTETS |
63 | $arg = newSVpv ($var, 0); | 63 | $arg = $var ? newSVpv ($var, 0) : &PL_sv_undef; |
64 | 64 | ||
65 | T_CF_UTF8 | 65 | T_CF_UTF8 |
66 | if ($var) | ||
67 | { | ||
66 | $arg = newSVpv ($var, 0); | 68 | $arg = newSVpv ($var, 0); |
67 | SvUTF8_on ($arg); | 69 | SvUTF8_on ($arg); |
70 | } | ||
71 | else | ||
72 | $arg = &PL_sv_undef; | ||
68 | 73 |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |