| Subject: | [patch] explicitly-specified String type does not encode < or & as per specification |
--- libfrontier-rpc-perl-0.06-3/lib/Frontier/RPC2.pm Sat Nov 20 16:13:21 1999
+++ libfrontier-rpc-perl-0.06/lib/Frontier/RPC2.pm Mon Jul 15 21:19:59 2002
@@ -515,6 +515,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};