richter 01/08/29 02:48:40
Modified: Embperl/Syntax Tag: Embperl2c RTF.pm
Log:
Embperl 2 - RTF
Revision Changes Path
No revision
No revision
1.1.2.18 +5 -3 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.17
retrieving revision 1.1.2.18
diff -u -r1.1.2.17 -r1.1.2.18
--- RTF.pm 2001/08/29 08:25:23 1.1.2.17
+++ RTF.pm 2001/08/29 09:48:39 1.1.2.18
@@ -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.17 2001/08/29 08:25:23 richter Exp $
+# $Id: RTF.pm,v 1.1.2.18 2001/08/29 09:48:39 richter Exp $
#
###################################################################################
@@ -53,13 +53,15 @@
my $eb = $self -> {-epbBlocks} ;
my $k ;
my $v ;
+ my $ebesc = $self -> CloneHash ($eb, { 'unescape' => 17 }) ;
+
- while (($k, $v) = each %$eb)
+ while (($k, $v) = each %$ebesc)
{
$Block{$k} = $v ;
}
- $self -> {-rtfBlocks} = $self -> CloneHash (\%Para, { 'unescape' => 17 }) ;
+ $self -> {-rtfBlocks} = $self -> CloneHash (\%Para) ;
$self -> AddToRoot ($self -> {-rtfBlocks}) ;
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
