net/amphetadesk/files/patch-lib::XML::Simple.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36

--- lib/XML/Simple.pm.orig	Sun Oct  9 20:08:35 2005
+++ lib/XML/Simple.pm	Sun Oct  9 20:22:07 2005
@@ -880,7 +880,7 @@
     $encoded->{$ref} = $ref;
   }
   else {
-    if($named) {
+    if(($named) && ($ref) && ($self) && ($self->escape_value($ref))) {
       return(join('',
               $indent, '<', $name, '>',
 	      ($self->{opt}->{noescape} ? $ref : $self->escape_value($ref)),
@@ -888,7 +888,11 @@
 	    ));
     }
     else {
+      if ($ref) {
       return("$ref$nl");
+      } else {
+        return("$nl");
+      }
     }
   }
 
@@ -1013,10 +1017,12 @@
 
   my($data) = @_;
 
+  if (defined($data)) {
   $data =~ s/&/&amp;/sg;
   $data =~ s/</&lt;/sg;
   $data =~ s/>/&gt;/sg;
   $data =~ s/"/&quot;/sg;
+  }
 
   return($data);
 }