X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FExtUtils%2FInstall.pm;h=f75aa55fa8b0ab99140e29cf1db5f65bf0189432;hb=74a2feed3f7ab8f6e9b1144cca2f3eb4f6fd9498;hp=992d178659861bc64e3d3fadd57e59b29a04b34f;hpb=354f3b563e416c45738a8a6587f56819e7000baa;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/ExtUtils/Install.pm b/lib/ExtUtils/Install.pm
index 992d178..f75aa55 100644
--- a/lib/ExtUtils/Install.pm
+++ b/lib/ExtUtils/Install.pm
@@ -81,10 +81,13 @@ sub install {
 	#there are any files in arch. So we depend on having ./blib/arch
 	#hardcoded here.
 	my $targetroot = $hash{$source};
-	if ($source eq "./blib/lib" and
-	    exists $hash{"./blib/arch"} and
-	    directory_not_empty("./blib/arch")) {
-	    $targetroot = $hash{"./blib/arch"};
+	if ($source eq "blib/lib" and
+	    exists $hash{"blib/arch"} and
+	    directory_not_empty("blib/arch")) {
+	    $targetroot = $hash{"blib/arch"};
+            print "Files found in blib/arch --> Installing files in " 
+	        . "blib/lib into architecture dependend library tree!\n"
+		; #if $verbose>1;
 	}
 	chdir($source) or next;
 	find(sub {
@@ -351,7 +354,7 @@ The argument is the value of MakeMaker's C<FULLEXT> key, like F<Tk/Canvas>.
 This function calls install() with the same arguments as the defaults 
 the MakeMaker would use.
 
-The argumement-less form is convenient for install scripts like
+The argument-less form is convenient for install scripts like
 
   perl -MExtUtils::Install -e install_default Tk/Canvas