20 lines
469 B
Diff
20 lines
469 B
Diff
--- a/third_party/heimdal/cf/make-proto.pl
|
|
+++ b/third_party/heimdal/cf/make-proto.pl
|
|
@@ -4,7 +4,7 @@
|
|
use Getopt::Std;
|
|
use File::Compare;
|
|
|
|
-use JSON;
|
|
+use JSON::PP;
|
|
|
|
my $comment = 0;
|
|
my $doxygen = 0;
|
|
@@ -70,7 +70,7 @@ if($opt_x) {
|
|
my $EXP;
|
|
local $/;
|
|
open(EXP, '<', $opt_x) || die "open ${opt_x}";
|
|
- my $obj = JSON->new->utf8->decode(<EXP>);
|
|
+ my $obj = JSON::PP->new->utf8->decode(<EXP>);
|
|
close $EXP;
|
|
|
|
foreach my $x (keys %$obj) {
|