Changeset 2030

Show
Ignore:
Timestamp:
05/19/08 21:38:37
Author:
hsbt
Message:

replace recommends to recommends_hack.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/plagger/Makefile.PL

    r1966 r2030  
    11use strict; 
    22use inc::Module::Install; 
     3 
     4{ 
     5    no warnings 'redefine'; 
     6    *recommends_hack = $Module::Install::VERSION > 0.70 ? 
     7        sub { recommends(@_); $_[0] } : 
     8        \&recommends; 
     9} 
    310 
    411name('Plagger'); 
    …… 
    4754    'Better Encoding detection' => [ 
    4855        -default => 0, 
    49         recommends('Encode::Detect', 1.0), 
     56        recommends_hack('Encode::Detect', 1.0), 
    5057    ], 
    5158    'POD Testing' => [ 
    5259        -default => 0, 
    53         recommends('Test::Pod'), 
    54         recommends('Test::Pod::Coverage'), 
     60        recommends_hack('Test::Pod'), 
     61        recommends_hack('Test::Pod::Coverage'), 
    5562    ], 
    5663    'Cookie sharing with Firefox' => [ 
    5764        -default => 0, 
    58         recommends('HTTP::Cookies::Mozilla'), 
     65        recommends_hack('HTTP::Cookies::Mozilla'), 
    5966    ], 
    6067    'Liberal XML parsing' => [ 
    6168        -default => 1, 
    62         recommends('XML::Liberal', 0.14), 
    63         recommends('XML::RSS::Liberal'), 
     69        recommends_hack('XML::Liberal', 0.14), 
     70        recommends_hack('XML::RSS::Liberal'), 
    6471    ], 
    6572    'XPath support in Subscription and Feed Upgrader' => [ 
    6673        -default => 1, 
    67         recommends('HTML::TreeBuilder::XPath'), 
     74        recommends_hack('HTML::TreeBuilder::XPath'), 
    6875    ], 
    6976    'Better html to text formatter' => [ 
    7077        -default => 1, 
    71         recommends('HTML::TreeBuilder'), 
    72         recommends('HTML::FormatText'), 
     78        recommends_hack('HTML::TreeBuilder'), 
     79        recommends_hack('HTML::FormatText'), 
    7380    ], 
    7481    'Parse Japanese datetime format' => [ 
    7582        -default => 0, 
    76         recommends('DateTime::Format::Japanese'), 
     83        recommends_hack('DateTime::Format::Japanese'), 
    7784    ], 
    7885); 
    …… 
    98105        $meta->{name}, [ 
    99106            -default => $meta->{default}, 
    100             map recommends($_ => $meta->{depends}->{$_}), keys %{$meta->{depends} || {}}, 
     107            map recommends_hack($_ => $meta->{depends}->{$_}), keys %{$meta->{depends} || {}}, 
    101108        ], 
    102109    );