diff options
| -rw-r--r-- | solenv/bin/modules/installer/filelists.pm | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/solenv/bin/modules/installer/filelists.pm b/solenv/bin/modules/installer/filelists.pm index 41d3ea3fd895..2422e7415a6b 100644 --- a/solenv/bin/modules/installer/filelists.pm +++ b/solenv/bin/modules/installer/filelists.pm @@ -19,6 +19,7 @@ sub resolve_filelist_flag { my ($files, $links, $outdir) = @_; my @newfiles = (); + my $error = 0; foreach my $file (@{$files}) { @@ -53,6 +54,11 @@ sub resolve_filelist_flag { installer::logger::print_error("file '$path' is not in '$outdir'"); } + if ($path =~ '\/\/') + { + installer::logger::print_error("file '$path' contains 2 consecutive '/' which breaks MSIs"); + $error = 1; + } if (-l $path) { $is_symlink = 1; @@ -106,6 +112,11 @@ sub resolve_filelist_flag } } + if ( $error ) + { + installer::exiter::exit_program("ERROR: error(s) in resolve_filelist_flag"); + } + return (\@newfiles, $links); } |