[openwrt/openwrt] Revert "scripts/download.pl: read file natively"

[LEDE Commits]

ansuel pushed a commit to openwrt/openwrt.git, branch main:
https://git.openwrt.org/07159cc25a5b5934e6eeb48409d8e846d797b0fa

commit 07159cc25a5b5934e6eeb48409d8e846d797b0fa
Author: Christian Marangi <ansuelsmth at gmail.com>
AuthorDate: Sun Oct 27 15:58:16 2024 +0100

    Revert "scripts/download.pl: read file natively"
    
    This reverts commit 65560de58de7a3cde8f960849e3c7c640b9456d8.
    
    Seems to broke CI and require more testing.
    
    Signed-off-by: Christian Marangi <ansuelsmth at gmail.com>
---
 scripts/download.pl | 14 ++++----------
 1 file changed, 4 insertions(+), 10 deletions(-)

diff --git a/scripts/download.pl b/scripts/download.pl
index 9966f9f1e6..c6c9b8e56c 100755
--- a/scripts/download.pl
+++ b/scripts/download.pl
@@ -32,12 +32,6 @@ my $download_tool;
 
 $url_filename or $url_filename = $filename;
 
-sub cat {
-	open my $fh, '<', $1 or die "Can't open file $!";
-	read $fh, my $file_content, -s $fh;
-	return $file_content;
-}
-
 sub localmirrors {
 	my @mlist;
 	open LM, "$scriptdir/localmirrors" and do {
@@ -209,7 +203,7 @@ sub download
 		copy($link, "$target/$filename.dl");
 
 		$hash_cmd and do {
-			if (system("$hash_cmd '$target/$filename.dl' > '$target/$filename.hash'")) {
+			if (system("cat '$target/$filename.dl' | $hash_cmd > '$target/$filename.hash'")) {
 				print("Failed to generate hash for $filename\n");
 				return;
 			}
@@ -239,7 +233,7 @@ sub download
 	}
 
 	$hash_cmd and do {
-		my $sum = cat("$target/$filename.hash");
+		my $sum = `cat "$target/$filename.hash"`;
 		$sum =~ /^(\w+)\s*/ or die "Could not generate file hash\n";
 		$sum = $1;
 
@@ -305,11 +299,11 @@ projectsmirrors '@OPENWRT';
 
 if (-f "$target/$filename") {
 	$hash_cmd and do {
-		if (system("$hash_cmd '$target/$filename' > '$target/$filename.hash'")) {
+		if (system("cat '$target/$filename' | $hash_cmd > '$target/$filename.hash'")) {
 			die "Failed to generate hash for $filename\n";
 		}
 
-		my $sum = cat("$target/$filename.hash");
+		my $sum = `cat "$target/$filename.hash"`;
 		$sum =~ /^(\w+)\s*/ or die "Could not generate file hash\n";
 		$sum = $1;