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

1 files changed, 11 insertions, 13 deletions

diff --git a/modules/BMakeProjectCreator.pm b/modules/BMakeProjectCreator.pm
index 129557a2..6b1e9631 100644
--- a/modules/BMakeProjectCreator.pm
+++ b/modules/BMakeProjectCreator.pm
@@ -23,22 +23,20 @@ use vars qw(@ISA);
 # Data Section
 # ************************************************************
 
-my(%names) = ('cppdir' => 'source_files',
-              'rcdir'  => 'resource_files',
-             );
+my %names = ('cppdir' => 'source_files',
+             'rcdir'  => 'resource_files');
 
 # ************************************************************
 # Subroutine Section
 # ************************************************************
 
 sub fill_value {
-  my($self) = shift;
-  my($name) = shift;
+  my($self, $name) = @_;
 
   if (defined $names{$name}) {
-    my(%dirnames) = ('.' => 1);
+    my %dirnames = ('.' => 1);
     foreach my $file ($self->get_component_list($names{$name}, 1)) {
-      my($dirname) = $self->mpc_dirname($file);
+      my $dirname = $self->mpc_dirname($file);
       if ($dirname eq '') {
         $dirname = '.';
       }
@@ -57,36 +55,36 @@ sub fill_value {
 
 
 sub get_and_symbol {
-  #my($self) = shift;
+  #my $self = shift;
   return '&$(__TRICK_BORLAND_MAKE__)&';
 }
 
 sub project_file_extension {
-  #my($self) = shift;
+  #my $self = shift;
   return '.bmak';
 }
 
 
 sub get_dll_exe_template_input_file {
-  #my($self) = shift;
+  #my $self = shift;
   return 'bmakedllexe';
 }
 
 
 sub get_lib_exe_template_input_file {
-  #my($self) = shift;
+  #my $self = shift;
   return 'bmakelibexe';
 }
 
 
 sub get_lib_template_input_file {
-  #my($self) = shift;
+  #my $self = shift;
   return 'bmakelib';
 }
 
 
 sub get_dll_template_input_file {
-  #my($self) = shift;
+  #my $self = shift;
   return 'bmakedll';
 }