1
#! /bin/sh /usr/share/dpatch/dpatch-run
2
## 40-Doc-scantree-exclude-index.dpatch by <glaweh@debian.org>
4
## All lines beginning with `## DP:' are a description of the patch.
8
diff -urNad pdl-2.4.5+dfsg~/Doc/Doc.pm pdl-2.4.5+dfsg/Doc/Doc.pm
9
--- pdl-2.4.5+dfsg~/Doc/Doc.pm 2009-10-17 21:37:41.000000000 +0000
10
+++ pdl-2.4.5+dfsg/Doc/Doc.pm 2009-11-06 21:14:05.287078238 +0000
12
my $sub = sub { if (($File::Find::name =~ /[.]pm$/ &&
13
$File::Find::name !~ /PP.pm/ &&
14
$File::Find::name !~ m|Pod/Parser.pm| &&
15
- $File::Find::dir !~ m#/PP|/Gen#) or
16
- $File::Find::name =~ /[.]pod$/){
17
+ $File::Find::dir !~ m#/PP|/Gen#) or (
18
+ $File::Find::name =~ /[.]pod$/ &&
19
+ $File::Find::name !~ /Index[.]pod$/)){
20
printf "%-20s", $_.'...';
21
my $n = $this->scan($File::Find::name,$verbose); # bind $this lexically
22
print "\t$n functions\n";