1#!/usr/local/bin/perl -w 2 3use strict; 4 5use File::Temp "tempdir"; 6 7my $tmp = tempdir ( "phgvXXXX", CLEANUP => 1 ); 8$ENV{VDB_CONFIG}=$tmp; 9$ENV{NCBI_SETTINGS}="$tmp/u.mkfg"; 10 11`vdb-config -s foo=bar`; 12die "vdb-config exited with " . ( $? >> 8 ) if ( $? ); 13