summaryrefslogtreecommitdiff
path: root/net
diff options
context:
space:
mode:
authorMathieu Arnold <mat@FreeBSD.org>2006-06-20 19:10:56 +0000
committerMathieu Arnold <mat@FreeBSD.org>2006-06-20 19:10:56 +0000
commit1e1b833fdf739594fa11c3216818909ce1ef7fea (patch)
tree5da6fde8cb354d511053374a09df94505fbbd47e /net
parentFix patch to apply. (diff)
Fixes empty gd:* fields in get_events() result.
This is caused by an improper type casting from XML::Atom::Entry to Net::Google::Calendar::Entry. PR: 99192 Submitted by: maintainer
Notes
Notes: svn path=/head/; revision=165869
Diffstat (limited to 'net')
-rw-r--r--net/p5-Net-Google-Calendar/Makefile1
-rw-r--r--net/p5-Net-Google-Calendar/files/patch-Entry37
2 files changed, 38 insertions, 0 deletions
diff --git a/net/p5-Net-Google-Calendar/Makefile b/net/p5-Net-Google-Calendar/Makefile
index c888090de53a..0706c52a3bfa 100644
--- a/net/p5-Net-Google-Calendar/Makefile
+++ b/net/p5-Net-Google-Calendar/Makefile
@@ -7,6 +7,7 @@
PORTNAME= Net-Google-Calendar
DISTVERSION= 0.2_devel
+PORTREVISION= 1
CATEGORIES= net perl5
MASTER_SITES= ${MASTER_SITE_PERL_CPAN}
MASTER_SITE_SUBDIR= Net
diff --git a/net/p5-Net-Google-Calendar/files/patch-Entry b/net/p5-Net-Google-Calendar/files/patch-Entry
new file mode 100644
index 000000000000..3b5e8339c2b0
--- /dev/null
+++ b/net/p5-Net-Google-Calendar/files/patch-Entry
@@ -0,0 +1,37 @@
+diff -ur lib/Net/Google/Calendar/Entry.pm lib/Net/Google/Calendar/Entry.pm
+--- lib/Net/Google/Calendar/Entry.pm Thu Jun 15 17:42:23 2006
++++ lib/Net/Google/Calendar/Entry.pm Tue Jun 20 00:50:28 2006
+@@ -45,10 +45,19 @@
+ my ($class, %opts) = @_;
+
+ my $self = $class->SUPER::new( Version => '1.0', %opts );
+- $self->category('', { scheme => 'http://schemas.google.com/g/2005#kind', term => 'http://schemas.google.com/g/2005#event' } );
+
+- $self->{_gd_ns} = XML::Atom::Namespace->new(gd => 'http://schemas.google.com/g/2005');
++ $self->_initialize();
++
+ return $self;
++}
++
++sub _initialize
++{
++ my $self = shift;
++
++ $self->category('', { scheme => 'http://schemas.google.com/g/2005#kind', term => 'http://schemas.google.com/g/2005#event' } );
++
++ $self->{_gd_ns} = XML::Atom::Namespace->new(gd => 'http://schemas.google.com/g/2005');
+ }
+
+ =head2 id [id]
+diff -ur lib/Net/Google/Calendar.pm lib/Net/Google/Calendar.pm
+--- lib/Net/Google/Calendar.pm Tue Jun 20 01:32:37 2006
++++ lib/Net/Google/Calendar.pm Tue Jun 20 00:59:16 2006
+@@ -293,7 +293,7 @@
+ my $atom = $r->content;
+
+ my $feed = XML::Atom::Feed->new(\$atom);
+- return map { bless $_, 'Net::Google::Calendar::Entry' } $feed->entries;
++ return map { bless $_, 'Net::Google::Calendar::Entry'; $_->_initialize(); $_ } $feed->entries;
+ }
+
+