-our $datadir='.';
-our $sourcebasedir;
-
-for my $dir (@INC) {
- if ($dir =~ m/\.perl-lib$/) {
- $sourcebasedir= "$dir/..";
- if (stat "$dir/DATA") {
- $datadir= "$dir/DATA";
- } elsif ($!==&ENOENT) {
- $datadir= "$dir";
- } else {
- die "stat $dir/DATA $!";