" . $app . "

X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FAction%2FSerialize%2FYAML%2FHTML.pm;h=7fffe2f8cb281b57ba7f203bf0b586c24b2b24ae;hb=351f252f57354a5a0c50e3c931b0addd4f1988ff;hp=af0d896aa84e61b0d9f8fc3761fc250cf15727c5;hpb=96a61a601b093754a99bb61b57e41dbfc3228ad7;p=catagits%2FCatalyst-Action-REST.git diff --git a/lib/Catalyst/Action/Serialize/YAML/HTML.pm b/lib/Catalyst/Action/Serialize/YAML/HTML.pm index af0d896..7fffe2f 100644 --- a/lib/Catalyst/Action/Serialize/YAML/HTML.pm +++ b/lib/Catalyst/Action/Serialize/YAML/HTML.pm @@ -7,7 +7,7 @@ extends 'Catalyst::Action'; use YAML::Syck; use URI::Find; -our $VERSION = '0.84'; +our $VERSION = '0.98'; $VERSION = eval $VERSION; sub execute { @@ -23,7 +23,7 @@ sub execute { my $output = ""; $output .= "" . $app . ""; $output .= "

";
-    my $text = Dump($c->stash->{$stash_key});
+    my $text = HTML::Entities::encode(Dump($c->stash->{$stash_key}));
     # Straight from URI::Find
     my $finder = URI::Find->new(
                               sub {
@@ -45,4 +45,6 @@ sub execute {
     return 1;
 }
 
+__PACKAGE__->meta->make_immutable;
+
 1;