Makefile.PL (interchange-5.8.2) | : | Makefile.PL (interchange-5.10.0) | ||
---|---|---|---|---|
skipping to change at line 31 | skipping to change at line 31 | |||
use strict; | use strict; | |||
use vars (qw($VERSION $DOWARN)); | use vars (qw($VERSION $DOWARN)); | |||
my $TermRead; | my $TermRead; | |||
my $Prompt_sub; | my $Prompt_sub; | |||
my @mods_to_get; | my @mods_to_get; | |||
my @remove_old; | my @remove_old; | |||
my $Lock_troubles; | my $Lock_troubles; | |||
$VERSION = '5.8.2'; | $VERSION = '5.10.0'; | |||
my @os_hints; | my @os_hints; | |||
eval { | eval { | |||
# gets package 'mvhints' | # gets package 'mvhints' | |||
require 'hints.pl'; | require 'hints.pl'; | |||
@os_hints = mvhints::get_hints(); | @os_hints = mvhints::get_hints(); | |||
}; | }; | |||
my @chown_files = qw/ | my @chown_files = qw/ | |||
error.log | error.log | |||
skipping to change at line 156 | skipping to change at line 156 | |||
chmod $perms, $targfile; | chmod $perms, $targfile; | |||
} | } | |||
sub copyright_prompt { | sub copyright_prompt { | |||
print <<EOF; | print <<EOF; | |||
Interchange V$VERSION | Interchange V$VERSION | |||
Copyright (C) 2002-2014 Interchange Development Group. | Copyright (C) 2002-2016 Interchange Development Group. | |||
Copyright (C) 1996-2002 Red Hat, Inc. | Copyright (C) 1996-2002 Red Hat, Inc. | |||
Interchange is free under the terms of the GNU General Public License. | Interchange is free under the terms of the GNU General Public License. | |||
http://www.icdevgroup.org/ | http://www.icdevgroup.org/ | |||
EOF | EOF | |||
} | } | |||
sub my_prompt { | sub my_prompt { | |||
return $_[1] if $MV::Default{force}; | return $_[1] if $MV::Default{force}; | |||
End of changes. 2 change blocks. | ||||
2 lines changed or deleted | 2 lines changed or added |