Help for this page

Select Code to Download


  1. or download this
    # Call.XS ~line 130
    SAVESPTR(DEFSV) ;/* save $_ */
    /* make $_ use our buffer */
    DEFSV = sv_2mortal(newSVpv("", 0)) ;
  2. or download this
    use Filter::Util::Call;
BEGIN{ filter_add(sub{
...
}); }
print "hello, world\n";