Help for this page

Select Code to Download


  1. or download this
        use open IN=>":raw", OUT=>":raw";
  2. or download this
        *CORE::GLOBAL::open= sub {
        my( $fh, $arg, @args )= @_;
...
        binmode( $fh );
        return $ret;
    };
  3. or download this
        if (PL_op && PL_op->op_type == OP_OPEN) {
        /* set up disciplines */
        U8 flags = PL_op->op_private;
        in_raw = (flags & OPpOPEN_IN_RAW);
  4. or download this
        if (PL_op) {