diff options
author | Gianni Ceccarelli <gianni.ceccarelli@net-a-porter.com> | 2013-03-19 17:43:21 +0000 |
---|---|---|
committer | Gianni Ceccarelli <gianni.ceccarelli@net-a-porter.com> | 2013-03-19 17:43:21 +0000 |
commit | fafcb77fd780d0c57aa7ba8471a9e05fbc16ef37 (patch) | |
tree | c92497e1bf2c139b00a5a00fdffca2ac147ac75f | |
parent | factored code, better reporting when no diff (diff) | |
download | metacpan-diff-feed-fafcb77fd780d0c57aa7ba8471a9e05fbc16ef37.tar.gz metacpan-diff-feed-fafcb77fd780d0c57aa7ba8471a9e05fbc16ef37.tar.bz2 metacpan-diff-feed-fafcb77fd780d0c57aa7ba8471a9e05fbc16ef37.zip |
make it run under 5.12
-rw-r--r-- | meta.pl | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -1,7 +1,7 @@ #!/usr/bin/env perl use strict; use warnings; -use 5.014; +use 5.012; use MetaCPAN::API; use Text::Diff; use XML::Feed; @@ -11,7 +11,7 @@ use HTML::Escape 'escape_html'; my $api = MetaCPAN::API->new(); -package Release { +{package Release; use Moose; has [qw(distribution name author date abstract)] => ( is => 'ro', @@ -182,7 +182,7 @@ sub build_entry { my $content = sprintf '<p>%s</p>', escape_html($release->abstract); - if ($diff->{diff}) { + if (exists $diff->{diff}) { $content .= sprintf '<pre>%s</pre>', escape_html($diff->{diff}); } |