From 2391436bbf4354ce0b989d587889b6ac7ca73c82 Mon Sep 17 00:00:00 2001 From: "Peter J. Acklam) (via RT" Date: Thu, 6 Jan 2011 23:13:20 -0800 Subject: Fix typos (spelling errors) in os2/*. # New Ticket Created by (Peter J. Acklam) # Please include the string: [perl #81900] # in the subject line of all future correspondence about this issue. # Signed-off-by: Abigail --- os2/Changes | 10 +++++----- os2/OS2/OS2-Process/Process.pm | 10 +++++----- os2/OS2/OS2-Process/t/os2_process.t | 2 +- os2/OS2/OS2-REXX/REXX.xs | 2 +- os2/os2.c | 4 ++-- os2/os2_pipe.t | 2 +- os2/os2ish.h | 4 ++-- 7 files changed, 17 insertions(+), 17 deletions(-) (limited to 'os2') diff --git a/os2/Changes b/os2/Changes index 3bd33a56c5..127a7e272a 100644 --- a/os2/Changes +++ b/os2/Changes @@ -94,7 +94,7 @@ after 5.003_27: after 5.004_01: flock emulation added (disable by setting env PERL_USE_FLOCK=0), thanks to Rocco Caputo; - RSX bug with missing waitpid circomvented; + RSX bug with missing waitpid circumvented; -S bug with full path with \ corrected. before 5.004_02: @@ -170,7 +170,7 @@ after 5.005_53: PrfDB was using a bug in processing XSUBs returning U32. - Variable $OS2::emx_rev implemented (string and numberic values + Variable $OS2::emx_rev implemented (string and numeric values are the same as C variables _emx_rev and _emx_vprt). Variable $OS2::emx_env implemented (same as C variable _emx_env). Variable $OS2::os_ver implemented (_osmajor + 0.001 * _osminor). @@ -310,7 +310,7 @@ pre 5.6.1: # with default values good for handling exception mask: unsigned set_control87_em(new=MCW_EM,mask=MCW_EM) Needed to guard against other situations when the FP mask is - stompted upon. Apparently, IBM used a compiler (for some period + stomped upon. Apparently, IBM used a compiler (for some period of time around '95?) which changes FP mask right and left... Resolved: $^X was always uppercased (cosmetic). Solution: use argv[0] if it differs from what the OS returns only in case. @@ -611,7 +611,7 @@ After @19774: HORIZONTAL_FONT_RES VERTICAL_FONT_RES DEVICE_FONT_SIM LINEWIDTH_THICK DEVICE_POLYSET_POINTS New function OS2::SysValues(which = -1, hwndDesktop = HWND_DESKTOP). - If which != -1, returns the correspondg SysValue. Otherwise + If which != -1, returns the corresponding SysValue. Otherwise returns a hash with keys: SWAPBUTTON DBLCLKTIME CXDBLCLK CYDBLCLK CXSIZEBORDER CYSIZEBORDER ALARM 7 8 CURSORRATE @@ -661,7 +661,7 @@ After @19774: Fix float-to-string conversion in the range .0001..0.1 (would return in exponential notation, per gcvt()). Make fork(): a) preserve i387 flags; - b) preverve the dynamically loaded (system) DLLs; + b) preserve the dynamically loaded (system) DLLs; c) preserve morphed status; Make sleep() work with time > 0xffffffff/1000. Implement usleep() via _sleep2(); make select() with num_files==0 diff --git a/os2/OS2/OS2-Process/Process.pm b/os2/OS2/OS2-Process/Process.pm index 494bd69bb8..4bed651b98 100644 --- a/os2/OS2/OS2-Process/Process.pm +++ b/os2/OS2/OS2-Process/Process.pm @@ -332,7 +332,7 @@ my $swentry_size = swentry_size(); sub sw_entries () { my $s = swentries_list(); my ($c, $s1) = unpack 'La*', $s; - die "Unconsistent size in swentries_list()" unless 4+$c*$swentry_size == length $s; + die "Inconsistent size in swentries_list()" unless 4+$c*$swentry_size == length $s; my (@l, $e); push @l, $e while $e = substr $s1, 0, $swentry_size, ''; @l; @@ -1234,7 +1234,7 @@ One tree is given by the I relationship. This relationship affects drawing (child is drawn relative to its parent (lower-left corner), and the drawing is clipped by the parent's boundary; parent may request that I drawing is clipped to be -confined to the outsize of the childs and/or siblings' windows); +confined to the outsize of the child's and/or siblings' windows); hiding; minimizing/restoring; and destroying windows. Another tree (not necessarily connected?) is given by I @@ -1388,7 +1388,7 @@ state" do not change the appearance of the window. Default: $update is TRUE. Set the window enabled state. Default: $enable is TRUE. Results in C message sent to the window. Typically, this -would change the appearence of the window. If at the moment of disabling +would change the appearance of the window. If at the moment of disabling focus is in the window (or a descendant), focus is lost (no focus anywhere). If focus is needed, it can be reassigned explicitly later. @@ -1737,12 +1737,12 @@ $addr should be a memory address (encoded as integer). This call finds the largest continuous region of memory belonging to the same memory object as $addr, and having the same memory flags as $addr. $flags is the value of the memory flag of $addr (see docs of DosQueryMem(3) for details). If -optional argumetn $size_lim is given, the search is restricted to the region +optional argument $size_lim is given, the search is restricted to the region this many bytes long (after $addr). ($addr and $size are rounded so that all the memory pages containing the region are inspected.) Optional argument $interrupt (defaults to 1) -specifies whether region scan should be interruptable by signals. +specifies whether region scan should be interruptible by signals. =back diff --git a/os2/OS2/OS2-Process/t/os2_process.t b/os2/OS2/OS2-Process/t/os2_process.t index 18d8fe2a11..f738a33e43 100644 --- a/os2/OS2/OS2-Process/t/os2_process.t +++ b/os2/OS2/OS2-Process/t/os2_process.t @@ -289,7 +289,7 @@ ok($pkid1 > 0, 'our window has a governing process'); ok($tkid1 > 0, 'our window has a governing thread'); is($pkid, $pkid1, 'kid\'s window is governed by the same process as our (PMSHELL:1)'); is($tkid, $tkid1, 'likewise for threads'); -is $pkid, ppidOf($spid), 'the governer is the parent of the kid session'; +is $pkid, ppidOf($spid), 'the governor is the parent of the kid session'; my $my_pos = hWindowPos($hwnd); ok $my_pos, 'got my position'; diff --git a/os2/OS2/OS2-REXX/REXX.xs b/os2/OS2/OS2-REXX/REXX.xs index 428dfd57f5..6f4bf2b416 100644 --- a/os2/OS2/OS2-REXX/REXX.xs +++ b/os2/OS2/OS2-REXX/REXX.xs @@ -89,7 +89,7 @@ exec_in_REXX_with(pTHX_ char *cmd, int c, char **handlerNames, RexxFunctionHandl s = cmd; while (*s) { - if (*s == '\n') { /* Is not preceeded by \r! */ + if (*s == '\n') { /* Is not preceded by \r! */ Newx(cmd, 2*strlen(cmd)+1, char); s = ocmd; t = cmd; diff --git a/os2/os2.c b/os2/os2.c index 9448fdc717..ea730afc0b 100644 --- a/os2/os2.c +++ b/os2/os2.c @@ -3720,7 +3720,7 @@ fill_extLibpath(int type, char *pre, char *post, int replace, char *msg) s = pre - 1; while (*++s) if (*s == '/') - *s = '\\'; /* Be extra causious */ + *s = '\\'; /* Be extra cautious */ memcpy(to, pre, l); if (!l || to[l-1] != ';') to[l++] = ';'; @@ -3751,7 +3751,7 @@ fill_extLibpath(int type, char *pre, char *post, int replace, char *msg) s = post - 1; while (*++s) if (*s == '/') - *s = '\\'; /* Be extra causious */ + *s = '\\'; /* Be extra cautious */ memcpy(to, post, l); if (!l || to[l-1] != ';') to[l++] = ';'; diff --git a/os2/os2_pipe.t b/os2/os2_pipe.t index 208d376f29..37aa409dd1 100644 --- a/os2/os2_pipe.t +++ b/os2/os2_pipe.t @@ -164,7 +164,7 @@ $pid = system 4|0x40000, $^X, '-wle', <<'EOS', $pname, $$; # SESSION|INDEPENDENT EOS ok $pid, 'kid started'; -sleep 2; # XXX How to syncronize with kid??? +sleep 2; # XXX How to synchronize with kid??? $in = scalar <$server_pipe>; my $ok1 = ($in || '') eq "Is your pid $$?\n"; is $in, "Is your pid $$?\n", 'call in'; diff --git a/os2/os2ish.h b/os2/os2ish.h index a1072a3da6..70c8cbecf9 100644 --- a/os2/os2ish.h +++ b/os2/os2ish.h @@ -982,7 +982,7 @@ unsigned long SIS_MMIOAddr; /* Memory mapped I/O address */ unsigned char SIS_MaxVDMs; /* Max. no. of Virtual DOS machines */ unsigned char SIS_Reserved; -unsigned char SIS_perf_mec_table[32]; /* varga 6/5/97 Table of Perfomance Major Event Codes (MECS) varga*/ +unsigned char SIS_perf_mec_table[32]; /* varga 6/5/97 Table of Performance Major Event Codes (MECS) varga*/ } GINFOSEG, *PGINFOSEG; #define SIS_LEN sizeof(struct InfoSegGDT) @@ -1038,7 +1038,7 @@ unsigned long LIS_pPIB; /* Pointer to PIB */ /* * Process Type codes * - * These are the definitons for the codes stored + * These are the definitions for the codes stored * in the LIS_ProcType field in the local infoseg. */ -- cgit v1.2.1