The configure script was getting confused if invoked as

'perl configure.pl' rather than 'perl ./configure.pl'; now that works.

1 files changed, 2 insertions, 1 deletions

diff --git a/configure.pl b/configure.pl
index 45c46bd14..563da5c88 100755
--- a/configure.pl
+++ b/configure.pl
@@ -144,7 +144,8 @@ sub main {
 sub where_am_i {
     my ($volume,$dir,$file) = File::Spec->splitpath($0);
     my $src_dir = File::Spec->catpath($volume, $dir, '');
-    return $src_dir;
+    return $src_dir if $src_dir;
+    return File::Spec->curdir();
 }
 
 ##################################################