diff options
author | Stephan Bergmann <sbergman@redhat.com> | 2012-02-06 17:54:13 +0100 |
---|---|---|
committer | Stephan Bergmann <sbergman@redhat.com> | 2012-02-06 17:54:13 +0100 |
commit | db3aaa31c88a65e9b39bffeda43b624257ca97ce (patch) | |
tree | df443451ea104c3f84957f4d0f80b0c111d0dea1 | |
parent | RTFSdrImport::resolve: replace 75 in the importer as well (diff) | |
download | core-db3aaa31c88a65e9b39bffeda43b624257ca97ce.tar.gz core-db3aaa31c88a65e9b39bffeda43b624257ca97ce.zip |
Print log file in case of error
...so that tinderbox output becomes useful.
-rw-r--r-- | solenv/bin/modules/installer/exiter.pm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/solenv/bin/modules/installer/exiter.pm b/solenv/bin/modules/installer/exiter.pm index 016de1d43473..18b3b31481e7 100644 --- a/solenv/bin/modules/installer/exiter.pm +++ b/solenv/bin/modules/installer/exiter.pm @@ -91,7 +91,11 @@ sub exit_program installer::files::save_file($installer::globals::logfilename ,\@installer::globals::globallogfileinfo); } installer::logger::print_error("$message\nin function: $function"); - installer::logger::print_error("Saved logfile: $installer::globals::logfilename\n"); + print("ERROR, saved logfile $installer::globals::logfilename is:\n"); + open(LOG, "<", $installer::globals::logfilename); + print ": $_" while (<LOG>); + print "\n"; + close(LOG); # Saving the debug info |