You are viewing a plain text version of this content. The canonical link for it is here.
Posted to embperl-cvs@perl.apache.org by ri...@apache.org on 2001/08/01 16:02:38 UTC
cvs commit: embperl/Embperl/Syntax RTF.pm
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: embperl-cvs-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-cvs-help@perl.apache.org