Changeset 74

Show
Ignore:
Timestamp:
01/20/07 01:21:19 (2 years ago)
Author:
cfedde
Message:
it works but the algorithm looks a bit stupid.
I'm tired and I'm going to bed.
Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/src/plugins/cfedde/bin/rippod

    r69 r74  
    1616    print "$file \n"; 
    1717 
    18     my $f =  io $file; 
    19  
    2018    my $dest = $file; 
    2119    $dest =~ s|lib|src/doc|; 
     20    $dest =~ s/\.\w+$/.pod/; 
    2221    next if -e $dest; 
    2322 
    …… 
    3332 
    3433    my $in_pod = 0; 
    35     while (my $l = $f->readline) { 
    36         if ($l =~ /^=cut/)  { 
    37             $in_pod = 0; 
    38         } elsif ($l =~ /^=\w/) { 
     34    while (my $l = $src->readline) { 
     35        if ($l =~ /^=\w/ and not $l =~ /^=cut/) { 
    3936            $in_pod = 1; 
    4037        } 
    …… 
    4441        } else { 
    4542            $code->print($l); 
     43        } 
     44 
     45        if ($l =~ /^=cut/ or $l =~ /^__\w+/)  { 
     46            $in_pod = 0; 
    4647        } 
    4748