diff options
| author | Vadim Konovalov <vkonovalov@lucent.com> | 2003-08-26 04:10:29 +0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-08-25 19:37:00 +0000 |
| commit | 7318e67223d7ffba6adb4b3eb92f73f9fd189fc9 (patch) | |
| tree | ad2a07fb1a69a8bc03be0fded3d7b2ec9c34eea5 /wince | |
| parent | b64bd22bfa751c155242916e5a136e233b2b1a76 (diff) | |
| download | perl-7318e67223d7ffba6adb4b3eb92f73f9fd189fc9.tar.gz | |
make backspace key work for WinCE users
Message-ID: <135606488000.20030826001029@peterstar.ru>
p4raw-id: //depot/perl@20894
Diffstat (limited to 'wince')
| -rw-r--r-- | wince/perlmain.c | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/wince/perlmain.c b/wince/perlmain.c index cebbfb3d0f..ced3b86cc0 100644 --- a/wince/perlmain.c +++ b/wince/perlmain.c @@ -16,6 +16,8 @@ int _CRT_glob = 0; /* Called from w32console/wmain.c */ +extern int w32console_usefunctionkeys; + int main(int argc, char **argv, char **env) { @@ -25,6 +27,8 @@ main(int argc, char **argv, char **env) XCEShowMessageA("Starting perl with no args is currently\r\n" "not useful on Windows CE"); + w32console_usefunctionkeys = 0; /* this allows backspace key to work */ + res = RunPerl(argc, argv, env); if(res != 0) |