CVS: mhonarc/MHonArc/lib ewhutil.pl,2.12,2.13

Update of /cvsroot/mhonarc/mhonarc/MHonArc/lib
In directory subversions:/tmp/cvs-serv25245

Modified Files:
	ewhutil.pl 
Log Message:
* Fixed patch to leave @'s for iso-2022-jp text.


Index: ewhutil.pl
===================================================================
RCS file: /cvsroot/mhonarc/mhonarc/MHonArc/lib/ewhutil.pl,v
retrieving revision 2.12
retrieving revision 2.13
diff -C2 -r2.12 -r2.13
*** ewhutil.pl	14 Feb 2003 19:03:33 -0000	2.12
--- ewhutil.pl	19 Feb 2003 06:26:18 -0000	2.13
***************
*** 27,30 ****
--- 27,31 ----
  package mhonarc;
  
+ my $HTMLSpecials = '"&<>';
  my %HTMLSpecials = (
    '"'	=> '&quot;',
***************
*** 53,57 ****
      my $txt   = shift;
      my $txt_r = ref($txt) ? $txt : \$txt;
!     $$txt_r =~ s/(["&<>@])/$HTMLSpecials{$1}/g;
      $$txt_r;
  }
--- 54,58 ----
      my $txt   = shift;
      my $txt_r = ref($txt) ? $txt : \$txt;
!     $$txt_r =~ s/([$HTMLSpecials])/$HTMLSpecials{$1}/go;
      $$txt_r;
  }
***************
*** 61,65 ****
      my $txt   = shift;
      my $txt_r = ref($txt) ? $txt : \$txt;
!     $$txt_r =~ s/(["&<>@])/$HTMLSpecials{$1}/g;
      $$txt_r;
  }
--- 62,66 ----
      my $txt   = shift;
      my $txt_r = ref($txt) ? $txt : \$txt;
!     $$txt_r =~ s/([$HTMLSpecials])/$HTMLSpecials{$1}/go;
      $$txt_r;
  }

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