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 /solenv | |
| parent | 6656ddb26186a9f84daa8b6e59d5b5010ca37af1 (diff) | |
Print log file in case of error
...so that tinderbox output becomes useful.
Diffstat (limited to 'solenv')
| -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 |