From: Gurusamy Sarathy <gsar@cpan.org>
Date: Mon, 11 Oct 1999 19:15:46 +0000 (+0000)
Subject: writing to perllocal.pod fails if it was never created;
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=082ab4105db91207118a22ff2c45d50a1b772838;p=p5sagit%2Fp5-mst-13.2.git

writing to perllocal.pod fails if it was never created;
tweak pseudo-hash example (both suggested by Michael G Schwern
<schwern@pobox.com>)

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

diff --git a/lib/ExtUtils/MM_Unix.pm b/lib/ExtUtils/MM_Unix.pm
index 9d14e97..9a8aefb 100644
--- a/lib/ExtUtils/MM_Unix.pm
+++ b/lib/ExtUtils/MM_Unix.pm
@@ -2135,6 +2135,7 @@ pure_site_install ::
 		}.$self->catdir('$(PERL_ARCHLIB)','auto','$(FULLEXT)').q{
 
 doc_perl_install ::
+	-}.$self->{NOECHO}.q{$(MKPATH) $(INSTALLARCHLIB)
 	-}.$self->{NOECHO}.q{$(DOC_INSTALL) \
 		"Module" "$(NAME)" \
 		"installed into" "$(INSTALLPRIVLIB)" \
@@ -2144,6 +2145,7 @@ doc_perl_install ::
 		>> }.$self->catfile('$(INSTALLARCHLIB)','perllocal.pod').q{
 
 doc_site_install ::
+	-}.$self->{NOECHO}.q{$(MKPATH) $(INSTALLARCHLIB)
 	-}.$self->{NOECHO}.q{$(DOC_INSTALL) \
 		"Module" "$(NAME)" \
 		"installed into" "$(INSTALLSITELIB)" \
@@ -2510,6 +2512,7 @@ $tmp/perlmain.c: $makefilename}, q{
     push @m, q{
 doc_inst_perl:
 	}.$self->{NOECHO}.q{echo Appending installation info to $(INSTALLARCHLIB)/perllocal.pod
+	-}.$self->{NOECHO}.q{$(MKPATH) $(INSTALLARCHLIB)
 	-}.$self->{NOECHO}.q{$(DOC_INSTALL) \
 		"Perl binary" "$(MAP_TARGET)" \
 		MAP_STATIC "$(MAP_STATIC)" \
diff --git a/pod/perlref.pod b/pod/perlref.pod
index 753cd01..12bc581 100644
--- a/pod/perlref.pod
+++ b/pod/perlref.pod
@@ -579,7 +579,7 @@ The second is to use exists() on the hash reference sitting in the
 first array element.  This checks to see if the given key is a valid
 field in the pseudo-hash.
 
-	exists $phash->[0]{pants};	# true, 'pants' is a valid field
+	exists $phash->[0]{bar};	# true, 'bar' is a valid field
 	exists $phash->[0]{shoes};	# false, 'shoes' can't be used
 
 =head2 Function Templates