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