diff options
author | Gurusamy Sarathy <gsar@cpan.org> | 2000-07-11 18:12:10 +0000 |
---|---|---|
committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-07-11 18:12:10 +0000 |
commit | 497711e7b1df022fefe2ed59a7b09c545fed3b3b (patch) | |
tree | 31d93270fedf0a25d36feca88210d4db478a411c /embed.pl | |
parent | 22543175801498849371a87fac00fda0d5ec7d06 (diff) | |
download | perl-497711e7b1df022fefe2ed59a7b09c545fed3b3b.tar.gz |
integrate cfgperl changes#6231..6240 into mainline
p4raw-link: @6240 on //depot/cfgperl: 514e70b26394e6b272960ab8b9b8b7dbb1e2c068
p4raw-link: @6231 on //depot/cfgperl: 7906debc4b99f108310cdade6e486754c15481e7
p4raw-id: //depot/perl@6355
p4raw-branched: from //depot/cfgperl@6353 'branch in' pod/perlutil.pod
p4raw-integrated: from //depot/cfgperl@6353 'copy in' pod/roffitall
(@5753..) op.h (@5833..) README.cygwin (@6096..)
lib/ExtUtils/MM_VMS.pm (@6140..) lib/File/Find.pm (@6156..)
Configure config_h.SH hints/solaris_2.sh (@6217..) Todo-5.6
(@6232..) keywords.h lib/warnings.pm opcode.h opnames.h pp.sym
regnodes.h warnings.h (@6236..) 'ignore' ext/B/B/Asmdata.pm
ext/ByteLoader/byterun.c ext/ByteLoader/byterun.h (@6236..)
p4raw-integrated: from //depot/cfgperl@6240 'copy in' utils/h2xs.PL
(@6192..)
p4raw-integrated: from //depot/cfgperl@6238 'merge in' vms/vms.c
(@6198..)
p4raw-integrated: from //depot/cfgperl@6237 'copy in' utf8.c (@6221..)
pod/perlapi.pod pod/perlintern.pod pp_proto.h (@6236..)
'ignore' embedvar.h perlapi.h (@6236..) 'merge in' embed.pl
(@6225..) embed.h objXSUB.h perlapi.c proto.h (@6236..)
p4raw-integrated: from //depot/cfgperl@6232 'copy in' pod/Makefile
pod/perltoc.pod (@6161..) MANIFEST (@6227..)
Diffstat (limited to 'embed.pl')
-rwxr-xr-x | embed.pl | 21 |
1 files changed, 16 insertions, 5 deletions
@@ -1083,10 +1083,10 @@ my %docfuncs; sub autodoc ($$) { # parse a file and extract documentation info my($fh,$file) = @_; - my($in, $doc); - + my($in, $doc, $line); FUNC: while (defined($in = <$fh>)) { + $line++; if ($in =~ /^=for\s+apidoc\s+(.*)\n/) { my $proto = $1; $proto = "||$proto" unless $proto =~ /\|/; @@ -1094,7 +1094,12 @@ FUNC: my $docs = ""; DOC: while (defined($doc = <$fh>)) { + $line++; last DOC if $doc =~ /^=\w+/; + if ($doc =~ m:^\*/$:) { + warn "=cut missing? $file:$line:$doc";; + last DOC; + } $docs .= $doc; } $docs = "\n$docs" if $docs and $docs !~ /^\n/; @@ -1109,9 +1114,13 @@ DOC: else { $docfuncs{$name} = [$flags, $docs, $ret, $file, @args]; } - if ($doc =~ /^=for/) { - $in = $doc; - redo FUNC; + if (defined $doc) { + if ($doc =~ /^=for/) { + $in = $doc; + redo FUNC; + } + } else { + warn "$file:$line:$in"; } } } @@ -1172,6 +1181,8 @@ walk_table { # load documented functions into approriate hash } \*DOC; for (sort keys %docfuncs) { + # Have you used a full for apidoc or just a func name? + # Have you used Ap instead of Am in the for apidoc? warn "Unable to place $_!\n"; } |