/scripts/tests/fcntl_setfd_test.pl

https://code.google.com/p/camelbox/ · Perl · 9 lines · 3 code · 3 blank · 3 comment · 0 complexity · e80498f53a3615680cbc93b597a3d52f MD5 · raw file 

    

  1. #!/usr/bin/env perl

    2. 

  2. 

    3. 

  3. # test to validate the issue seen in

    4. 

  4. # http://code.google.com/p/camelbox/issues/detail?id=3

    5. 

  5. 

    6. 

  6. use Fcntl;

    7. 

  7. 

    8. 

  8. open (TESTFILE, "> testfile.txt");

    9. 

  9. fcntl(TESTFILE, &Fcntl::F_SETFD, &Fcntl::FD_CLOEXEC);
    10.