couple of additional fixes needed for newer p5-XML-Feed that I missed when

reviewing cwen's diff. pointed out by, based on a diff from, and OK okan@
This commit is contained in:
sthen 2019-01-28 01:00:21 +00:00
parent efdd871c01
commit ac73c7c857
3 changed files with 14 additions and 7 deletions

View File

@ -1,11 +1,11 @@
# $OpenBSD: Makefile,v 1.10 2019/01/27 23:11:35 cwen Exp $
# $OpenBSD: Makefile,v 1.11 2019/01/28 01:00:21 sthen Exp $
COMMENT= pluggable RSS/Atom aggregator
MODULES= cpan
PKG_ARCH= *
DISTNAME= Plagger-0.7.17
REVISION= 2
REVISION= 3
CATEGORIES= www textproc
CPAN_AUTHOR= MIYAGAWA

View File

@ -1,14 +1,16 @@
$OpenBSD: patch-lib_Plagger_FeedParser_pm,v 1.1 2019/01/27 23:11:35 cwen Exp $
$OpenBSD: patch-lib_Plagger_FeedParser_pm,v 1.2 2019/01/28 01:00:21 sthen Exp $
Fix Plagger runtime with p5-XML-Feed>=0.55
Index: lib/Plagger/FeedParser.pm
--- lib/Plagger/FeedParser.pm.orig
+++ lib/Plagger/FeedParser.pm
@@ -4,7 +4,7 @@ use strict;
@@ -4,8 +4,8 @@ use strict;
use Feed::Find;
use XML::Atom;
use XML::Feed;
-use XML::Feed::RSS;
-$XML::Feed::RSS::PREFERRED_PARSER = "XML::RSS::LibXML";
+use XML::Feed::Format::RSS;
$XML::Feed::RSS::PREFERRED_PARSER = "XML::RSS::LibXML";
+$XML::Feed::Format::RSS::PREFERRED_PARSER = "XML::RSS::LibXML";
$XML::Atom::ForceUnicode = 1;
use Plagger::Util;

View File

@ -1,9 +1,9 @@
$OpenBSD: patch-lib_Plagger_Plugin_Publish_Feed_pm,v 1.1 2019/01/27 23:11:35 cwen Exp $
$OpenBSD: patch-lib_Plagger_Plugin_Publish_Feed_pm,v 1.2 2019/01/28 01:00:21 sthen Exp $
Fix Plagger runtime with p5-XML-Feed>=0.55
Index: lib/Plagger/Plugin/Publish/Feed.pm
--- lib/Plagger/Plugin/Publish/Feed.pm.orig
+++ lib/Plagger/Plugin/Publish/Feed.pm
@@ -5,7 +5,7 @@ use base qw( Plagger::Plugin );
@@ -5,11 +5,11 @@ use base qw( Plagger::Plugin );
use XML::Feed;
use XML::Feed::Entry;
@ -12,3 +12,8 @@ Index: lib/Plagger/Plugin/Publish/Feed.pm
use XML::RSS::LibXML;
use File::Spec;
-$XML::Feed::RSS::PREFERRED_PARSER = "XML::RSS::LibXML";
+$XML::Feed::Format::RSS::PREFERRED_PARSER = "XML::RSS::LibXML";
sub register {
my($self, $context) = @_;