escape changelog entries properly

metacpan · May 31, 2015 · 997d593 · 997d593
1 parent 5bd1708
commit 997d593
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/MetaCPAN/Web/Model/API/Changes.pm b/lib/MetaCPAN/Web/Model/API/Changes.pm
@@ -124,7 +124,7 @@ sub filter_release_changes {
 
     while ( my $entries = shift @entries_list ) {
         for my $entry (@$entries) {
-            for ($entry) {
+            for ( $entry->{text} ) {
                 s/&/&amp;/g;
                 s/</&lt;/g;
                 s/>/&gt;/g;