in reply to Re: Odd behavior with a "vertical tab" character
in thread Odd behavior with a "vertical tab" character
#define PackRaw\ {\ HV * h;\ if (SvRV(data) &&\ (SvTYPE(h=(HV*)SvRV(data))==SVt_PVHV)) {\ int count;\ PUSHMARK(sp);\ XPUSHs(data);\ PUTBACK;\ count = perl_call_method("Raw", G_SCALAR);\ SPAGAIN;\ if (count != 1) {\ SV ** s = hv_fetch(h, "raw", 3, 0);\ if (s)\ data = *s;\ } else {\ data = POPs;\ PUTBACK;\ }\ }\ }
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: Re: Odd behavior with a "vertical tab" character
by Courage (Parson) on Nov 05, 2002 at 20:30 UTC |