|
@@ -28,10 +28,20 @@ foreach my $key ( keys( %$settings_hr ) ) {
|
|
|
print $fh "$key: " . <STDIN>;
|
|
print $fh "$key: " . <STDIN>;
|
|
|
}
|
|
}
|
|
|
close( $fh );
|
|
close( $fh );
|
|
|
|
|
+
|
|
|
|
|
+my $provepath = 'prove';
|
|
|
|
|
+# Figure out if cPanel perl & prove exist. If so, use it, as it'll have a better chance of working.
|
|
|
|
|
+if( -f '/usr/local/cpanel/3rdparty/bin/perl' ) {
|
|
|
|
|
+ print "Checking cPanel Perl version...\n";
|
|
|
|
|
+ my $cpperl_ver = `/usr/local/cpanel/3rdparty/bin/perl -e 'print substr( \$], 0, 1 ) . substr( \$], 3, 2 );'`;
|
|
|
|
|
+ print "Looks like perl $cpperl_ver.\n";
|
|
|
|
|
+ $provepath = "/usr/local/cpanel/3rdparty/perl/$cpperl_ver/bin/prove";
|
|
|
|
|
+}
|
|
|
|
|
+
|
|
|
print STDOUT (
|
|
print STDOUT (
|
|
|
"Done writing to $gitdir/.${file_name_prefix}testrc.\n",
|
|
"Done writing to $gitdir/.${file_name_prefix}testrc.\n",
|
|
|
"The functional test in t/ should now work when ran like so:\n",
|
|
"The functional test in t/ should now work when ran like so:\n",
|
|
|
- "AUTHOR_TESTS=1 prove $gitdir/t/Cpanel-iContact-Provider-$module_name.t\n"
|
|
|
|
|
|
|
+ "AUTHOR_TESTS=1 $provepath $gitdir/t/Cpanel-iContact-Provider-$module_name.t\n"
|
|
|
);
|
|
);
|
|
|
|
|
|
|
|
0;
|
|
0;
|