Commit ed37baa351c8d60cef00d6b412a78420e2d53b2a - libjson-pp-perl

Fix a regexp in sync_xs Kenichi Ishigaki 3 years ago

1 changed file(s) with 1 addition(s) and 1 deletion(s). Raw diff Collapse all Expand all

-1

author/bin/sync_xs.pl less more

117	117	$content =~ s/\$(json\|obj\|enc\|dec) = /(!$seen{$1}++ ? "my " : "" ) . "\$$1 = "/ge;
118	118	$content =~ s/print (.+?)\s+\?.*\\n";/ok ($1);/g;
119	119	$content =~ s/print "ok \d+\\n";/ok (1);/g;
120		$content =~ s/(use strict;)/package JSON::PP::freeze;\n\n1;\n\npackage JSON::tojson;\n\n1;\n\npackage main;\n\n$1//;
	120	$content =~ s/(use strict;)/package JSON::PP::freeze;\n\n1;\n\npackage JSON::PP::tojson;\n\n1;\n\npackage main;\n\n$1/;
121	121	}
122	122
123	123	if ($basename =~ /099_binary/) {