[Module-build-checkins] Module-Build/t manifypods.t,1.9,1.10
Status: Beta
Brought to you by:
kwilliams
From: Randy W. S. <si...@us...> - 2005-02-27 14:19:56
|
Update of /cvsroot/module-build/Module-Build/t In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5558/t Modified Files: manifypods.t Log Message: Add workaround for test files because older versions of Devel::Cover causes require to fail when the argument to require is an expression involving File::Spec. We now assign the result of the File::Spec call to a variable and then call require with that variable. Index: manifypods.t =================================================================== RCS file: /cvsroot/module-build/Module-Build/t/manifypods.t,v retrieving revision 1.9 retrieving revision 1.10 diff -u -d -r1.9 -r1.10 --- manifypods.t 28 Nov 2004 02:36:04 -0000 1.9 +++ manifypods.t 27 Feb 2005 14:19:30 -0000 1.10 @@ -7,8 +7,9 @@ use Test; use Module::Build; -BEGIN { - require File::Spec->catfile('t', 'common.pl'); +BEGIN { + my $common_pl = File::Spec->catfile('t', 'common.pl'); + require $common_pl; skip_test("manpage_support feature is not enabled") unless Module::Build->current->feature('manpage_support'); plan tests => 21; |