From 1f24e094cac1eac0390c6e42ad75cdfad3834a0d Mon Sep 17 00:00:00 2001
From: Andrew Rogers <targetdisk1394@gmail.com>
Date: Sat, 24 Jun 2023 04:07:07 -0500
Subject: [PATCH] pacpruner: Remove extra PERL HERE doc

---
 scripts/pacpruner-calculator | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/scripts/pacpruner-calculator b/scripts/pacpruner-calculator
index 3847ac3..94523e9 100755
--- a/scripts/pacpruner-calculator
+++ b/scripts/pacpruner-calculator
@@ -11,8 +11,6 @@ EOUSAGE
 
 [ -z "$1" ] && dedcat "$usage"
 
-read -d '' PERL <<EOPERL
-print $(cat "$1" | xargs du | awk '{print $1}' | tr $'\n' '+' | sed 's/+$//')
-EOPERL
+kib_terms=$(cat "$1" | xargs du | awk '{print $1}' | tr $'\n' '+' | sed 's/+$//')
 
-perl -e "$PERL"' . "\n";'
+perl -e "print $kib_terms"' . "\n";'