← Index
NYTProf Performance Profile   « block view • line view • sub view »
For C:/lo/libo-master/solenv/bin/make_installer.pl
  Run on Mon Sep 24 00:52:54 2012
Reported on Mon Sep 24 07:34:49 2012

Filename/cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/modules/installer/exiter.pm
StatementsExecuted 15 statements in 4.23ms
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
11117.0ms81.0msinstaller::exiter::::BEGIN@37installer::exiter::BEGIN@37
11111.1ms17.0msinstaller::exiter::::BEGIN@36installer::exiter::BEGIN@36
1111.67ms11.1msinstaller::exiter::::BEGIN@33installer::exiter::BEGIN@33
111405µs414µsinstaller::exiter::::BEGIN@30installer::exiter::BEGIN@30
11121µs39µsinstaller::exiter::::BEGIN@31installer::exiter::BEGIN@31
11116µs18µsinstaller::exiter::::BEGIN@34installer::exiter::BEGIN@34
11115µs49µsinstaller::exiter::::BEGIN@35installer::exiter::BEGIN@35
0000s0sinstaller::exiter::::exit_programinstaller::exiter::exit_program
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1#*************************************************************************
2#
3# DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
4#
5# Copyright 2000, 2010 Oracle and/or its affiliates.
6#
7# OpenOffice.org - a multi-platform office productivity suite
8#
9# This file is part of OpenOffice.org.
10#
11# OpenOffice.org is free software: you can redistribute it and/or modify
12# it under the terms of the GNU Lesser General Public License version 3
13# only, as published by the Free Software Foundation.
14#
15# OpenOffice.org is distributed in the hope that it will be useful,
16# but WITHOUT ANY WARRANTY; without even the implied warranty of
17# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18# GNU Lesser General Public License version 3 for more details
19# (a copy is included in the LICENSE file that accompanied this code).
20#
21# You should have received a copy of the GNU Lesser General Public License
22# version 3 along with OpenOffice.org. If not, see
23# <http://www.openoffice.org/license.html>
24# for a copy of the LGPLv3 License.
25#
26#*************************************************************************
27
28package installer::exiter;
29
30262µs2423µs
# spent 414µs (405+9) within installer::exiter::BEGIN@30 which was called: # once (405µs+9µs) by installer::archivefiles::BEGIN@31 at line 30
use strict;
# spent 414µs making 1 call to installer::exiter::BEGIN@30 # spent 9µs making 1 call to strict::import
31262µs258µs
# spent 39µs (21+18) within installer::exiter::BEGIN@31 which was called: # once (21µs+18µs) by installer::archivefiles::BEGIN@31 at line 31
use warnings;
# spent 39µs making 1 call to installer::exiter::BEGIN@31 # spent 18µs making 1 call to warnings::import
32
3321.05ms211.1ms
# spent 11.1ms (1.67+9.46) within installer::exiter::BEGIN@33 which was called: # once (1.67ms+9.46ms) by installer::archivefiles::BEGIN@31 at line 33
use installer::files;
# spent 11.1ms making 1 call to installer::exiter::BEGIN@33 # spent 5µs making 1 call to UNIVERSAL::import
34254µs220µs
# spent 18µs (16+2) within installer::exiter::BEGIN@34 which was called: # once (16µs+2µs) by installer::archivefiles::BEGIN@31 at line 34
use installer::globals;
# spent 18µs making 1 call to installer::exiter::BEGIN@34 # spent 2µs making 1 call to UNIVERSAL::import
35255µs284µs
# spent 49µs (15+34) within installer::exiter::BEGIN@35 which was called: # once (15µs+34µs) by installer::archivefiles::BEGIN@31 at line 35
use installer::logger;
# spent 49µs making 1 call to installer::exiter::BEGIN@35 # spent 34µs making 1 call to Exporter::import
3621.20ms217.0ms
# spent 17.0ms (11.1+5.90) within installer::exiter::BEGIN@36 which was called: # once (11.1ms+5.90ms) by installer::archivefiles::BEGIN@31 at line 36
use installer::systemactions;
# spent 17.0ms making 1 call to installer::exiter::BEGIN@36 # spent 7µs making 1 call to UNIVERSAL::import
3721.75ms281.0ms
# spent 81.0ms (17.0+64.0) within installer::exiter::BEGIN@37 which was called: # once (17.0ms+64.0ms) by installer::archivefiles::BEGIN@31 at line 37
use installer::worker;
# spent 81.0ms making 1 call to installer::exiter::BEGIN@37 # spent 9µs making 1 call to UNIVERSAL::import
38
39############################################
40# Exiting the program with an error
41# This function is used instead of "die"
42############################################
43
44sub exit_program
45{
46 my ($message, $function) = @_;
47
48 # If an installation set is currently created, the directory name is saved in $installer::globals::saveinstalldir
49 # If this directory name matches with "_inprogress", it has to be renamed into "_witherror"
50
51 if ( $installer::globals::saveinstalldir =~ /_inprogress/ ) { installer::systemactions::rename_string_in_directory($installer::globals::saveinstalldir, "_inprogress", "_witherror"); }
52
53 installer::worker::clean_output_tree(); # removing directories created in the output tree
54
55 # If @installer::globals::logfileinfo is not empty, it can be used.
56 # Otherwise the content of @installer::globals::globallogfileinfo has to be used.
57
58 my $infoline;
59
60 $installer::globals::logfilename = $installer::globals::exitlog . $installer::globals::logfilename;
61
62 if ( ! $installer::globals::globalinfo_copied ) { installer::logger::copy_globalinfo_into_logfile(); }
63
64 if ( $#installer::globals::logfileinfo > -1 )
65 {
66 $infoline = "\n***************************************************************\n";
67 push(@installer::globals::logfileinfo, $infoline);
68
69 $infoline = "$message\n";
70 push(@installer::globals::logfileinfo, $infoline);
71
72 $infoline = "in function: $function\n";
73 push(@installer::globals::logfileinfo, $infoline);
74
75 $infoline = "***************************************************************\n";
76 push(@installer::globals::logfileinfo, $infoline);
77
78 installer::files::save_file($installer::globals::logfilename ,\@installer::globals::logfileinfo);
79 }
80 else
81 {
82 $infoline = "\n***************************************************************\n";
83 push(@installer::globals::globallogfileinfo, $infoline);
84
85 $infoline = "$message\n";
86 push(@installer::globals::globallogfileinfo, $infoline);
87
88 $infoline = "in function: $function\n";
89 push(@installer::globals::globallogfileinfo, $infoline);
90
91 $infoline = "***************************************************************\n";
92 push(@installer::globals::globallogfileinfo, $infoline);
93
94 installer::files::save_file($installer::globals::logfilename ,\@installer::globals::globallogfileinfo);
95 }
96 installer::logger::print_error("$message\nin function: $function");
97 print("ERROR, saved logfile $installer::globals::logfilename is:\n");
98 open(LOG, "<", $installer::globals::logfilename);
99 print ": $_" while (<LOG>);
100 print "\n";
101 close(LOG);
102
103 installer::logger::stoptime();
104
105 exit(-1);
106}
107
10817µs1;