From 69b9947f58db94324b52c8e0b98a05640784b24a Mon Sep 17 00:00:00 2001
From: bluesaxman <bluesaxman@labs.murkfall.net>
Date: Fri, 1 Nov 2019 13:08:45 -0600
Subject: [PATCH] Corrected seek issue

---
 wipe.pl | 1 +
 1 file changed, 1 insertion(+)

diff --git a/wipe.pl b/wipe.pl
index da8063d..9f2cbea 100755
--- a/wipe.pl
+++ b/wipe.pl
@@ -147,6 +147,7 @@ sub wipethemdrives {
 		open(my $longdiskw, ">:raw", $disks->{$diskid}{path}) or return warning("could not open $disks->{$diskid}{path}");
 		seek($longdiskw,0,2);
 		my $totalBytes = tell($longdiskw);
+		seek($longdiskw,0,0);
 		until (eof $longdiskw) {
 			print $longdiskw "\0";
 			printf(" %5.5s%%\r\r\r\r\r\r\r", sprintf("%.2f", (tell($longdiskw)/$totalBytes)) );