Patch for bug 275752: Make checksetup.pl to implicit chdir to the bugzilla directory; patch by Byron Jones (glob) <bugzilla@glob.com.au>, r=wurblzap, a=justdave.

This commit is contained in:
jocuri%softhome.net 2005-01-16 21:42:56 +00:00
Родитель 1e5af732cb
Коммит 4f7059cc96
1 изменённых файлов: 10 добавлений и 9 удалений

Просмотреть файл

@ -115,6 +115,16 @@
# #
use strict; use strict;
BEGIN {
if ($^O =~ /MSWin32/i) {
require 5.008001; # for CGI 2.93 or higher
}
require 5.006;
use File::Basename;
chdir dirname($0);
}
use lib "."; use lib ".";
use vars qw( $db_name %answer ); use vars qw( $db_name %answer );
@ -178,15 +188,6 @@ if ($ARGV[0] && ($ARGV[0] !~ /^--/)) {
# #
print "\nChecking perl modules ...\n" unless $silent; print "\nChecking perl modules ...\n" unless $silent;
if ($^O =~ /MSWin32/i) {
unless ($] >= 5.008001) {
die "Sorry, you need at least ActiveState Perl build 5.8.1\n";
# for CGI 2.93 or higher
}
}
unless ($] >= 5.006) {
die "Sorry, you need at least Perl 5.6\n";
}
# vers_cmp is adapted from Sort::Versions 1.3 1996/07/11 13:37:00 kjahds, # vers_cmp is adapted from Sort::Versions 1.3 1996/07/11 13:37:00 kjahds,
# which is not included with Perl by default, hence the need to copy it here. # which is not included with Perl by default, hence the need to copy it here.