From 897a69604dd2f3999b829376ae10ff7c6e6b3288 Mon Sep 17 00:00:00 2001
From: "Richard W.M. Jones" <rjones@redhat.com>
Date: Tue, 30 Apr 2013 15:42:31 +0100
Subject: [PATCH] perl: Make the 030-create-flags test same as canonical OCaml
 version.

---
 perl/t/030-create-flags.t | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/perl/t/030-create-flags.t b/perl/t/030-create-flags.t
index e72243903..ef7b41943 100644
--- a/perl/t/030-create-flags.t
+++ b/perl/t/030-create-flags.t
@@ -21,5 +21,5 @@ use Test::More tests => 1;
 
 use Sys::Guestfs;
 
-my $g = Sys::Guestfs->new (environment => 0);
+my $g = Sys::Guestfs->new (environment => 0, close_on_exit => 1);
 ok ($g);