PageRenderTime 75ms CodeModel.GetById 73ms app.highlight 1ms RepoModel.GetById 1ms app.codeStats 0ms

/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
3# test to validate the issue seen in

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

5
6use Fcntl;
7
8open (TESTFILE, "> testfile.txt");
9fcntl(TESTFILE, &Fcntl::F_SETFD, &Fcntl::FD_CLOEXEC);