ChangeLogTag: Wed Dec 22 17:28:56 UTC 2010 Adam Mitz <mitza@ociweb.com>

1 files changed, 16 insertions, 9 deletions

diff --git a/modules/Creator.pm b/modules/Creator.pm
index 0f61aa7a..803db3c1 100644
--- a/modules/Creator.pm
+++ b/modules/Creator.pm
@@ -338,15 +338,7 @@ sub parse_scope {
           ## processing the assignment as we will be throwing the value
           ## away anyway.
           if (defined $type) {
-            if ($values[0] == 0) {
-              $self->process_assignment($values[1], $values[2], $flags);
-            }
-            elsif ($values[0] == 1) {
-              $self->process_assignment_add($values[1], $values[2], $flags);
-            }
-            elsif ($values[0] == -1) {
-              $self->process_assignment_sub($values[1], $values[2], $flags);
-            }
+            $self->process_any_assignment($flags, @values);
           }
         }
         else {
@@ -369,6 +361,21 @@ sub parse_scope {
 }
 
 
+sub process_any_assignment {
+  my($self, $flags, @values) = @_;
+
+  if ($values[0] == 0) {
+    $self->process_assignment($values[1], $values[2], $flags);
+  }
+  elsif ($values[0] == 1) {
+    $self->process_assignment_add($values[1], $values[2], $flags);
+  }
+  elsif ($values[0] == -1) {
+    $self->process_assignment_sub($values[1], $values[2], $flags);
+  }
+}
+
+
 sub base_directory {
   my $self = shift;
   return $self->mpc_basename($self->getcwd());