diff -ur gpt.orig/packaging_tools/perl/scripts/gpt-update gpt/packaging_tools/perl/scripts/gpt-update --- gpt.orig/packaging_tools/perl/scripts/gpt-update 2008-10-04 19:39:36.000000000 +0200 +++ gpt/packaging_tools/perl/scripts/gpt-update 2008-10-04 19:51:59.000000000 +0200 @@ -5,12 +5,7 @@ die "GPT requires at least Perl version 5.005"; } -system("./gpt_version") == 0 - or die "GPT died due to Version mismatch. Check PATH and GPT_LOCATION\n" ; - - my $gpath = $ENV{GPT_LOCATION}; -my $globus_path = $ENV{GLOBUS_LOCATION}; if (!defined($gpath)) { @@ -19,11 +14,14 @@ if (!defined($gpath)) { - error_out("GPT_LOCATION or GLOBUS_LOCATION needs to be set before running this script"); + error_out("GPT_LOCATION needs to be set before running this script"); } @INC = ("$gpath/lib/perl", "$gpath/lib/perl/$Config{'archname'}", @INC); +system("$gpath/sbin/gpt_version") == 0 + or die "GPT died due to Version mismatch. Check PATH and GPT_LOCATION\n" ; + if ( ! ( defined eval "require Grid::GPT::GPTObject" ) ) { die("$gpath does not appear to hold a valid GPT installation\n");