misc tweaks to docs and qsortsv() warning

p4raw-id: //depot/perl@1405

diff --git a/Changes b/Changes
index 9eb0ac8..28e2ee4 100644 (file)
--- a/Changes
+++ b/Changes
@@ -69,6 +69,11 @@ Version 5.004_71        Developer release working toward 5.005
 ----------------
 
 ____________________________________________________________________________
+[  1399] By: gsar                                  on 1998/07/09  12:15:12
+        Log: update Changes, perlhist.pod, beginnings of perldelta.pod
+     Branch: perl
+           ! Changes pod/perldelta.pod pod/perlhist.pod
+____________________________________________________________________________
 [  1397] By: gsar                                  on 1998/07/09  08:35:39
         Log: merge changes from maintbranch (1354, and relevant part of 1356); all
              maintenance changes upto 1356 merged

diff --git a/pod/perldelta.pod b/pod/perldelta.pod
index 93f50df..f074d8f 100644 (file)
--- a/pod/perldelta.pod
+++ b/pod/perldelta.pod
@@ -569,7 +569,7 @@ fix the problem can be found in L<perllocale> section B<LOCALE PROBLEMS>.
 =head1 Obsolete Diagnostics
 
 =over
- 
+
 =item Can't mktemp()
 
 (F) The mktemp() routine failed for some reason while trying to process

diff --git a/pod/perlsub.pod b/pod/perlsub.pod
index 392323a..2eebe1a 100644 (file)
--- a/pod/perlsub.pod
+++ b/pod/perlsub.pod
@@ -252,7 +252,7 @@ this is used to name the parameters to a subroutine.  Examples:
 
 The "my" is simply a modifier on something you might assign to.  So when
 you do assign to the variables in its argument list, the "my" doesn't
-change whether those variables is viewed as a scalar or an array.  So
+change whether those variables are viewed as a scalar or an array.  So
 
     my ($foo) = <STDIN>;               # WRONG?
     my @FOO = <STDIN>;

diff --git a/pp_ctl.c b/pp_ctl.c
index 9cf422f..88ec213 100644 (file)
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -3183,7 +3183,7 @@ doqsort_all_asserts(
 
 /* ****************************************************************** qsort */
 
-void
+STATIC void
 #ifdef PERL_OBJECT
 qsortsv(SV ** array, size_t num_elts, SVCOMPARE compare)
 #else