From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 7 Jun 2002 19:28:52 +0000 (+0000)
Subject: perlivp: tell what went wrong.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6ba90e15f42bb7931083ac52cc71aa835bee2067;p=p5sagit%2Fp5-mst-13.2.git

perlivp: tell what went wrong.

p4raw-id: //depot/perl@17069
---

diff --git a/utils/perlivp.PL b/utils/perlivp.PL
index 74a72a3..f89ba0b 100644
--- a/utils/perlivp.PL
+++ b/utils/perlivp.PL
@@ -174,7 +174,7 @@ foreach (qw(Config.pm ExtUtils/Installed.pm)) {
         $needed_there++;
     }
     else {
-        print "# Needed module `$_' does not appear to be properly installed.\n";
+        print "# Needed module `$_' does not appear to be properly installed ($@).\n";
     }
     $@ = undef;
 }
@@ -210,7 +210,7 @@ if (defined($Config{'extensions'})) {
             $extensions_there++;
         }
         else {
-            print "# Required module `$_' does not appear to be properly installed.\n";
+            print "# Required module `$_' does not appear to be properly installed ($@).\n";
             $@ = undef;
         }
         $extensions_total++;
@@ -328,7 +328,7 @@ foreach (@ph_files) {
         $ph_there++;
     }
     else {
-        print "# Perl header `$_' does not appear to be properly installed.\n";
+        print "# Perl header `$_' does not appear to be properly installed ($@).\n";
     }
     $@ = undef;
 }