From 6ba90e15f42bb7931083ac52cc71aa835bee2067 Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 7 Jun 2002 19:28:52 +0000
Subject: [PATCH] perlivp: tell what went wrong.

p4raw-id: //depot/perl@17069
---
 utils/perlivp.PL | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/utils/perlivp.PL b/utils/perlivp.PL
index 74a72a3476..f89ba0bc46 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;
 }
-- 
2.34.1