[Arsperl-devel] ARSperl/infra exsi.pl,1.4,1.5

[jeff m. <jef...@us...>]

Update of /cvsroot/arsperl/ARSperl/infra
In directory sfp-cvsdas-1.v30.ch3.sourceforge.com:/tmp/cvs-serv12365/infra

Modified Files:
	exsi.pl 
Log Message:
changed die to warn. due to watch serverinfotypehints is searched, shouldnt affect anything if theres a gap. sf bug id 2914262

Index: exsi.pl
===================================================================
RCS file: /cvsroot/arsperl/ARSperl/infra/exsi.pl,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** exsi.pl	31 Mar 2009 17:41:18 -0000	1.4
--- exsi.pl	14 Dec 2009 17:25:34 -0000	1.5
***************
*** 16,19 ****
--- 16,22 ----
  #
  # $Log$
+ # Revision 1.5  2009/12/14 17:25:34  jeffmurphy
+ # changed die to warn. due to watch serverinfotypehints is searched, shouldnt affect anything if theres a gap. sf bug id 2914262
+ #
  # Revision 1.4  2009/03/31 17:41:18  tstapff
  # arsystem 7.5 port, AR*Image functions
***************
*** 31,34 ****
--- 34,38 ----
  
  use strict;
+ my $D  = 0;
  
  header();
***************
*** 38,42 ****
  
  while(<>) {
! #	print;
  	chomp;
  	
--- 42,46 ----
  
  while(<>) {
! 	print if $D;
  	chomp;
  	
***************
*** 46,50 ****
  	# name value type type2
  
! 	if(/\#define\s+(AR_SERVER_INFO_\S+)\s+(\d+)\s*\/\*\s*(\S+)\s+(\S+)?/) {
  		($sin, $siv, $sit, $sit2) = ($1, $2, $3, $4);
  	}elsif(/\#define\s+(AR_SERVER_INFO_\S+)\s+(\d+)\s*$/){
--- 50,56 ----
  	# name value type type2
  
! 	if(/AR_SERVER_INFO_MAX_ATTACH_SIZE/) {
! 		next;
! 	}elsif(/\#define\s+(AR_SERVER_INFO_\S+)\s+(\d+)\s*\/\*\s*(\S+)\s+(\S+)?/) {
  		($sin, $siv, $sit, $sit2) = ($1, $2, $3, $4);
  	}elsif(/\#define\s+(AR_SERVER_INFO_\S+)\s+(\d+)\s*$/){
***************
*** 57,62 ****
  
  	if( $sin && $siv && $sit ){
  		++$ct;
! 		die "!!! ERROR: Cannot determine type for AR_SERVER_INFO constant $ct !!!" if $siv != $ct;
  
  		next if $sit eq 'deprecated';
--- 63,69 ----
  
  	if( $sin && $siv && $sit ){
+ 		print "sin $sin siv $siv sit $sit\n" if $D;
  		++$ct;
! 		warn "!!! ERROR: Cannot determine type for AR_SERVER_INFO constant $ct !!!" if $siv != $ct;
  
  		next if $sit eq 'deprecated';