Merge pull request #534 from howard0su/perl

PhracturedBlue · web-flow · commit 9e620746d60d · 2019-01-06T19:06:30.000-08:00
Fix perl build on Windows
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("CC", $_ & 0xFF, $_ >> 8);
             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("CC", $_ & 0xFF, $_ >> 8);`
`230`	`230`	`print $fh "$hashvalues{$_}\n";`
`231`	`231`	`}`
`232`	`232`	`close $fh;`