+sub getinc {
+ my $fullpath=shift; # this is not a method
+ my $depth=20; # arbitrary max depth
+
+ my $inc=".include";
+ while ( ! -d $fullpath."/".$inc ) {
+ $inc = "../".$inc;
+ last unless ($depth-- > 0);
+ }
+ if ($depth > 0) {
+ return $inc.'/'; # prefix with trailing slash
+ } else {
+ return 'NO-.INCLUDE-IN-PATH/'; # won't work anyway
+ }
+}
+