From: Jarkko Hietaniemi Date: Mon, 13 Sep 1999 20:16:20 +0000 (+0000) Subject: Small doc and whitespace edits. X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3175b8cd8ec96d7c77f6069f95a412b71dd75d07;p=p5sagit%2Fp5-mst-13.2.git Small doc and whitespace edits. p4raw-id: //depot/cfgperl@4143 --- diff --git a/ext/DynaLoader/dl_aix.xs b/ext/DynaLoader/dl_aix.xs index c00ded2..96bce4e 100644 --- a/ext/DynaLoader/dl_aix.xs +++ b/ext/DynaLoader/dl_aix.xs @@ -590,7 +590,7 @@ dl_load_file(filename, flags=0) if (RETVAL == NULL) SaveError(aTHX_ "%s",dlerror()) ; else - sv_setiv( ST(0), PTR2IV(RETVAL)); + sv_setiv( ST(0), PTR2IV(RETVAL) ); void * diff --git a/ext/DynaLoader/dl_beos.xs b/ext/DynaLoader/dl_beos.xs index 4245910..c26824e 100644 --- a/ext/DynaLoader/dl_beos.xs +++ b/ext/DynaLoader/dl_beos.xs @@ -54,7 +54,7 @@ dl_load_file(filename, flags=0) PerlIO_printf(PerlIO_stderr(), "load_add_on(%s) : %d (%s)\n", path, bogo, strerror(bogo)); } else { RETVAL = (void *) bogo; - sv_setiv( ST(0), PTR2IV(RETVAL)); + sv_setiv( ST(0), PTR2IV(RETVAL) ); } free(path); } diff --git a/ext/DynaLoader/dl_cygwin.xs b/ext/DynaLoader/dl_cygwin.xs index 60a605f..7f74cdd 100644 --- a/ext/DynaLoader/dl_cygwin.xs +++ b/ext/DynaLoader/dl_cygwin.xs @@ -95,7 +95,7 @@ dl_load_file(filename,flags=0) if (RETVAL == NULL){ SaveError(aTHX_ "%d",GetLastError()) ; } else { - sv_setiv( ST(0), PTR2IV(RETVAL)); + sv_setiv( ST(0), PTR2IV(RETVAL) ); } } diff --git a/ext/DynaLoader/dl_hpux.xs b/ext/DynaLoader/dl_hpux.xs index 71896b3..180679f 100644 --- a/ext/DynaLoader/dl_hpux.xs +++ b/ext/DynaLoader/dl_hpux.xs @@ -92,7 +92,7 @@ end: if (obj == NULL) SaveError(aTHX_ "%s",Strerror(errno)); else - sv_setiv( ST(0), PTR2IV(obj)); + sv_setiv( ST(0), PTR2IV(obj) ); void * @@ -124,7 +124,7 @@ dl_find_symbol(libhandle, symbolname) if (status == -1) { SaveError(aTHX_ "%s",(errno) ? Strerror(errno) : "Symbol not found") ; } else { - sv_setiv( ST(0), PTR2IV(symaddr)); + sv_setiv( ST(0), PTR2IV(symaddr) ); } diff --git a/ext/DynaLoader/dl_mpeix.xs b/ext/DynaLoader/dl_mpeix.xs index 65c0297..913e259 100644 --- a/ext/DynaLoader/dl_mpeix.xs +++ b/ext/DynaLoader/dl_mpeix.xs @@ -74,7 +74,7 @@ flags)); if (obj == NULL) SaveError(aTHX_"%s",Strerror(errno)); else - sv_setiv( ST(0), PTR2IV(obj)); + sv_setiv( ST(0), PTR2IV(obj) ); void * dl_find_symbol(libhandle, symbolname) @@ -100,7 +100,7 @@ dl_find_symbol(libhandle, symbolname) if (status != 0) { SaveError(aTHX_"%s",(errno) ? Strerror(errno) : "Symbol not found") ; } else { - sv_setiv( ST(0), PTR2IV(symaddr)); + sv_setiv( ST(0), PTR2IV(symaddr) ); } void diff --git a/ext/DynaLoader/dl_next.xs b/ext/DynaLoader/dl_next.xs index 6c8009b..54d4be0 100644 --- a/ext/DynaLoader/dl_next.xs +++ b/ext/DynaLoader/dl_next.xs @@ -252,7 +252,7 @@ dl_load_file(filename, flags=0) if (RETVAL == NULL) SaveError(aTHX_ "%s",dlerror()) ; else - sv_setiv( ST(0), PTR2IV(RETVAL)); + sv_setiv( ST(0), PTR2IV(RETVAL) ); void * @@ -273,7 +273,7 @@ dl_find_symbol(libhandle, symbolname) if (RETVAL == NULL) SaveError(aTHX_ "%s",dlerror()) ; else - sv_setiv( ST(0), PTR2IV(RETVAL)); + sv_setiv( ST(0), PTR2IV(RETVAL) ); void diff --git a/ext/DynaLoader/dl_rhapsody.xs b/ext/DynaLoader/dl_rhapsody.xs index d75b838..a56452e 100644 --- a/ext/DynaLoader/dl_rhapsody.xs +++ b/ext/DynaLoader/dl_rhapsody.xs @@ -166,7 +166,7 @@ dl_load_file(filename, flags=0) if (RETVAL == NULL) SaveError(aTHX_ "%s",dlerror()) ; else - sv_setiv( ST(0), PTR2IV(RETVAL)); + sv_setiv( ST(0), PTR2IV(RETVAL) ); void * @@ -185,7 +185,7 @@ dl_find_symbol(libhandle, symbolname) if (RETVAL == NULL) SaveError(aTHX_ "%s",dlerror()) ; else - sv_setiv( ST(0), PTR2IV(RETVAL)); + sv_setiv( ST(0), PTR2IV(RETVAL) ); void diff --git a/ext/DynaLoader/dl_vmesa.xs b/ext/DynaLoader/dl_vmesa.xs index 400793f..9e4908c 100644 --- a/ext/DynaLoader/dl_vmesa.xs +++ b/ext/DynaLoader/dl_vmesa.xs @@ -123,7 +123,7 @@ dl_load_file(filename, flags=0) if (RETVAL == NULL) SaveError(aTHX_ "%s",dlerror()) ; else - sv_setiv( ST(0), PTR2IV(RETVAL)); + sv_setiv( ST(0), PTR2IV(RETVAL) ); void * @@ -141,7 +141,7 @@ dl_find_symbol(libhandle, symbolname) if (RETVAL == NULL) SaveError(aTHX_ "%s",dlerror()) ; else - sv_setiv( ST(0), PTR2IV(RETVAL)); + sv_setiv( ST(0), PTR2IV(RETVAL) ); void diff --git a/pod/perldelta.pod b/pod/perldelta.pod index f77ab5d..de5a718 100644 --- a/pod/perldelta.pod +++ b/pod/perldelta.pod @@ -158,7 +158,7 @@ use "quads" (64-integers) as follows: =item printed as such -=item pack() and unpack() "q" and "Q" formatS +=item pack() and unpack() "q" and "Q" formats =item in basic arithmetics: + - * / % @@ -169,8 +169,9 @@ use "quads" (64-integers) as follows: Note that unless you have the case (a) you will have to configure and compile Perl using the -Duse64bits Configure flag. -Unfortunately bit arithmetics (&, |, ^, ~, <<, >>) are not 64-bit clean, -they are explictly forced to be 32-bit. +Unfortunately bit arithmetics (&, |, ^, ~, <<, >>) for numbers are not +64-bit clean, they are explictly forced to be 32-bit. Bit arithmetics +for bit vectors (created by vec()) are not limited in their width. Last but not least: note that due to Perl's habit of always using floating point numbers the quads are still not true integers. @@ -185,17 +186,17 @@ If you have filesystems that support "large files" (files larger than 2 gigabytes), you may now also be able to create and access them from Perl. Note that in addition to requiring a proper file system to do this you -may also need to adjust your per-process (or even your per-system) -maximum filesize limits before running Perl scripts that try to handle -large files, especially if you intend to write such files. +may also need to adjust your per-process (or your per-system, or per-user-group) +maximum filesize limits before running Perl scripts that try to handle large +files, especially if you intend to write such files. Adjusting your file system/system limits is outside the scope of Perl. For process limits, you may try to increase the limits using your shell's limit/ulimit command before running Perl. The BSD::Resource extension (not included with the standard Perl distribution) may also -be of use. +be of use, it contains getrlimit/setrlimit calls. -(Large file support is also related to 64-bit support, for obvious reasons) +(Large file support is related to 64-bit support, for obvious reasons.) =head2 Better syntax checks on parenthesized unary operators @@ -753,6 +754,13 @@ because many scripts assume to find Perl in /usr/bin/perl. You can use "Configure -Dusesocks" which causes Perl to probe for the SOCKS proxy protocol library, http://www.socks.nec.com/ +=head2 -A flag + +You can "post-edit" the Configure variables using the Configure -A +flag. The editing happens immediately after the platform specific +hints files have been processed but before the actual configuration +process starts. Run Configure -h to find out the full -A syntax. + =head1 BUGS If you find what you think is a bug, you might check the headers of