perlivp: tell what went wrong.

p4raw-id: //depot/perl@17069

diff --git a/utils/perlivp.PL b/utils/perlivp.PL
index 74a72a3..f89ba0b 100644 (file)
--- 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;
 }