mhonarc-commits
[Top] [All Lists]

CVS: mhonarc/MHonArc/lib iso2022jp.pl,1.8,1.9

2002-12-04 13:00:44
Update of /cvsroot/mhonarc/mhonarc/MHonArc/lib
In directory subversions:/tmp/cvs-serv31974

Modified Files:
	iso2022jp.pl 
Log Message:
* Bug Fix #1878: Slight mod to prevent an extra \n being added at the
  end of data.


Index: iso2022jp.pl
===================================================================
RCS file: /cvsroot/mhonarc/mhonarc/MHonArc/lib/iso2022jp.pl,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -r1.8 -r1.9
*** iso2022jp.pl	30 Jul 2002 18:20:46 -0000	1.8
--- iso2022jp.pl	4 Dec 2002 20:00:39 -0000	1.9
***************
*** 63,66 ****
--- 63,68 ----
  
      $ret = "";
+     my $cnt = scalar(@lines);
+     my $i = 0;
      foreach (@lines) {
  	# a trick to process preceding ASCII text
***************
*** 115,119 ****
  	$ret =~ s/^\033\(B//;
  
! 	$ret .= "\n";
      }
  
--- 117,122 ----
  	$ret =~ s/^\033\(B//;
  
! 	# add back eol
! 	$ret .= "\n"  unless (++$i >= $cnt);
      }
  

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