richter 2003/01/07 22:53:14
Modified: podsrc s2pod.pl
Log:
config generation, exclude non pod
Revision Changes Path
1.4 +5 -0 embperl/podsrc/s2pod.pl
Index: s2pod.pl
===================================================================
RCS file: /home/cvs/embperl/podsrc/s2pod.pl,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- s2pod.pl 2 Jan 2003 09:07:19 -0000 1.3
+++ s2pod.pl 8 Jan 2003 06:53:14 -0000 1.4
@@ -1,8 +1,13 @@
%typemember = ( 'CFG' => 'config -> ', 'PARAM' => 'param -> ', 'METHOD' => '') ;
+$skip = 0 ;
while (defined ($line = <STDIN>))
{
+ $skip = 1 if ($line =~/=cut/) ;
+ do { $skip = 0 ; next } if ($line =~/=pod/) ;
+ next if ($skip) ;
+
if ($line =~ /=head2\s+\*(CFG|PARAM|METHOD)\s+(.*?)$/)
{
my $type = $1 ;
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
