This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
* make splitpod actually work if perl isn't installed
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Fri, 13 Jul 2007 08:16:41 +0000 (08:16 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Fri, 13 Jul 2007 08:16:41 +0000 (08:16 +0000)
* prevent doc extractors to extract POD from splitpod

p4raw-id: //depot/perl@31603

pod/splitpod

index d5963bf..10fd6af 100755 (executable)
@@ -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