Subversion Repositories DevTools

Rev

Rev 361 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 361 Rev 4386
Line 940... Line 940...
940 
            closedir(DIR);
 940 
            closedir(DIR);
941 
 
 941 
 
942 
            # scan each .pod and .pm file for =item directives
 942 
            # scan each .pod and .pm file for =item directives
943 
            foreach $pod (@files) {
 943 
            foreach $pod (@files) {
944 
                open(POD, "<$dirname/$pod") ||
 944 
                open(POD, "<$dirname/$pod") ||
945 
                    die "$0: error opening $dirname/$pod for input: $!\n";
 945 
                    die "$0: error opening(pod) $dirname/$pod for input: $!\n";
946 
                @poddata = <POD>;
 946 
                @poddata = <POD>;
947 
                close(POD);
 947 
                close(POD);
948 
                clean_data( \@poddata );
 948 
                clean_data( \@poddata );
949 
 
 949 
 
950 
                scan_items( \%Items, "$dirname/$pod", @poddata);
 950 
                scan_items( \%Items, "$dirname/$pod", @poddata);
Line 959... Line 959...
959 
        } elsif ($Pages{$libpod} =~ /([^:]*\.pod):/ ||
 959 
        } elsif ($Pages{$libpod} =~ /([^:]*\.pod):/ ||
960 
                 $Pages{$libpod} =~ /([^:]*\.p[ml]):/) {
 960 
                 $Pages{$libpod} =~ /([^:]*\.p[ml]):/) {
961 
            # scan the .pod or .pm file for =item directives
 961 
            # scan the .pod or .pm file for =item directives
962 
            $pod = $1;
 962 
            $pod = $1;
963 
            open(POD, "<$pod") ||
 963 
            open(POD, "<$pod") ||
964 
                die "$0: error opening $pod for input: $!\n";
 964 
                die "$0: error opening(pod1) $pod for input: $!\n";
965 
            @poddata = <POD>;
 965 
            @poddata = <POD>;
966 
            close(POD);
 966 
            close(POD);
967 
            clean_data( \@poddata );
 967 
            clean_data( \@poddata );
968 
 
 968 
 
969 
            scan_items( \%Items, "$pod", @poddata);
 969 
            scan_items( \%Items, "$pod", @poddata);
Line 980... Line 980...
980 
    {
 980 
    {
981 
        if ($Pages{$libpod} =~ /([^:]*\.pod):/ ||
 981 
        if ($Pages{$libpod} =~ /([^:]*\.pod):/ ||
982 
                 $Pages{$libpod} =~ /([^:]*\.p[ml]):/) {
 982 
                 $Pages{$libpod} =~ /([^:]*\.p[ml]):/) {
983 
            # scan the .pod or .pm file for =for directives
 983 
            # scan the .pod or .pm file for =for directives
984 
            $pod = $1;
 984 
            $pod = $1;
- 
 
 985 
            next if ($pod =~ m~\.keep\.pod~);
985 
            open(POD, "<$pod") ||
 986 
            open(POD, "<$pod") ||
986 
                die "$0: error opening $pod for input: $!\n";
 987 
                die "$0: error opening(pod2) $pod for input: $!\n";
987 
            @poddata = <POD>;
 988 
            @poddata = <POD>;
988 
            close(POD);
 989 
            close(POD);
989 
            clean_data( \@poddata );
 990 
            clean_data( \@poddata );
990 
 
 991 
 
991 
            scan_toc( \%Toc, "$pod", @poddata);
 992 
            scan_toc( \%Toc, "$pod", @poddata);