From 916e4025cf76677d80d3543dcfe683347234c30b Mon Sep 17 00:00:00 2001 From: Nicholas Clark Date: Wed, 22 Sep 2010 13:50:20 +0100 Subject: 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. --- embed.pl | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) (limited to 'embed.pl') 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"); -- cgit v1.2.1