[svn:parrot] r42469 - in branches/configtests/config: auto init

[jkeenan at svn.parrot.org]

Author: jkeenan
Date: Fri Nov 13 00:47:44 2009
New Revision: 42469
URL: https://trac.parrot.org/parrot/changeset/42469

Log:
Convert P::C attribute 'scriptdirexp' from get_p5 to _provisional.

Modified:
   branches/configtests/config/auto/perldoc.pm
   branches/configtests/config/auto/pod2man.pm
   branches/configtests/config/init/defaults.pm

Modified: branches/configtests/config/auto/perldoc.pm
==============================================================================
--- branches/configtests/config/auto/perldoc.pm	Fri Nov 13 00:39:40 2009	(r42468)
+++ branches/configtests/config/auto/perldoc.pm	Fri Nov 13 00:47:44 2009	(r42469)
@@ -36,7 +36,7 @@
 sub runstep {
     my ( $self, $conf ) = @_;
 
-    my $cmd = $conf->data->get_p5('scriptdirexp') . q{/perldoc};
+    my $cmd = $conf->data->get('scriptdirexp_provisional') . q{/perldoc};
     my ( $fh, $filename ) = tempfile( UNLINK => 1 );
     my $content = capture_output("$cmd -ud $filename perldoc") || undef;
 

Modified: branches/configtests/config/auto/pod2man.pm
==============================================================================
--- branches/configtests/config/auto/pod2man.pm	Fri Nov 13 00:39:40 2009	(r42468)
+++ branches/configtests/config/auto/pod2man.pm	Fri Nov 13 00:47:44 2009	(r42469)
@@ -34,7 +34,7 @@
 sub runstep {
     my ( $self, $conf ) = @_;
 
-    my $cmd = $conf->data->get_p5('scriptdirexp') . q{/pod2man};
+    my $cmd = $conf->data->get('scriptdirexp_provisional') . q{/pod2man};
     my $content = capture_output("$cmd docs/parrot.pod") || undef;
 
     return 1 unless defined( $self->_initial_content_check($conf, $content) );

Modified: branches/configtests/config/init/defaults.pm
==============================================================================
--- branches/configtests/config/init/defaults.pm	Fri Nov 13 00:39:40 2009	(r42468)
+++ branches/configtests/config/init/defaults.pm	Fri Nov 13 00:47:44 2009	(r42469)
@@ -57,9 +57,7 @@
         longsize
         optimize
         sig_name
-        scriptdirexp
         use64bitint
-        sPRIgldbl
     | ) {
         $conf->data->set_p5( $orig => $Config{$orig} );
     }
@@ -76,6 +74,7 @@
 
     # configtests branch:  We start to handle these things differently.
     foreach my $orig ( qw|
+        scriptdirexp
         sPRIgldbl
     | ) {
         $conf->data->set( qq|${orig}_provisional| => $Config{$orig} );