diff --git a/bin/xen-create-image b/bin/xen-create-image
index 39176ca..2b2574f 100755
--- a/bin/xen-create-image
+++ b/bin/xen-create-image
@@ -2110,9 +2110,7 @@ EOF
     #  This makes it easy to mount parent folders first
     # (e.g. /var before /var/tmp)
     #
-    @PARTITIONS =
-      sort { length $a->{'mountpoint'} cmp length $b->{'mountpoint'} }
-      @PARTITIONS;
+    @PARTITIONS = sort { length $a->{'mountpoint'} <=> length $b->{'mountpoint'} } @PARTITIONS;
 }