Revert "scripts/download.pl: read file natively"
authorChristian Marangi <ansuelsmth@gmail.com>
Sun, 27 Oct 2024 14:58:16 +0000 (15:58 +0100)
committerChristian Marangi <ansuelsmth@gmail.com>
Sun, 27 Oct 2024 14:58:16 +0000 (15:58 +0100)
This reverts commit 65560de58de7a3cde8f960849e3c7c640b9456d8.

Seems to broke CI and require more testing.

Signed-off-by: Christian Marangi <ansuelsmth@gmail.com>
scripts/download.pl

index 9966f9f1e6e9561fc40cca095e27ce7ed227418e..c6c9b8e56cd4c310b6b4da061e3552a827ce0196 100755 (executable)
@@ -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;