+# add integer-encoded #def of the bison version
+
+{
+ $version =~ /^(\d+)\.(\d+)/
+ or die "Can't handle bison version format: '$version'";
+ my ($v1,$v2) = ($1,$2);
+ die "Unexpectedly large bison version '$v1'" if $v1 > 99;
+ die "Unexpectedly large bison subversion '$v2'" if $v2 > 9999;
+
+ printf $h_fh "#define PERL_BISON_VERSION %2d%04d\n\n", $v1, $v2;
+}