richter 01/05/30 00:23:03
Modified: . Embperl.pm
Log:
escape \ in error page
Revision Changes Path
1.156 +3 -1 embperl/Embperl.pm
Index: Embperl.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl.pm,v
retrieving revision 1.155
retrieving revision 1.156
diff -u -r1.155 -r1.156
--- Embperl.pm 2001/05/29 05:22:17 1.155
+++ Embperl.pm 2001/05/30 07:23:01 1.156
@@ -10,7 +10,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: Embperl.pm,v 1.155 2001/05/29 05:22:17 richter Exp $
+# $Id: Embperl.pm,v 1.156 2001/05/30 07:23:01 richter Exp $
#
###################################################################################
@@ -1963,6 +1963,7 @@
{
$self -> output ("<A HREF=\"$virtlog?$logfilepos&$$#E$cnt\">") ;
#<tt>") ;
$HTML::Embperl::escmode = 3 ;
+ $err =~ s|\\|\\\\|g;
$err =~ s|\n|\n\\<br\\>\\ \\ \\ \\ |g;
$err =~ s|(Line [0-9]*:)|$1\\</a\\>|;
$self -> output ($err) ;
@@ -1977,6 +1978,7 @@
$HTML::Embperl::escmode = 3 ;
foreach $err (@$errors)
{
+ $err =~ s|\\|\\\\|g;
$err =~ s|\n|\n\\<br\\>\\ \\ \\ \\ |g;
$self -> output ("$err\\<p\\>\r\n") ;
#$self -> output ("\\<tt\\>$err\\</tt\\>\\<p\\>\r\n") ;
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
