From de9d3f28144396a5a8b8c263dd5acd2cfd0d7899 Mon Sep 17 00:00:00 2001
From: Axel Beckert <abe@deuxchevaux.org>
Date: Tue, 27 Nov 2012 23:26:32 +0100
Subject: [PATCH] Replace one more die by fail

---
 bin/xen-create-image | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/bin/xen-create-image b/bin/xen-create-image
index bccfc8a..1c897a9 100755
--- a/bin/xen-create-image
+++ b/bin/xen-create-image
@@ -4071,7 +4071,7 @@ sub unMountImage
     my @points;
 
     open( MOUNTED, "<", "/proc/mounts" ) or
-      die "Failed to open mount list";
+      fail("Failed to open mount list");
     foreach my $line (<MOUNTED>)
     {