General.pm (automake-1.16.2.tar.xz) | : | General.pm (automake-1.16.3.tar.xz) | ||
---|---|---|---|---|
skipping to change at line 20 | skipping to change at line 20 | |||
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |||
# GNU General Public License for more details. | # GNU General Public License for more details. | |||
# You should have received a copy of the GNU General Public License | # You should have received a copy of the GNU General Public License | |||
# along with this program. If not, see <https://www.gnu.org/licenses/>. | # along with this program. If not, see <https://www.gnu.org/licenses/>. | |||
package Automake::General; | package Automake::General; | |||
use 5.006; | use 5.006; | |||
use strict; | use strict; | |||
use warnings FATAL => 'all'; | ||||
use Exporter; | use Exporter; | |||
use File::Basename; | use File::Basename; | |||
use vars qw (@ISA @EXPORT); | our @ISA = qw (Exporter); | |||
our @EXPORT = qw (&uniq &none $me); | ||||
@ISA = qw (Exporter); | ||||
@EXPORT = qw (&uniq &none $me); | ||||
# Variable we share with the main package. Be sure to have a single | # Variable we share with the main package. Be sure to have a single | |||
# copy of them: using 'my' together with multiple inclusion of this | # copy of them: using 'my' together with multiple inclusion of this | |||
# package would introduce several copies. | # package would introduce several copies. | |||
use vars qw ($me); | our $me = basename ($0); | |||
$me = basename ($0); | ||||
# END | # END | |||
# --- | # --- | |||
# Exit nonzero whenever closing STDOUT fails. | # Exit nonzero whenever closing STDOUT fails. | |||
sub END | sub END | |||
{ | { | |||
# This is required if the code might send any output to stdout | # This is required if the code might send any output to stdout | |||
# E.g., even --version or --help. So it's best to do it unconditionally. | # E.g., even --version or --help. So it's best to do it unconditionally. | |||
if (! close STDOUT) | if (! close STDOUT) | |||
{ | { | |||
End of changes. 3 change blocks. | ||||
6 lines changed or deleted | 5 lines changed or added |