diff options
Diffstat (limited to 'modules/VA4ProjectCreator.pm')
-rw-r--r-- | modules/VA4ProjectCreator.pm | 24 |
1 files changed, 2 insertions, 22 deletions
diff --git a/modules/VA4ProjectCreator.pm b/modules/VA4ProjectCreator.pm index 17b893f6..9dbc8ef1 100644 --- a/modules/VA4ProjectCreator.pm +++ b/modules/VA4ProjectCreator.pm @@ -18,12 +18,6 @@ use vars qw(@ISA); @ISA = qw(ProjectCreator); # ************************************************************ -# Data Section -# ************************************************************ - -my($sname) = '_Static'; - -# ************************************************************ # Subroutine Section # ************************************************************ @@ -33,12 +27,10 @@ sub translate_value { my($val) = shift; if ($key eq 'after' && $val ne '') { - my($wt) = $self->get_writing_type(); my($arr) = $self->create_array($val); $val = ''; foreach my $entry (@$arr) { - $val .= '"' . ($wt == 1 ? $self->static_project_file_name($entry) : - $self->project_file_name($entry)) . '" '; + $val .= '"' . $self->project_file_name($entry) . '" '; } $val =~ s/\s+$//; } @@ -80,19 +72,7 @@ sub project_file_name { $name = $self->project_name(); } - return "$name.icc"; -} - - -sub static_project_file_name { - my($self) = shift; - my($name) = shift; - - if (!defined $name) { - $name = $self->project_name(); - } - - return "$name$sname.icc"; + return $self->get_modified_project_file_name($name, '.icc'); } |