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

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

61sub do_strip
62{
63 my ( $filename ) = @_;
64
65 my $systemcall = "strip" . " " . $filename;
66
67 my $returnvalue = system($systemcall);
68
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

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

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

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

118 for ( my $i = 0; $i <= $#{$filelist}; $i++ )
119 {
120 my $sourcefilename = ${$filelist}[$i]->{'cyg_sourcepath'};
121
122 if ( ${$filelist}[$i]->{'is_executable'} && need_to_strip($sourcefilename) )
123 {
124 my $shortfilename = $sourcefilename;
125 installer::pathanalyzer::make_absolute_filename_to_relative_filename(\$shortfilename);
78 }
79}
80
81#####################################################################
82# Resolving all variables in the packagename.
83#####################################################################
84
85sub strip_binaries

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

115 for ( my $i = 0; $i <= $#{$filelist}; $i++ )
116 {
117 my $sourcefilename = ${$filelist}[$i]->{'cyg_sourcepath'};
118
119 if ( ${$filelist}[$i]->{'is_executable'} && need_to_strip($sourcefilename) )
120 {
121 my $shortfilename = $sourcefilename;
122 installer::pathanalyzer::make_absolute_filename_to_relative_filename(\$shortfilename);
126
127 $infoline = "Strip: $shortfilename\n";
128 push( @installer::globals::logfileinfo, $infoline);
129
123
124 $installer::logger::Lang->printf("Strip: %s\n", $shortfilename);
125
130 # copy file into directory for stripped libraries
131
132 my $onelanguage = ${$filelist}[$i]->{'specificlanguage'};
133
134 # files without language into directory "00"
135
136 if ($onelanguage eq "") { $onelanguage = "00"; }
137

--- 18 unchanged lines hidden --- 		126 # copy file into directory for stripped libraries
127
128 my $onelanguage = ${$filelist}[$i]->{'specificlanguage'};
129
130 # files without language into directory "00"
131
132 if ($onelanguage eq "") { $onelanguage = "00"; }
133

--- 18 unchanged lines hidden ---