diff options
Diffstat (limited to 'solenv/bin/modules/installer/windows/file.pm')
| -rw-r--r-- | solenv/bin/modules/installer/windows/file.pm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/solenv/bin/modules/installer/windows/file.pm b/solenv/bin/modules/installer/windows/file.pm index 044a1af01c4b..a0dee6c36e9d 100644 --- a/solenv/bin/modules/installer/windows/file.pm +++ b/solenv/bin/modules/installer/windows/file.pm @@ -358,7 +358,11 @@ sub get_component_from_assigned_file { my ($gid, $filesref) = @_; - my $onefile = installer::existence::get_specified_file($filesref, $gid); + my ($onefile) = grep {$_->{gid} eq $gid} @{$filesref}; + if (! defined $onefile) { + installer::exiter::exit_program("ERROR: Could not find file $gid in list of files!", "get_component_from_assigned_file"); + } + my $componentname = ""; if ( $onefile->{'componentname'} ) { $componentname = $onefile->{'componentname'}; } else { installer::exiter::exit_program("ERROR: No component defined for file: $gid", "get_component_from_assigned_file"); } |