Fix for bug 98024: t/1.t should use $^X instead of hard-coded path to perl.

Patch by ddkilzer@theracingworld.com (David D. Kilzer, ddk). Review by Zach Lipton (zach@zachlipton.com) no 2nd review required.

diff --git a/t/1.t b/t/1.t
index 39cdc9a15d11771369fc2a1674ca5778292c837f..7e46dd49c94333dac19442c8b4a96964e3fc65aa 100644 (file)
--- a/t/1.t
+++ b/t/1.t
@@ -100,7 +100,7 @@ xml.cgi #51
 ));
 our $warnings;
 my $verbose = $::ENV{VERBOSE};
-$perlapp='/usr/bonsaitools/bin/perl';
+$perlapp=$^X;
 foreach $file (@testitems) {
         $file =~ s/\s.*$//; # nuke everything after the first space (#comment)
         next if (!$file); # skip null entries