File PDL-2.4.7-pdldoc.db.diff of Package perl-PDL

Index: Doc/scantree.pl
===================================================================
--- Doc/scantree.pl.orig
+++ Doc/scantree.pl
@@ -8,10 +8,13 @@ require PDL; # always needed to pick up
 $opt_v = 0;
 
 getopts('v');
+$root = shift @ARGV;
 $dir = shift @ARGV;
 $outdb  = shift @ARGV;
 $outindex  = shift @ARGV;
 
+chroot $root;
+
 unless (defined $dir) {
 	($dir = $INC{'PDL.pm'}) =~ s/PDL\.pm$//i;
 	umask 0022;