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

--- Doc/scantree.pl
+++ Doc/scantree.pl
@@ -8,9 +8,12 @@
 $opt_v = 0;
 
 getopts('v');
+$root = shift @ARGV;
 $dir = shift @ARGV;
 $outdb  = shift @ARGV;
 
+chroot $root;
+
 unless (defined $dir) {
 	($dir = $INC{'PDL.pm'}) =~ s/PDL\.pm$//i;
 	umask 0022;