From 1ce5ed3e6aacffd3fcef4a8782ab6818ea7b15db Mon Sep 17 00:00:00 2001 From: Steve Hay Date: Thu, 9 Aug 2012 13:41:46 +0100 Subject: [PATCH] Upgrade Module-Build to 0.4002 --- Porting/Maintainers.pl | 3 +-- cpan/Module-Build/Changes | 27 ++++++++++++++++++++++ cpan/Module-Build/bin/config_data | 4 ++-- cpan/Module-Build/lib/Module/Build.pm | 4 ++-- cpan/Module-Build/lib/Module/Build/API.pod | 18 ++++++++++++++- cpan/Module-Build/lib/Module/Build/Base.pm | 7 ++++-- cpan/Module-Build/lib/Module/Build/Compat.pm | 2 +- cpan/Module-Build/lib/Module/Build/Config.pm | 2 +- cpan/Module-Build/lib/Module/Build/Cookbook.pm | 2 +- cpan/Module-Build/lib/Module/Build/Dumper.pm | 2 +- cpan/Module-Build/lib/Module/Build/ModuleInfo.pm | 2 +- cpan/Module-Build/lib/Module/Build/Notes.pm | 2 +- cpan/Module-Build/lib/Module/Build/PPMMaker.pm | 2 +- .../lib/Module/Build/Platform/Amiga.pm | 2 +- .../lib/Module/Build/Platform/Default.pm | 2 +- .../lib/Module/Build/Platform/EBCDIC.pm | 2 +- .../lib/Module/Build/Platform/MPEiX.pm | 2 +- .../lib/Module/Build/Platform/MacOS.pm | 2 +- .../lib/Module/Build/Platform/RiscOS.pm | 2 +- .../Module-Build/lib/Module/Build/Platform/Unix.pm | 2 +- cpan/Module-Build/lib/Module/Build/Platform/VMS.pm | 2 +- cpan/Module-Build/lib/Module/Build/Platform/VOS.pm | 2 +- .../lib/Module/Build/Platform/Windows.pm | 2 +- cpan/Module-Build/lib/Module/Build/Platform/aix.pm | 2 +- .../lib/Module/Build/Platform/cygwin.pm | 2 +- .../lib/Module/Build/Platform/darwin.pm | 2 +- cpan/Module-Build/lib/Module/Build/Platform/os2.pm | 2 +- cpan/Module-Build/lib/Module/Build/PodParser.pm | 5 ++-- cpan/Module-Build/lib/inc/latest.pm | 6 ++--- cpan/Module-Build/lib/inc/latest/private.pm | 2 +- cpan/Module-Build/t/metadata.t | 2 +- cpan/Module-Build/t/pod_parser.t | 27 +++++++++++++++++++++- cpan/Module-Build/t/use_tap_harness.t | 2 +- 33 files changed, 110 insertions(+), 39 deletions(-) diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl index 2def238..d2c10ff 100755 --- a/Porting/Maintainers.pl +++ b/Porting/Maintainers.pl @@ -1244,14 +1244,13 @@ use File::Glob qw(:case); 'Module::Build' => { 'MAINTAINER' => 'kwilliams', - 'DISTRIBUTION' => 'LEONT/Module-Build-0.40.tar.gz', + 'DISTRIBUTION' => 'LEONT/Module-Build-0.4002.tar.gz', 'FILES' => q[cpan/Module-Build], 'EXCLUDED' => [ qw( t/par.t t/signature.t ), qr{^contrib/}, - qr{^devtools}, qr{^inc}, ], 'CUSTOMIZED' => ['lib/Module/Build/ConfigData.pm'], diff --git a/cpan/Module-Build/Changes b/cpan/Module-Build/Changes index f5b158c..67f5e5a 100644 --- a/cpan/Module-Build/Changes +++ b/cpan/Module-Build/Changes @@ -1,5 +1,32 @@ Revision history for Perl extension Module::Build. +0.4002 - Fri Jul 27 20:04:09 EEST 2012 + + [BUG FIXES] + + - Test for TAP::Harness version properly + + - Install to 'site' on 5.12+ + + [DOCUMENTATION] + + - Document extra_{compiler|linker}_flags accessors [Nick Wellnhofer] + +0.4001 - Tue Jun 26 20:54:15 CEST 2012 + [BUG FIXES] + + - Parse Pod name a litte more leniently [Paul Evans] + + [DOCUMENTATION] + + - Various spelling fixes [Leon Timmermans, Jonathan Yu] + + - Fixes configuration keys used for script location [Leon Timmermans, reported by Samuel Ferencik] + + [OTHER] + + - use warnings + 0.40 - Fri Feb 24 18:47:48 CET 2012 - Released 0.39_02 as 0.40 without any code changes diff --git a/cpan/Module-Build/bin/config_data b/cpan/Module-Build/bin/config_data index 40c8ea4..fcd5c4d 100644 --- a/cpan/Module-Build/bin/config_data +++ b/cpan/Module-Build/bin/config_data @@ -162,13 +162,13 @@ Koenig (C), Jon Swartz (C), Andy Wardley (C), and Larry Wall (perl's own Config.pm) have developed independently. -The configuration system emplyed here was developed in the context of +The configuration system employed here was developed in the context of C. Under this system, configuration information for a module C, for example, is stored in a module called C) (I would have called it C, but that was taken by all those other systems mentioned in the previous paragraph...). These C<...::ConfigData> modules contain the -configuration data, as well as publically accessible methods for +configuration data, as well as publicly accessible methods for querying and setting (yes, actually re-writing) the configuration data. The C script (whose docs you are currently reading) is merely a front-end for those methods. If you wish, you diff --git a/cpan/Module-Build/lib/Module/Build.pm b/cpan/Module-Build/lib/Module/Build.pm index 69fd77f..a0760f1 100644 --- a/cpan/Module-Build/lib/Module/Build.pm +++ b/cpan/Module-Build/lib/Module/Build.pm @@ -16,7 +16,7 @@ use Module::Build::Base; use vars qw($VERSION @ISA); @ISA = qw(Module::Build::Base); -$VERSION = '0.40'; +$VERSION = '0.4002'; $VERSION = eval $VERSION; @@ -878,7 +878,7 @@ parameter as follows: lib => installprivlib installsitelib installvendorlib arch => installarchlib installsitearch installvendorarch - script => installscript installsitebin installvendorbin + script => installscript installsitescript installvendorscript bin => installbin installsitebin installvendorbin bindoc => installman1dir installsiteman1dir installvendorman1dir libdoc => installman3dir installsiteman3dir installvendorman3dir diff --git a/cpan/Module-Build/lib/Module/Build/API.pod b/cpan/Module-Build/lib/Module/Build/API.pod index 2760673..4980218 100644 --- a/cpan/Module-Build/lib/Module/Build/API.pod +++ b/cpan/Module-Build/lib/Module/Build/API.pod @@ -630,7 +630,7 @@ specify explicitly. [version 0.36] The C parameter indicates whether a compiler is required to -build the distsribution. The default is false, unless XS files are found or +build the distribution. The default is false, unless XS files are found or the C parameter is set, in which case it is true. If true, L is automatically added to C if needed. @@ -1400,6 +1400,22 @@ characters will do their special things. If you supply multiple arguments, no shell will get involved and the command will be executed directly. +=item extra_compiler_flags() + +=item extra_compiler_flags(@flags) + +[version 0.25] + +Set or retrieve the extra compiler flags. Returns an arrayref of flags. + +=item extra_linker_flags() + +=item extra_linker_flags(@flags) + +[version 0.25] + +Set or retrieve the extra linker flags. Returns an arrayref of flags. + =item feature($name) =item feature($name => $value) diff --git a/cpan/Module-Build/lib/Module/Build/Base.pm b/cpan/Module-Build/lib/Module/Build/Base.pm index 795ed91..4689447 100644 --- a/cpan/Module-Build/lib/Module/Build/Base.pm +++ b/cpan/Module-Build/lib/Module/Build/Base.pm @@ -4,9 +4,11 @@ package Module::Build::Base; use strict; use vars qw($VERSION); -$VERSION = '0.40'; +use warnings; + +$VERSION = '0.4002'; $VERSION = eval $VERSION; -BEGIN { require 5.00503 } +BEGIN { require 5.006001 } use Carp; use Cwd (); @@ -1640,6 +1642,7 @@ sub perl_version_to_float { sub _parse_conditions { my ($self, $spec) = @_; + return ">= 0" if not defined $spec; if ($spec =~ /^\s*([\w.]+)\s*$/) { # A plain number, maybe with dots, letters, and underscores return (">= $spec"); } else { diff --git a/cpan/Module-Build/lib/Module/Build/Compat.pm b/cpan/Module-Build/lib/Module/Build/Compat.pm index dc8ad70..08f0c3b 100644 --- a/cpan/Module-Build/lib/Module/Build/Compat.pm +++ b/cpan/Module-Build/lib/Module/Build/Compat.pm @@ -2,7 +2,7 @@ package Module::Build::Compat; use strict; use vars qw($VERSION); -$VERSION = '0.40'; +$VERSION = '0.4002'; use File::Basename (); use File::Spec; diff --git a/cpan/Module-Build/lib/Module/Build/Config.pm b/cpan/Module-Build/lib/Module/Build/Config.pm index d65f28e..58cd64a 100644 --- a/cpan/Module-Build/lib/Module/Build/Config.pm +++ b/cpan/Module-Build/lib/Module/Build/Config.pm @@ -2,7 +2,7 @@ package Module::Build::Config; use strict; use vars qw($VERSION); -$VERSION = '0.40'; +$VERSION = '0.4002'; $VERSION = eval $VERSION; use Config; diff --git a/cpan/Module-Build/lib/Module/Build/Cookbook.pm b/cpan/Module-Build/lib/Module/Build/Cookbook.pm index e318a65..2605118 100644 --- a/cpan/Module-Build/lib/Module/Build/Cookbook.pm +++ b/cpan/Module-Build/lib/Module/Build/Cookbook.pm @@ -1,7 +1,7 @@ package Module::Build::Cookbook; use strict; use vars qw($VERSION); -$VERSION = '0.40'; +$VERSION = '0.4002'; =head1 NAME diff --git a/cpan/Module-Build/lib/Module/Build/Dumper.pm b/cpan/Module-Build/lib/Module/Build/Dumper.pm index 8c2a211..df451a9 100644 --- a/cpan/Module-Build/lib/Module/Build/Dumper.pm +++ b/cpan/Module-Build/lib/Module/Build/Dumper.pm @@ -1,7 +1,7 @@ package Module::Build::Dumper; use strict; use vars qw($VERSION); -$VERSION = '0.40'; +$VERSION = '0.4002'; # This is just a split-out of a wrapper function to do Data::Dumper # stuff "the right way". See: diff --git a/cpan/Module-Build/lib/Module/Build/ModuleInfo.pm b/cpan/Module-Build/lib/Module/Build/ModuleInfo.pm index 53bd82e..1e4a82b 100644 --- a/cpan/Module-Build/lib/Module/Build/ModuleInfo.pm +++ b/cpan/Module-Build/lib/Module/Build/ModuleInfo.pm @@ -4,7 +4,7 @@ package Module::Build::ModuleInfo; use strict; use vars qw($VERSION); -$VERSION = '0.40'; +$VERSION = '0.4002'; $VERSION = eval $VERSION; require Module::Metadata; diff --git a/cpan/Module-Build/lib/Module/Build/Notes.pm b/cpan/Module-Build/lib/Module/Build/Notes.pm index c7611b6..85de8cb 100644 --- a/cpan/Module-Build/lib/Module/Build/Notes.pm +++ b/cpan/Module-Build/lib/Module/Build/Notes.pm @@ -4,7 +4,7 @@ package Module::Build::Notes; use strict; use vars qw($VERSION); -$VERSION = '0.40'; +$VERSION = '0.4002'; $VERSION = eval $VERSION; use Data::Dumper; use IO::File; diff --git a/cpan/Module-Build/lib/Module/Build/PPMMaker.pm b/cpan/Module-Build/lib/Module/Build/PPMMaker.pm index c0d6c33..1496b2b 100644 --- a/cpan/Module-Build/lib/Module/Build/PPMMaker.pm +++ b/cpan/Module-Build/lib/Module/Build/PPMMaker.pm @@ -5,7 +5,7 @@ use Config; use vars qw($VERSION); use IO::File; -$VERSION = '0.40'; +$VERSION = '0.4002'; $VERSION = eval $VERSION; # This code is mostly borrowed from ExtUtils::MM_Unix 6.10_03, with a diff --git a/cpan/Module-Build/lib/Module/Build/Platform/Amiga.pm b/cpan/Module-Build/lib/Module/Build/Platform/Amiga.pm index c83eee7..f2320bb 100644 --- a/cpan/Module-Build/lib/Module/Build/Platform/Amiga.pm +++ b/cpan/Module-Build/lib/Module/Build/Platform/Amiga.pm @@ -2,7 +2,7 @@ package Module::Build::Platform::Amiga; use strict; use vars qw($VERSION); -$VERSION = '0.40'; +$VERSION = '0.4002'; $VERSION = eval $VERSION; use Module::Build::Base; diff --git a/cpan/Module-Build/lib/Module/Build/Platform/Default.pm b/cpan/Module-Build/lib/Module/Build/Platform/Default.pm index 2a770dd..df888c5 100644 --- a/cpan/Module-Build/lib/Module/Build/Platform/Default.pm +++ b/cpan/Module-Build/lib/Module/Build/Platform/Default.pm @@ -2,7 +2,7 @@ package Module::Build::Platform::Default; use strict; use vars qw($VERSION); -$VERSION = '0.40'; +$VERSION = '0.4002'; $VERSION = eval $VERSION; use Module::Build::Base; diff --git a/cpan/Module-Build/lib/Module/Build/Platform/EBCDIC.pm b/cpan/Module-Build/lib/Module/Build/Platform/EBCDIC.pm index ef691ec..c299ef5 100644 --- a/cpan/Module-Build/lib/Module/Build/Platform/EBCDIC.pm +++ b/cpan/Module-Build/lib/Module/Build/Platform/EBCDIC.pm @@ -2,7 +2,7 @@ package Module::Build::Platform::EBCDIC; use strict; use vars qw($VERSION); -$VERSION = '0.40'; +$VERSION = '0.4002'; $VERSION = eval $VERSION; use Module::Build::Base; diff --git a/cpan/Module-Build/lib/Module/Build/Platform/MPEiX.pm b/cpan/Module-Build/lib/Module/Build/Platform/MPEiX.pm index 681e108..c4d0396 100644 --- a/cpan/Module-Build/lib/Module/Build/Platform/MPEiX.pm +++ b/cpan/Module-Build/lib/Module/Build/Platform/MPEiX.pm @@ -2,7 +2,7 @@ package Module::Build::Platform::MPEiX; use strict; use vars qw($VERSION); -$VERSION = '0.40'; +$VERSION = '0.4002'; $VERSION = eval $VERSION; use Module::Build::Base; diff --git a/cpan/Module-Build/lib/Module/Build/Platform/MacOS.pm b/cpan/Module-Build/lib/Module/Build/Platform/MacOS.pm index 2f1034c..3d65a9b 100644 --- a/cpan/Module-Build/lib/Module/Build/Platform/MacOS.pm +++ b/cpan/Module-Build/lib/Module/Build/Platform/MacOS.pm @@ -2,7 +2,7 @@ package Module::Build::Platform::MacOS; use strict; use vars qw($VERSION); -$VERSION = '0.40'; +$VERSION = '0.4002'; $VERSION = eval $VERSION; use Module::Build::Base; use vars qw(@ISA); diff --git a/cpan/Module-Build/lib/Module/Build/Platform/RiscOS.pm b/cpan/Module-Build/lib/Module/Build/Platform/RiscOS.pm index 75a3c78..5c0bb3c 100644 --- a/cpan/Module-Build/lib/Module/Build/Platform/RiscOS.pm +++ b/cpan/Module-Build/lib/Module/Build/Platform/RiscOS.pm @@ -2,7 +2,7 @@ package Module::Build::Platform::RiscOS; use strict; use vars qw($VERSION); -$VERSION = '0.40'; +$VERSION = '0.4002'; $VERSION = eval $VERSION; use Module::Build::Base; diff --git a/cpan/Module-Build/lib/Module/Build/Platform/Unix.pm b/cpan/Module-Build/lib/Module/Build/Platform/Unix.pm index 2f34385..53c8c7c 100644 --- a/cpan/Module-Build/lib/Module/Build/Platform/Unix.pm +++ b/cpan/Module-Build/lib/Module/Build/Platform/Unix.pm @@ -2,7 +2,7 @@ package Module::Build::Platform::Unix; use strict; use vars qw($VERSION); -$VERSION = '0.40'; +$VERSION = '0.4002'; $VERSION = eval $VERSION; use Module::Build::Base; diff --git a/cpan/Module-Build/lib/Module/Build/Platform/VMS.pm b/cpan/Module-Build/lib/Module/Build/Platform/VMS.pm index b253934..b5344f5 100644 --- a/cpan/Module-Build/lib/Module/Build/Platform/VMS.pm +++ b/cpan/Module-Build/lib/Module/Build/Platform/VMS.pm @@ -2,7 +2,7 @@ package Module::Build::Platform::VMS; use strict; use vars qw($VERSION); -$VERSION = '0.40'; +$VERSION = '0.4002'; $VERSION = eval $VERSION; use Module::Build::Base; use Config; diff --git a/cpan/Module-Build/lib/Module/Build/Platform/VOS.pm b/cpan/Module-Build/lib/Module/Build/Platform/VOS.pm index e9cf5ee..25e0287 100644 --- a/cpan/Module-Build/lib/Module/Build/Platform/VOS.pm +++ b/cpan/Module-Build/lib/Module/Build/Platform/VOS.pm @@ -2,7 +2,7 @@ package Module::Build::Platform::VOS; use strict; use vars qw($VERSION); -$VERSION = '0.40'; +$VERSION = '0.4002'; $VERSION = eval $VERSION; use Module::Build::Base; diff --git a/cpan/Module-Build/lib/Module/Build/Platform/Windows.pm b/cpan/Module-Build/lib/Module/Build/Platform/Windows.pm index b117019..5f6694a 100644 --- a/cpan/Module-Build/lib/Module/Build/Platform/Windows.pm +++ b/cpan/Module-Build/lib/Module/Build/Platform/Windows.pm @@ -2,7 +2,7 @@ package Module::Build::Platform::Windows; use strict; use vars qw($VERSION); -$VERSION = '0.40'; +$VERSION = '0.4002'; $VERSION = eval $VERSION; use Config; diff --git a/cpan/Module-Build/lib/Module/Build/Platform/aix.pm b/cpan/Module-Build/lib/Module/Build/Platform/aix.pm index 9472aab..370a052 100644 --- a/cpan/Module-Build/lib/Module/Build/Platform/aix.pm +++ b/cpan/Module-Build/lib/Module/Build/Platform/aix.pm @@ -2,7 +2,7 @@ package Module::Build::Platform::aix; use strict; use vars qw($VERSION); -$VERSION = '0.40'; +$VERSION = '0.4002'; $VERSION = eval $VERSION; use Module::Build::Platform::Unix; diff --git a/cpan/Module-Build/lib/Module/Build/Platform/cygwin.pm b/cpan/Module-Build/lib/Module/Build/Platform/cygwin.pm index 51a9753..ec8a8fa 100644 --- a/cpan/Module-Build/lib/Module/Build/Platform/cygwin.pm +++ b/cpan/Module-Build/lib/Module/Build/Platform/cygwin.pm @@ -2,7 +2,7 @@ package Module::Build::Platform::cygwin; use strict; use vars qw($VERSION); -$VERSION = '0.40'; +$VERSION = '0.4002'; $VERSION = eval $VERSION; use Module::Build::Platform::Unix; diff --git a/cpan/Module-Build/lib/Module/Build/Platform/darwin.pm b/cpan/Module-Build/lib/Module/Build/Platform/darwin.pm index 1e3b094..ad82949 100644 --- a/cpan/Module-Build/lib/Module/Build/Platform/darwin.pm +++ b/cpan/Module-Build/lib/Module/Build/Platform/darwin.pm @@ -2,7 +2,7 @@ package Module::Build::Platform::darwin; use strict; use vars qw($VERSION); -$VERSION = '0.40'; +$VERSION = '0.4002'; $VERSION = eval $VERSION; use Module::Build::Platform::Unix; diff --git a/cpan/Module-Build/lib/Module/Build/Platform/os2.pm b/cpan/Module-Build/lib/Module/Build/Platform/os2.pm index abe402e..2b28b2f 100644 --- a/cpan/Module-Build/lib/Module/Build/Platform/os2.pm +++ b/cpan/Module-Build/lib/Module/Build/Platform/os2.pm @@ -2,7 +2,7 @@ package Module::Build::Platform::os2; use strict; use vars qw($VERSION); -$VERSION = '0.40'; +$VERSION = '0.4002'; $VERSION = eval $VERSION; use Module::Build::Platform::Unix; diff --git a/cpan/Module-Build/lib/Module/Build/PodParser.pm b/cpan/Module-Build/lib/Module/Build/PodParser.pm index 456f8de..d6724ad 100644 --- a/cpan/Module-Build/lib/Module/Build/PodParser.pm +++ b/cpan/Module-Build/lib/Module/Build/PodParser.pm @@ -2,7 +2,7 @@ package Module::Build::PodParser; use strict; use vars qw($VERSION); -$VERSION = '0.40'; +$VERSION = '0.4002'; $VERSION = eval $VERSION; use vars qw(@ISA); @@ -28,7 +28,8 @@ sub parse_from_filehandle { local $_; while (<$fh>) { next unless /^=(?!cut)/ .. /^=cut/; # in POD - last if ($self->{abstract}) = /^ (?: [a-z0-9:]+ \s+ - \s+ ) (.*\S) /ix; + # Accept Name - abstract or C - abstract + last if ($self->{abstract}) = /^ (?: [a-z0-9:]+ | [BCIF] < [a-z0-9:]+ > ) \s+ - \s+ (.*\S) /ix; } my @author; diff --git a/cpan/Module-Build/lib/inc/latest.pm b/cpan/Module-Build/lib/inc/latest.pm index 8c53ea8..6a9b4b7 100644 --- a/cpan/Module-Build/lib/inc/latest.pm +++ b/cpan/Module-Build/lib/inc/latest.pm @@ -1,7 +1,7 @@ package inc::latest; use strict; use vars qw($VERSION); -$VERSION = '0.40'; +$VERSION = '0.4002'; $VERSION = eval $VERSION; use Carp; @@ -132,7 +132,7 @@ a distribution and are used by Build.PL (or Makefile.PL). Arguments to C are module names that are checked against both the current C<@INC> array and against specially-named directories in C. If -the bundled verison is newer than the installed one (or the module isn't +the bundled version is newer than the installed one (or the module isn't installed, then, the bundled directory is added to the start of <@INC> and the module is loaded from there. @@ -192,7 +192,7 @@ available. For example: my @list = inc::latest->loaded_modules; This takes no arguments and always returns a list of module names requested for -loading via "use inc::latest 'MODULE'", regardless of wether the load was +loading via "use inc::latest 'MODULE'", regardless of whether the load was successful or not. =item write() diff --git a/cpan/Module-Build/lib/inc/latest/private.pm b/cpan/Module-Build/lib/inc/latest/private.pm index cf7a718..f817ba8 100644 --- a/cpan/Module-Build/lib/inc/latest/private.pm +++ b/cpan/Module-Build/lib/inc/latest/private.pm @@ -1,7 +1,7 @@ package inc::latest::private; use strict; use vars qw($VERSION); -$VERSION = '0.40'; +$VERSION = '0.4002'; $VERSION = eval $VERSION; use File::Spec; diff --git a/cpan/Module-Build/t/metadata.t b/cpan/Module-Build/t/metadata.t index 4401e1a..fac5999 100644 --- a/cpan/Module-Build/t/metadata.t +++ b/cpan/Module-Build/t/metadata.t @@ -63,7 +63,7 @@ my $mb = Module::Build->new_from_context; { my $mb_prereq = { 'Module::Build' => $Module::Build::VERSION }; my $mb_config_req = { - 'Module::Build' => int($Module::Build::VERSION * 100)/100 + 'Module::Build' => sprintf '%2.2f', int($Module::Build::VERSION * 100)/100 }; my $node; my $output = stdout_stderr_of( sub { diff --git a/cpan/Module-Build/t/pod_parser.t b/cpan/Module-Build/t/pod_parser.t index c47d738..8c75e7d 100644 --- a/cpan/Module-Build/t/pod_parser.t +++ b/cpan/Module-Build/t/pod_parser.t @@ -2,7 +2,7 @@ use strict; use lib 't/lib'; -use MBTest tests => 9; +use MBTest tests => 12; blib_load('Module::Build::PodParser'); @@ -88,3 +88,28 @@ EOF is $pp->get_author->[0], 'C was written by Engelbert Humperdinck Ieh@example.comE> in 2004.', 'author'; is $pp->get_abstract, 'Perl extension for blah blah blah', 'abstract'; } + + +{ + # Now with C + untie *FH; + tie *FH, 'IO::StringBased', <<'EOF'; +=head1 Name + +C - Perl extension for blah blah blah + +=head1 Author + +C was written by Engelbert Humperdinck Ieh@example.comE> in 2004. + +Home page: http://example.com/~eh/ + +=cut +EOF + + my $pp = Module::Build::PodParser->new(fh => \*FH); + ok $pp, 'object created'; + + is $pp->get_author->[0], 'C was written by Engelbert Humperdinck Ieh@example.comE> in 2004.', 'author'; + is $pp->get_abstract, 'Perl extension for blah blah blah', 'abstract'; +} diff --git a/cpan/Module-Build/t/use_tap_harness.t b/cpan/Module-Build/t/use_tap_harness.t index f6e7e50..bfce506 100644 --- a/cpan/Module-Build/t/use_tap_harness.t +++ b/cpan/Module-Build/t/use_tap_harness.t @@ -3,7 +3,7 @@ use strict; use Test::More; use lib 't/lib'; -if (eval { require TAP::Harness } && TAP::Harness->VERSION >= 3) { +if (eval { require TAP::Harness && TAP::Harness->VERSION(3) }) { plan tests => 9; } else { plan skip_all => 'TAP::Harness 3+ not installed' -- 2.7.4