25 lines
683 B
Plaintext
25 lines
683 B
Plaintext
--- CADUBI.pl~ Sat Dec 22 01:56:09 2001
|
|
+++ CADUBI.pl Sat Dec 22 01:57:31 2001
|
|
@@ -716,10 +716,10 @@ sub HandleKeystroke {
|
|
|
|
# help
|
|
if (ord($key) == $keymap{'^h'}) { #Help
|
|
- if (-e $Bin.'/CADUBI.help') {
|
|
+ if (-e $Helpfile.'/CADUBI.help') {
|
|
my @oldmap = @charmap;
|
|
my @oldpos = @pos;
|
|
- &readfile($Bin.'/CADUBI.help');
|
|
+ &readfile($Helpfile.'/CADUBI.help');
|
|
&status('Press a key to continue...', 1);
|
|
my $temp = ReadKey(0);
|
|
@charmap = @oldmap;
|
|
@@ -729,7 +729,7 @@ sub HandleKeystroke {
|
|
&status;
|
|
} else {
|
|
&beep;
|
|
- &status("'".$Bin."/CADUBI.help' not available");
|
|
+ &status("'".$Helpfile."/CADUBI.help' not available");
|
|
}
|
|
return 0;
|
|
}
|