Ensure regen.pl and the scripts that it calls can be run by older perls.

As the internal comments state, they may be all that is available, particularly
if trying to port something to an obscure platform. There's not that much that
needs changing to get back to 5.005, or from there to 5.004, but beyond there
is hard work, and really not worth it.

1 files changed, 2 insertions, 4 deletions

diff --git a/embed.pl b/embed.pl
index b10cbe38a0..ebb1a86da3 100755
--- a/embed.pl
+++ b/embed.pl
@@ -22,7 +22,7 @@
 #
 # This script is normally invoked from regen.pl.
 
-require 5.003;	# keep this compatible, an old perl is all we may have before
+require 5.004;	# keep this compatible, an old perl is all we may have before
                 # we build the new one
 
 use strict;
@@ -33,6 +33,7 @@ BEGIN {
 }
 
 my $SPLINT = 0; # Turn true for experimental splint support http://www.splint.org
+my $unflagged_pointers;
 
 #
 # See database of global and static function prototypes in embed.fnc
@@ -227,7 +228,6 @@ sub write_protos {
 		++$n;
 		if ( $arg =~ /\*/ && $arg !~ /\b(NN|NULLOK)\b/ ) {
 		    warn "$func: $arg needs NN or NULLOK\n";
-		    our $unflagged_pointers;
 		    ++$unflagged_pointers;
 		}
 		my $nn = ( $arg =~ s/\s*\bNN\b\s+// );
@@ -322,8 +322,6 @@ sub write_protos {
   }
 }
 
-
-our $unflagged_pointers;
 walk_table(\&write_protos,     "proto.h", undef, "/* ex: set ro: */\n");
 warn "$unflagged_pointers pointer arguments to clean up\n" if $unflagged_pointers;
 walk_table(\&write_global_sym, "global.sym", undef, "# ex: set ro:\n");