diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-07-13 08:16:41 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-07-13 08:16:41 +0000 |
| commit | 201e8cd610f560e48eaf6a9d3e533e99fa050d83 (patch) | |
| tree | 70f4054402b37da8037e659261a1fb06d3c44bae /pod/splitpod | |
| parent | 538c55547865802bb03d48ace141e0ce6fbfa733 (diff) | |
| download | perl-201e8cd610f560e48eaf6a9d3e533e99fa050d83.tar.gz | |
* make splitpod actually work if perl isn't installed
* prevent doc extractors to extract POD from splitpod
p4raw-id: //depot/perl@31603
Diffstat (limited to 'pod/splitpod')
| -rwxr-xr-x | pod/splitpod | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/pod/splitpod b/pod/splitpod index d5963bf411..10fd6afb11 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 |