strip.pm (9780544f) strip.pm (b274bc22)
1#**************************************************************
2#
3# Licensed to the Apache Software Foundation (ASF) under one
4# or more contributor license agreements. See the NOTICE file
5# distributed with this work for additional information
6# regarding copyright ownership. The ASF licenses this file
7# to you under the Apache License, Version 2.0 (the
8# "License"); you may not use this file except in compliance

--- 50 unchanged lines hidden (view full) ---

59{
60 my ( $filename ) = @_;
61
62 my $systemcall = "strip" . " " . $filename;
63
64 my $returnvalue = system($systemcall);
65
66 my $infoline = "Systemcall: $systemcall\n";
1#**************************************************************
2#
3# Licensed to the Apache Software Foundation (ASF) under one
4# or more contributor license agreements. See the NOTICE file
5# distributed with this work for additional information
6# regarding copyright ownership. The ASF licenses this file
7# to you under the Apache License, Version 2.0 (the
8# "License"); you may not use this file except in compliance

--- 50 unchanged lines hidden (view full) ---

59{
60 my ( $filename ) = @_;
61
62 my $systemcall = "strip" . " " . $filename;
63
64 my $returnvalue = system($systemcall);
65
66 my $infoline = "Systemcall: $systemcall\n";
67 push( @installer::globals::logfileinfo, $infoline);
67 $installer::logger::Lang->print($infoline);
68
69 if ($returnvalue)
70 {
71 $infoline = "ERROR: Could not strip $filename!\n";
68
69 if ($returnvalue)
70 {
71 $infoline = "ERROR: Could not strip $filename!\n";
72 push( @installer::globals::logfileinfo, $infoline);
72 $installer::logger::Lang->print($infoline);
73 }
74 else
75 {
76 $infoline = "SUCCESS: Stripped library $filename!\n";
73 }
74 else
75 {
76 $infoline = "SUCCESS: Stripped library $filename!\n";
77 push( @installer::globals::logfileinfo, $infoline);
77 $installer::logger::Lang->print($infoline);
78 }
79}
80
81#####################################################################
82# Resolving all variables in the packagename.
83#####################################################################
84
85sub strip_libraries

--- 14 unchanged lines hidden (view full) ---

100 my $sourcefilename = ${$filelist}[$i]->{'sourcepath'};
101
102 if ( need_to_strip($sourcefilename) )
103 {
104 my $shortfilename = $sourcefilename;
105 installer::pathanalyzer::make_absolute_filename_to_relative_filename(\$shortfilename);
106
107 $infoline = "Strip: $shortfilename\n";
78 }
79}
80
81#####################################################################
82# Resolving all variables in the packagename.
83#####################################################################
84
85sub strip_libraries

--- 14 unchanged lines hidden (view full) ---

100 my $sourcefilename = ${$filelist}[$i]->{'sourcepath'};
101
102 if ( need_to_strip($sourcefilename) )
103 {
104 my $shortfilename = $sourcefilename;
105 installer::pathanalyzer::make_absolute_filename_to_relative_filename(\$shortfilename);
106
107 $infoline = "Strip: $shortfilename\n";
108 push( @installer::globals::logfileinfo, $infoline);
108 $installer::logger::Lang->print($infoline);
109
110 # copy file into directory for stripped libraries
111
112 my $onelanguage = ${$filelist}[$i]->{'specificlanguage'};
113
114 # files without language into directory "00"
115
116 if ($onelanguage eq "") { $onelanguage = "00"; }

--- 19 unchanged lines hidden --- 		109
110 # copy file into directory for stripped libraries
111
112 my $onelanguage = ${$filelist}[$i]->{'specificlanguage'};
113
114 # files without language into directory "00"
115
116 if ($onelanguage eq "") { $onelanguage = "00"; }

--- 19 unchanged lines hidden ---