+ die "no appropriate dotperllib dir in @INC";
+}
+
+sub sourcebasedir () {
+ return dotperllibdir().'/..';
+}
+
+sub datadir () {
+ my $edir= $ENV{'YARRG_DATA_DIR'};
+ return $edir if defined $edir;
+ my $dir= dotperllibdir();
+ if (stat "$dir/DATA") {
+ return "$dir/DATA";
+ } elsif ($!==&ENOENT) {
+ return "$dir";
+ } else {
+ die "stat $dir/DATA $!";
+ }
+ return '.';