Proposed patch + test case.

[p5sagit/p5-mst-13.2.git] / utils / perlivp.PL

diff --git a/utils/perlivp.PL b/utils/perlivp.PL
index fd58e87..9059869 100644 (file)
--- a/utils/perlivp.PL
+++ b/utils/perlivp.PL
@@ -85,8 +85,6 @@ my $tests_total = 0;
 # Unixes it is the basename rather than the full path to the perl binary.
 my $perlpath = '';
 if (defined($Config{'perlpath'})) { $perlpath = $Config{'perlpath'}; }
-# Of course some platforms are distinct...
-if ($^O eq 'VMS') { $perlpath = $^X; }
 
 # The useithreads Config variable plays a role in whether or not
 # threads and threads/shared work when C<use>d.  They apparently always
@@ -125,7 +123,7 @@ my \$ivp_VERSION = $];
 
 !GROK!THIS!
 print OUT <<'!NO!SUBS!';
-if ($ivp_VERSION == $]) {
+if ($ivp_VERSION eq $]) {
     print "## Perl version `$]' appears installed as expected.\n" if $opt{'v'};
     print "ok 2\n";
     $pass__total++;