ChangeLogTag: Fri Jul 18 16:03:52 UTC 2008 Chad Elliott <elliott_c@ociweb.com>

1 files changed, 6 insertions, 10 deletions

diff --git a/modules/MWC.pm b/modules/MWC.pm
index 40faf030..85d589b9 100644
--- a/modules/MWC.pm
+++ b/modules/MWC.pm
@@ -19,25 +19,21 @@ use Driver;
 # ************************************************************
 
 sub new {
-  my($class) = shift;
-  my($self)  = bless {'creators' => [],
-                     }, $class;
+  my $class = shift;
+  my $self = bless {'creators' => [],
+                   }, $class;
   return $self;
 }
 
 
 sub getCreatorList {
-  my($self) = shift;
-  return $self->{'creators'};
+  return $_[0]->{'creators'};
 }
 
 
 sub execute {
-  my($self)   = shift;
-  my($base)   = shift;
-  my($name)   = shift;
-  my($args)   = shift;
-  my($driver) = new Driver($base, $name, @{$self->{'creators'}});
+  my($self, $base, $name, $args) = @_;
+  my $driver = new Driver($base, $name, @{$self->{'creators'}});
   return $driver->run(@$args);
 }