[svn:parrot] r36189 - in trunk: config/auto config/gen/makefiles t/steps

[fperrad at svn.parrot.org]

Author: fperrad
Date: Sat Jan 31 12:05:49 2009
New Revision: 36189
URL: https://trac.parrot.org/parrot/changeset/36189

Log:
[perldoc] fix RT #62920
(bug introduced by r36115)

Modified:
   trunk/config/auto/perldoc.pm
   trunk/config/gen/makefiles/root.in
   trunk/t/steps/auto_perldoc-01.t

Modified: trunk/config/auto/perldoc.pm
==============================================================================
--- trunk/config/auto/perldoc.pm	Sat Jan 31 07:01:25 2009	(r36188)
+++ trunk/config/auto/perldoc.pm	Sat Jan 31 12:05:49 2009	(r36189)
@@ -98,6 +98,9 @@
         $conf->data->set(
             has_perldoc => 0,
             new_perldoc => 0,
+            perldoc     => 'echo',
+            TEMP_pod        => '',
+            TEMP_pod_build  => '',
         );
         $self->set_result('no');
         return;

Modified: trunk/config/gen/makefiles/root.in
==============================================================================
--- trunk/config/gen/makefiles/root.in	Sat Jan 31 07:01:25 2009	(r36188)
+++ trunk/config/gen/makefiles/root.in	Sat Jan 31 12:05:49 2009	(r36189)
@@ -138,7 +138,7 @@
 
 GEN_MAKEFILES = \
     Makefile \
-#IF(has_perldoc):    docs/Makefile \
+    docs/Makefile \
     compilers/json/Makefile \
     compilers/ncigen/Makefile \
     compilers/nqp/Makefile \

Modified: trunk/t/steps/auto_perldoc-01.t
==============================================================================
--- trunk/t/steps/auto_perldoc-01.t	Sat Jan 31 07:01:25 2009	(r36188)
+++ trunk/t/steps/auto_perldoc-01.t	Sat Jan 31 12:05:49 2009	(r36189)
@@ -68,7 +68,7 @@
     "Got expected value for 'has_perldoc'");
 is($conf->data->get('new_perldoc'), 0,
     "Got expected value for 'new_perldoc'");
-is($conf->data->get('perldoc'), undef,
+is($conf->data->get('perldoc'), 'echo',
     "... and expected 'perldoc' path");
 
 $version = 1;