mhonarc-commits
[Top] [All Lists]

CVS: mhonarc/MHonArc/lib mhamain.pl,2.61,2.62

2003-03-07 01:07:20
Update of /cvsroot/mhonarc/mhonarc/MHonArc/lib
In directory subversions:/tmp/cvs-serv13515

Modified Files:
	mhamain.pl 
Log Message:
Minor code optimizations(?); done while tracking down bug #2738.


Index: mhamain.pl
===================================================================
RCS file: /cvsroot/mhonarc/mhonarc/MHonArc/lib/mhamain.pl,v
retrieving revision 2.61
retrieving revision 2.62
diff -C2 -r2.61 -r2.62
*** mhamain.pl	23 Feb 2003 00:19:41 -0000	2.61
--- mhamain.pl	7 Mar 2003 08:07:01 -0000	2.62
***************
*** 30,34 ****
  require 5;
  
! $VERSION = '2.6.1';
  $VINFO =<<EndOfInfo;
    MHonArc v$VERSION (Perl $] $^O)
--- 30,34 ----
  require 5;
  
! $VERSION = '2.6.1+';
  $VINFO =<<EndOfInfo;
    MHonArc v$VERSION (Perl $] $^O)
***************
*** 1064,1068 ****
  	$msghandle = \*STDOUT;
      } else {
! 	($msghandle, $tmppathname) = file_temp('tmsgXXXXXXXXXX', $OUTDIR);
      }
  
--- 1064,1069 ----
  	$msghandle = \*STDOUT;
      } else {
! 	($msghandle, $tmppathname) =
! 	    file_temp('tmsg'.$i_p0.'_XXXXXXXXXX', $OUTDIR);
      }
  
***************
*** 1237,1243 ****
  	$tmp2 = 0;	# flag for when first ref printed
  	if (scalar(@{$Refs{$index}})) {
! 	    foreach (@{$Refs{$index}}) {
! 		next  unless defined($MsgId{$_});
! 		next  unless defined($IndexNum{$MsgId{$_}});
  		if (!$tmp2) {
  		    ($template = $REFSBEGIN) =~
--- 1238,1245 ----
  	$tmp2 = 0;	# flag for when first ref printed
  	if (scalar(@{$Refs{$index}})) {
! 	    my($ref_msgid, $ref_index, $ref_num);
! 	    foreach $ref_msgid (@{$Refs{$index}}) {
! 		next  unless defined($ref_index = $MsgId{$ref_msgid});
! 		next  unless defined($ref_num = $IndexNum{$ref_index});
  		if (!$tmp2) {
  		    ($template = $REFSBEGIN) =~
***************
*** 1247,1251 ****
  		}
  		($template = $REFSLITXT) =~
! 		    s/$VarExp/&replace_li_var($1,$MsgId{$_})/geo;
  		print $msghandle $template;
  	    }
--- 1249,1253 ----
  		}
  		($template = $REFSLITXT) =~
! 		    s/$VarExp/&replace_li_var($1,$ref_index)/geo;
  		print $msghandle $template;
  	    }

---------------------------------------------------------------------
To sign-off this list, send email to majordomo(_at_)mhonarc(_dot_)org with the
message text UNSUBSCRIBE MHONARC-DEV