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