Fix perl build on Windows

howard0su · howard0su · commit e73112211fc0 · 2019-01-04T03:59:40.000Z
diff --git a/utils/extract_strings.pl b/utils/extract_strings.pl
@@ -226,7 +226,7 @@ sub fnv_16 {
 
         foreach(sort{$a <=> $b} keys %hashvalues)
         {
-            print $fh pack("S<", $_);
+            print $fh pack("S", $_);
             print $fh "$hashvalues{$_}\n";
         }
         close $fh;

Original file line number	Diff line number	Diff line change
`@@ -226,7 +226,7 @@ sub fnv_16 {`
`226`	`226`
`227`	`227`	`foreach(sort{$a <=> $b} keys %hashvalues)`
`228`	`228`	`{`
`229`		`- print $fh pack("S<", $_);`
	`229`	`+ print $fh pack("S", $_);`
`230`	`230`	`print $fh "$hashvalues{$_}\n";`
`231`	`231`	`}`
`232`	`232`	`close $fh;`