richter 01/08/01 07:02:38
Modified: Embperl/Syntax Tag: Embperl2c RTF.pm
Log:
Embperl 2 - RTF syntax
Revision Changes Path
No revision
No revision
1.1.2.14 +2 -2 embperl/Embperl/Syntax/Attic/RTF.pm
Index: RTF.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl/Syntax/Attic/RTF.pm,v
retrieving revision 1.1.2.13
retrieving revision 1.1.2.14
diff -u -r1.1.2.13 -r1.1.2.14
--- RTF.pm 2001/08/01 08:02:37 1.1.2.13
+++ RTF.pm 2001/08/01 14:02:38 1.1.2.14
@@ -10,7 +10,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: RTF.pm,v 1.1.2.13 2001/08/01 08:02:37 richter Exp $
+# $Id: RTF.pm,v 1.1.2.14 2001/08/01 14:02:38 richter Exp $
#
###################################################################################
@@ -540,7 +540,7 @@
if ($_ep_rtf_inside == 0)
{
my ($op, $cmp, $a, $b) =
XML::Embperl::DOM::Node::iChildsText (%$q%,%$x%,1) =~
/\:([=<>])\s*\"(.*?)\"\s*\"(.*?)\"\s*\"(.*?)\"/ ;
- print "op = $op cmp = $cmp a = $a b = $b\n" ;
+ #print "op = $op cmp = $cmp a = $a b = $b\n" ;
$_[0] -> Code ($_ep_rtf_code) ;
}
}
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
