#
# InspIRCd -- Internet Relay Chat Daemon
#
-# Copyright (C) 2007 Dennis Friis <peavey@inspircd.org>
-# Copyright (C) 2007 Craig Edwards <craigedwards@brainbox.cc>
-# Copyright (C) 2013 Peter Powell <petpow@saberuk.com>
+# Copyright (C) 2013-2017, 2020 Sadie Powell <sadie@witchery.services>
#
# This file is part of InspIRCd. InspIRCd is free software: you can
# redistribute it and/or modify it under the terms of the GNU General Public
sub prompt($$) {
my ($question, $default) = @_;
- return prompt_string(1, $question, $default) if eval 'use FindBin;use lib $FindBin::RealDir;use make::console; 1';
+ return prompt_string(1, $question, $default) if eval 'use File::Basename; use FindBin; use lib dirname($FindBin::RealDir); use make::console; 1';
say $question;
print "[$default] => ";
chomp(my $answer = <STDIN>);