Skip Menu |
 

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

Report information
The Basics
Id: 59698
Status: rejected
Priority: 0/
Queue: XML-RSS

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

Bug Information
Severity: Important
Broken in: (no value)
Fixed in: (no value)



Subject: Patch for skipHours
Download (untitled) / with headers
text/plain 1.2k
--- /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"; }
Download (untitled) / with headers
text/plain 195b
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 is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

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