Ver Fonte

Revert "scripts/download.pl: read file natively"

This reverts commit 65560de58de7a3cde8f960849e3c7c640b9456d8.

Seems to broke CI and require more testing.

Signed-off-by: Christian Marangi <[email protected]>
Christian Marangi há 1 ano atrás
pai
commit
07159cc25a
1 ficheiros alterados com 4 adições e 10 exclusões
  1. 4 10
      scripts/download.pl

+ 4 - 10
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;