find_perl() must be after environment initialization

p4raw-id: //depot/perl@26913

diff --git a/ext/Devel/PPPort/t/ppphtest.t b/ext/Devel/PPPort/t/ppphtest.t
index d6dc344..4dc7f48 100644 (file)
--- a/ext/Devel/PPPort/t/ppphtest.t
+++ b/ext/Devel/PPPort/t/ppphtest.t
@@ -49,9 +49,9 @@ use Config;
 
 my $tmp = 'ppptmp';
 my $inc = '';
-my $perl = find_perl();
 my $isVMS = $^O eq 'VMS';
 my $isMAC = $^O eq 'MacOS';
+my $perl = find_perl();
 
 rmtree($tmp) if -d $tmp;
 mkpath($tmp) or die "mkpath $tmp: $!\n";