From 14846e85fda4837ad5ccb95acedb2404de0d0a35 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?St=C3=A9phane=20Jourdois?= <sjourdois@gmail.com>
Date: Sun, 11 Jul 2010 14:40:02 +0200
Subject: [PATCH] Use rmtree not rmdir

rmdir does not remove dir when not empty. Use rmtree for that.
makes t/xen-delete-image test pass.
---
 bin/xen-delete-image | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/bin/xen-delete-image b/bin/xen-delete-image
index e7d40db..f0e99f7 100755
--- a/bin/xen-delete-image
+++ b/bin/xen-delete-image
@@ -156,6 +156,7 @@ use strict;
 use English;
 use Getopt::Long;
 use Pod::Usage;
+use File::Path;
 
 
 #
@@ -517,7 +518,7 @@ sub deleteXenImage
                 print "Would delete: $prefix$hostname\n";
             } else {
                 print "Removing: " . $prefix . $hostname . "\n";
-                rmdir( $prefix . $hostname );
+                rmtree( $prefix . $hostname );
             }
         }
     }