hdf5_chunking_query_bmr

#!/usr/bin/perl -w

require 5.003;

$indent=4;

​

#

# Copyright by The HDF Group.

# Copyright by the Board of Trustees of the University of Illinois.

# All rights reserved.

#

# This file is part of HDF5.  The full HDF5 copyright notice, including

# terms governing use, modification, and redistribution, is contained in

# the COPYING file, which can be found at the root of the source code

# distribution tree, or in https://support.hdfgroup.org/ftp/HDF5/releases.

# If you do not have access to either file, you may request a copy from

# help@hdfgroup.org.

#

​

# Run program in background

#

use warnings;

use strict;

​

use Carp;

use Time::HiRes;

use POSIX 'setsid';

​

my $child_pid;

my $child_proc;

my $cmd = $ARGV[0];

my $debug = 1;

​

print "\nStart child process\n";

start_child();

print "\nStarted child process\n";

​

sub start_child {

    die "cannot execute cmd: $cmd" unless -x $cmd;

    if ($^O eq 'MSWin32') { # Windows

        require Win32::Process;

        Win32::Process::Create($child_proc, $cmd, $cmd, 0, 0, ".") || confess "Could not spawn child: $!";

        $child_pid = $child_proc->GetProcessID();

    }

    else { # Unix

        $SIG{CHLD} = 'IGNORE';

        $child_pid = fork();

        unless (defined $child_pid) {

            confess "Could not spawn child (Unix): $!";

        }

        if ($child_pid == 0) { # child

            unless ($debug) {

                open STDIN, "<", "/dev/null"   or die "Can't read /dev/null: $!";