diff options
Diffstat (limited to 'www/p5-HTML-Template-JIT/files/5.005-JIT-Compiler.pm')
| -rw-r--r-- | www/p5-HTML-Template-JIT/files/5.005-JIT-Compiler.pm | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/www/p5-HTML-Template-JIT/files/5.005-JIT-Compiler.pm b/www/p5-HTML-Template-JIT/files/5.005-JIT-Compiler.pm new file mode 100644 index 000000000000..0b1f011e076e --- /dev/null +++ b/www/p5-HTML-Template-JIT/files/5.005-JIT-Compiler.pm @@ -0,0 +1,21 @@ +--- JIT/Compiler.pm~ Fri May 7 12:58:37 2004 ++++ JIT/Compiler.pm Fri May 7 12:58:39 2004 +@@ -87,6 +87,18 @@ + use Inline C => Config => OPTIMIZE => "$optimize", DIRECTORY => "$self->{package_dir}" $inline_debug; + use Inline C => <<'CODE_END'; + ++#ifndef SvPV_nolen ++# define SvPV_nolen(sv) ((SvFLAGS(sv) & (SVf_POK)) == SVf_POK ? SvPVX(sv) : sv_2pv_nolen(sv)) ++ static char * ++ sv_2pv_nolen(register SV *sv) ++ { ++ STRLEN n_a; ++ return sv_2pv(sv, &n_a); ++ } ++#endif ++ ++#define get_hv(name,create) perl_get_hv(name,create) ++ + END + + # print out code |