[vuser] r597 committed - Change _escape_quotes() to escape '>' with <.

[vu...@googlecode.com]

Revision: 597
Author: perlstalker
Date: Mon Jan 9 09:51:50 2012
Log: Change _escape_quotes() to escape '>' with <.

http://code.google.com/p/vuser/source/detail?r=597

Modified:
/VUser-Google-ProvisioningAPI/trunk/lib/VUser/Google/Provisioning.pm

=======================================
--- /VUser-Google-ProvisioningAPI/trunk/lib/VUser/Google/Provisioning.pm
Thu Sep 1 15:51:35 2011
+++ /VUser-Google-ProvisioningAPI/trunk/lib/VUser/Google/Provisioning.pm
Mon Jan 9 09:51:50 2012
@@ -33,12 +33,14 @@

# Escape " with " for XML
# & with &
+# > with <
sub _escape_quotes {
my $self = shift;
my $text = shift;

$text =~ s/\"/"/g;
$text =~ s/\&/&/g;
+ $text =~ s/>/</g;

return $text;
}