Lines Matching defs:Fcntl
20 eval 'require Fcntl'
21 or do { print "1..0\n# Fcntl unavailable, can't test XS goto.\n"; exit 0 };
27 # likely do the unthinkable. However, Fcntl::constant("LOCK_SH",0)
29 # cpp symbol; Fcntl.xs says:
35 ### First, we check whether Fcntl::constant returns sane answers.
36 # Fcntl::constant("LOCK_SH",0) should always succeed.
38 $value = Fcntl::constant($VALID);
46 sub goto_const { goto &Fcntl::constant; }
52 $FNAME1 = 'Fcntl::constant';
65 package Fcntl;
70 $ret = Fcntl::goto_name2($VALID);
74 $FREF = \&Fcntl::constant;