This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix typos (spelling errors) in os2/*.
authorPeter J. Acklam) (via RT <perlbug-followup@perl.org>
Fri, 7 Jan 2011 07:13:20 +0000 (23:13 -0800)
committerAbigail <abigail@abigail.be>
Fri, 7 Jan 2011 10:55:09 +0000 (11:55 +0100)
# New Ticket Created by  (Peter J. Acklam)
# Please include the string:  [perl #81900]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=81900 >

Signed-off-by: Abigail <abigail@abigail.be>
os2/Changes
os2/OS2/OS2-Process/Process.pm
os2/OS2/OS2-Process/t/os2_process.t
os2/OS2/OS2-REXX/REXX.xs
os2/os2.c
os2/os2_pipe.t
os2/os2ish.h

index 3bd33a5..127a7e2 100644 (file)
@@ -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
index 494bd69..4bed651 100644 (file)
@@ -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<parent/child> 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<it's> 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<ownership>
@@ -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<WM_ENABLED> 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
 
index 18d8fe2..f738a33 100644 (file)
@@ -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';
index 428dfd5..6f4bf2b 100644 (file)
@@ -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;
index 9448fdc..ea730af 100644 (file)
--- 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++] = ';';
index 208d376..37aa409 100644 (file)
@@ -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';
index a1072a3..70c8cbe 100644 (file)
@@ -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.
  */