Preferred bug tracker

Please visit the preferred bug tracker to report your issue.

This queue is for tickets about the XML-RSS CPAN distribution.

Report information
The Basics
Id:
59698
Status:
rejected
Priority:
Low/Low
Queue:

People
Owner:
Nobody in particular
Requestors:
jpierce [...] cpan.org
Cc:
AdminCc:

BugTracker
Severity:
Important
Broken in:
(no value)
Fixed in:
(no value)



Subject: Patch for skipHours
--- /usr/lib/perl5/site_perl/5.8.0/XML/RSS.pm~ 2004-04-21 03:14:43.000000000 -0400 +++ /usr/lib/perl5/site_perl/5.8.0/XML/RSS.pm 2010-07-25 17:51:47.000000000 -0400 @@ -768,7 +768,12 @@ ##################### if ($self->{skipHours}->{hour}) { $output .= '<skipHours>'."\n"; - $output .= '<hour>'. $self->encode($self->{skipHours}->{hour}) .'</hour>'."\n"; + if ( ref($self->{skipHours}->{hour}) eq 'ARRAY' ){ + $output .= '<hour>'. $self->encode($_) .'</hour>'."\n" foreach @{$self->{skipHours}->{hour}}; + } + else{ + $output .= '<hour>'.$self->encode($self->{skipHours}->{hour}).'</hour>'."\n"; + } $output .= '</skipHours>'."\n\n"; } @@ -1263,7 +1268,12 @@ ##################### if ($self->{skipHours}->{hour}) { $output .= '<skipHours>'."\n"; - $output .= '<hour>'.$self->encode($self->{skipHours}->{hour}).'</hour>'."\n"; + if ( ref($self->{skipHours}->{hour}) eq 'ARRAY' ){ + $output .= '<hour>'. $self->encode($_) .'</hour>'."\n" foreach @{$self->{skipHours}->{hour}}; + } + else{ + $output .= '<hour>'.$self->encode($self->{skipHours}->{hour}).'</hour>'."\n"; + } $output .= '</skipHours>'."\n\n"; }
Should have upgraded first, this has been fixed since 1.32 HOWEVER, I had checked the Changelog, and it is not listed there so I had no reason to suspect that an upgrade would remedy the problem.


This service runs on Request Tracker, is sponsored by The Perl Foundation, and maintained by Best Practical Solutions.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.