perl-xml-commits

[ivan <iv...@us...>]

Update of /cvsroot/perl-xml/Frontier-RPC/lib/Frontier
In directory usw-pr-cvs1:/tmp/cvs-serv9937/lib/Frontier

Modified Files:
	RPC2.pm 
Log Message:
* lib/Frontier/RPC2.pm: added repr subroutine for String datatype
  so that an explicity-specified String type encodes < > & and "


Index: RPC2.pm
===================================================================
RCS file: /cvsroot/perl-xml/Frontier-RPC/lib/Frontier/RPC2.pm,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -d -r1.17 -r1.18
--- RPC2.pm	9 Apr 2001 20:30:27 -0000	1.17
+++ RPC2.pm	2 Aug 2002 18:35:21 -0000	1.18
@@ -534,6 +534,13 @@
 use vars qw{@ISA};
 @ISA = qw{Frontier::RPC2::DataType};
 
+sub repr {
+    my $self = shift;
+    my $value = $$self;
+    $value =~ s/([&<>\"])/$Frontier::RPC2::char_entities{$1}/ge;
+    $value;
+}
+
 package Frontier::RPC2::Double;
 
 use vars qw{@ISA};