cvs commit: embperl epparse.c

[richter]

richter     02/03/12 05:20:21

  Modified:    .        Tag: Embperl2c epparse.c
  Log:
  -
  
  Revision  Changes    Path
  No                   revision
  
  
  No                   revision
  
  
  1.4.2.54  +3 -2      embperl/Attic/epparse.c
  
  Index: epparse.c
  ===================================================================
  RCS file: /home/cvs/embperl/Attic/epparse.c,v
  retrieving revision 1.4.2.53
  retrieving revision 1.4.2.54
  diff -u -r1.4.2.53 -r1.4.2.54
  --- epparse.c 5 Mar 2002 08:07:21 -0000       1.4.2.53
  +++ epparse.c 12 Mar 2002 13:20:21 -0000      1.4.2.54
  @@ -9,7 +9,7 @@
   #   IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
   #   WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
   #
  -#   $Id: epparse.c,v 1.4.2.53 2002/03/05 08:07:21 richter Exp $
  +#   $Id: epparse.c,v 1.4.2.54 2002/03/12 13:20:21 richter Exp $
   #
   
###################################################################################*/
   
  @@ -52,7 +52,8 @@
                        /*in*/ const void *  p2)
   
       {
  -    return strcmp (*((const char * *)p2), *((const char * *)p1)) ;
  +    int i = strcmp (*((const char * *)p2), *((const char * *)p1)) ; 
  +    return i?i:strcmp (((const char * *)p1)[1], ((const char * *)p2)[1]) ; 
       }
   
   
  
  
  

---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]