The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use Cwd;
use PDL::Doc;
use File::Copy qw(copy);


# Find the pdl documentation
my ($dir,$file,$pdldoc);

DIRECTORY:
for (@INC) {
    $dir = $_;
    $file = $dir."/PDL/pdldoc.db";
    if (-f $file) {
        print "Found docs database $file\n";
        $pdldoc = new PDL::Doc ($file);
        last DIRECTORY;
    }
}

die ("Unable to find docs database! Not updating docs database.\n") unless $pdldoc;

chdir 'blib/lib' or die "can't change to blib/lib";

$current_dir = getcwd;

$pdldoc->ensuredb();
$pdldoc->scantree("$current_dir/PDL");
eval { $pdldoc->savedb(); };
warn $@ if $@;

print "PDL docs database updated.\n";