From 201e8cd610f560e48eaf6a9d3e533e99fa050d83 Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Fri, 13 Jul 2007 08:16:41 +0000
Subject: [PATCH] * make splitpod actually work if perl isn't installed *
 prevent doc extractors to extract POD from splitpod

p4raw-id: //depot/perl@31603
---
 pod/splitpod | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

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
 
-- 
2.7.4