add error checking into installer/filelist.pm

Change-Id: Iccb314155ac70984fa70e7d1ec839edd9eb14270

1 files changed, 9 insertions, 2 deletions

diff --git a/solenv/bin/modules/installer/filelists.pm b/solenv/bin/modules/installer/filelists.pm
index d3447be79163..5aa0506df9b2 100644
--- a/solenv/bin/modules/installer/filelists.pm
+++ b/solenv/bin/modules/installer/filelists.pm
@@ -40,8 +40,15 @@ sub resolve_filelist_flag
 
                 foreach my $path (@{$filelist})
                 {
-                    # TODO: check that the file is really under $outdir
-                    # TODO: check existence of the file
+                    if ((index $path, $outdir) != 0)
+                    {
+                        installer::logger::print_error("file '$path' is not in '$outdir'");
+                    }
+                    if (!-f $path)
+                    {
+                        installer::logger::print_error("file '$path' does not exist");
+                    }
+
                     my $subpath = substr $path, ((length $outdir) + 1); # drop separator too
 
                     my %newfile = ();