Select Code to Download

#!/usr/bin/perl -w
use Fcntl;
...
    print "Calling F_SETFL with F_GETGL return value succeeded.\n";
}
print "new_opts -> $new_opts  cur_opts -> $cur_opts\n";

rc -> 0 but true
new_opts -> 1025
Calling F_SETFL with F_GETGL return value succeeded.
new_opts -> 1025  cur_opts -> 1025

cur_opts -> 1025
rc -> 0 but true
new_opts -> 8193
ERROR
new_opts -> 8193  cur_opts -> 1025V@S@ÿÿÿÿ0ÿÿÿÿÿÿÿÿHÿÿÿÿ N@