Show
Ignore:
Timestamp:
08/17/08 18:36:17 (6 years ago)
Author:
charsbar
Message:

XML-FeedWriter?: yeah, yeah, don't be too lazy, man; 0.06 -> CPAN

Location:
lang/perl/XML-FeedWriter/trunk
Files:
5 modified

Legend:

Unmodified
Added
Removed
  • lang/perl/XML-FeedWriter/trunk/Changes

    r17143 r17788  
    11Revision history for XML-FeedWriter 
    22 
    3 0.04 2008/08/06 
     30.06 2008/08/17 
     4  - sorry the test was still broken... 
     5 
     60.05 2008/08/06 
    47  - no code changes: fixed pod glitches 
    58 
  • lang/perl/XML-FeedWriter/trunk/Makefile.PL

    r15531 r17788  
    1414    'DateTimeX::Web'           => '0.03', 
    1515    'Encode'                   => 0, 
    16     'Test::Classy'             => '0.02', 
    17     'Test::More'               => 0.47, 
     16    'Test::Classy'             => '0.03', 
     17    'Test::More'               => '0.47', 
    1818    'Test::UseAllModules'      => '0.09', 
    1919    'XML::Writer'              => 0, 
  • lang/perl/XML-FeedWriter/trunk/lib/XML/FeedWriter.pm

    r17143 r17788  
    55use Carp; 
    66 
    7 our $VERSION = '0.05'; 
     7our $VERSION = '0.06'; 
    88 
    99my %supported = ( 
  • lang/perl/XML-FeedWriter/trunk/t/lib/XML/FeedWriter/Test/RSS20/Channel.pm

    r15636 r17788  
    3737  my $class = shift; 
    3838 
    39   eval qq{ use XML::Simple '2.17' }; 
    40   $class->skip_the_rest('requires XML::Simple') if $@; 
     39  eval { require XML::Simple }; 
     40  return $class->skip_this_class('requires XML::Simple 2.17') 
     41    if $@ or $XML::Simple::VERSION lt "2.17"; 
    4142 
    4243  $class->xs( XML::Simple->new( ForceArray => 0, KeepRoot => 1 ) ); 
  • lang/perl/XML-FeedWriter/trunk/t/lib/XML/FeedWriter/Test/RSS20/Item.pm

    r15636 r17788  
    3838  my $class = shift; 
    3939 
    40   eval qq{ use XML::Simple '2.17' }; 
    41   $class->skip_the_rest('requires XML::Simple') if $@; 
     40  eval { require XML::Simple }; 
     41  return $class->skip_this_class('requires XML::Simple 2.17') 
     42    if $@ or $XML::Simple::VERSION lt "2.17"; 
    4243 
    4344  $class->xs( XML::Simple->new( ForceArray => 0, KeepRoot => 1 ) );