[svn:mod_parrot] r400 - mod_parrot/branches/configure/config/directives

[particle@xxxxxxxxxxxx]

Author: particle
Date: Sat Jul 26 11:31:51 2008
New Revision: 400

Modified:
   mod_parrot/branches/configure/config/directives/core.op

Log:
[config] stick modparrot data in the right container

Modified: mod_parrot/branches/configure/config/directives/core.op
==============================================================================
--- mod_parrot/branches/configure/config/directives/core.op     (original)
+++ mod_parrot/branches/configure/config/directives/core.op     Sat Jul 26 
11:31:51 2008
@@ -33,7 +33,7 @@
 configure_set_args
     my( $var, $val, undef, $stash )= @_;
     my $conf = $stash->{user}{conf};
-    $conf->options->set( %{$stash->{PARROT}{args}} );
+    $conf->options->set( %{$stash->{MODPARROT}{args}} );
 CONFIGURE_SET_ARGS
 
 
@@ -55,7 +55,7 @@
 configure_run
     my( $var, $val, undef, $stash )= @_;
     my $conf = $stash->{user}{conf};
-    my $args = $stash->{PARROT}{args};
+    my $args = $stash->{MODPARROT}{args};
     my %args = %$args;
 
     if ( exists $args{step} ) {
@@ -80,7 +80,7 @@
 run
     my( $var, $val, undef, $stash )= @_;
     my $conf = $stash->{user}{conf};
-    my $args = $stash->{PARROT}{args};
+    my $args = $stash->{MODPARROT}{args};
     my %args = %$args;
 
     my( $step, @params )= split /\s+/ => $val;
@@ -100,7 +100,7 @@
 test
     require ModParrot::Configure::Options::Test;
     my( $var, $val, undef, $stash )= @_;
-    my $args = $stash->{PARROT}{args};
+    my $args = $stash->{MODPARROT}{args};
     my $opttest = ModParrot::Configure::Options::Test->new($args);
     # tests will only be run if you requested them
     # as command-line option