From 8a92861412999f7eb44f07d157a6ac5189ebb7d6 Mon Sep 17 00:00:00 2001
From: Giacomo Tesio <giacomo@tesio.it>
Date: Sat, 25 Feb 2017 11:07:45 +0100
Subject: [PATCH] disk-create.sh: remove perl dependency (used to slow down the
 fdisk script)

---
 disk-create.sh | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/disk-create.sh b/disk-create.sh
index adace0e..936e62d 100755
--- a/disk-create.sh
+++ b/disk-create.sh
@@ -51,7 +51,7 @@ fi
 if [ ! -f $DISK ]; then
 	qemu-img create $DISK 4G
 
-	sed -e 's/^\s*\([\+0-9a-zA-Z]*\)[ ].*/\1/' << EOF | perl -MTime::HiRes=usleep -pe '$|=1;usleep(1000000)' | /sbin/fdisk $DISK
+	sed -e 's/^\s*\([\+0-9a-zA-Z]*\)[ ].*/\1/' << EOF | /sbin/fdisk $DISK
     o     #clear partition table
     n     #new partition
     p     #primary partition