From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Fri, 13 Jul 2007 08:16:41 +0000 (+0000)
Subject: * make splitpod actually work if perl isn't installed
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=201e8cd610f560e48eaf6a9d3e533e99fa050d83;p=p5sagit%2Fp5-mst-13.2.git

* make splitpod actually work if perl isn't installed
* prevent doc extractors to extract POD from splitpod

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

diff --git a/pod/splitpod b/pod/splitpod
index d5963bf..10fd6af 100755
--- a/pod/splitpod
+++ b/pod/splitpod
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-use lib '../lib';  # If you haven't installed perl yet.
+BEGIN { push @INC, '../lib' } # If you haven't installed perl yet.
 use Pod::Functions;
 
 local $/ = '';
@@ -48,15 +48,15 @@ for $f ( keys %syn ) {
     $body =~ s/^=back\s*//m if $has_back and !$has_over;
     open (POD, "> $name.pod") || die "can't open $name.pod: $!";
     print POD <<EOF;
-=head1 NAME
+\=head1 NAME
 
 $orig - $flavor
 
-=head1 SYNOPSIS
+\=head1 SYNOPSIS
 
 $syn{$orig}
 
-=head1 DESCRIPTION
+\=head1 DESCRIPTION
 
 $body