Parent Directory
| 
Revision Log
| 
Patch
| revision 1178 by dpavlin, Sat Apr 25 17:12:44 2009 UTC | revision 1179 by dpavlin, Wed Apr 29 18:14:17 2009 UTC | |
|---|---|---|
| # | Line 18 use File::Path qw/mkpath/; | Line 18 use File::Path qw/mkpath/; |
| 18 | use Data::Dump qw/dump/; | use Data::Dump qw/dump/; |
| 19 | use YAML; | use YAML; |
| 20 | use JSON; | use JSON; |
| 21 | use Encode qw/encode/; | |
| 22 | ||
| 23 | ||
| 24 | =head1 NAME | =head1 NAME |
| # | Line 183 sub add { | Line 184 sub add { |
| 184 | ||
| 185 | $xml .= qq{</all>\n}; | $xml .= qq{</all>\n}; |
| 186 | ||
| 187 | $xml = encode('utf-8', $xml); | |
| 188 | ||
| 189 | my $len = length($xml); | my $len = length($xml); |
| 190 | ||
| 191 | my $fh = $self->{_swish_fh} || die "_swish_fh missing"; | my $fh = $self->{_swish_fh} || die "_swish_fh missing"; |
|
||||||||
| ViewVC Help | |
| Powered by ViewVC 1.1.26 |