Fix generate.pl for Perl 5.6.1.

[pspp] / src / sysfile-info.c

diff --git a/src/sysfile-info.c b/src/sysfile-info.c
index 5c8f6a651c2759c82f7965d1c114e117dfb918f0..860d74f2e5a4cdd77a08df6f5ece4f0dfa550c2b 100644 (file)
--- a/src/sysfile-info.c
+++ b/src/sysfile-info.c
@@ -14,8 +14,8 @@
 
    You should have received a copy of the GNU General Public License
    along with this program; if not, write to the Free Software
-   Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
-   02111-1307, USA. */
+   Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
+   02110-1301, USA. */
 
 #include <config.h>
 #include "error.h"
@@ -260,7 +260,7 @@ cmd_display (void)
        }
 
       if (sorted)
-       sort (vl, n, sizeof *vl, compare_variables, NULL);
+       sort (vl, n, sizeof *vl, compare_var_names, NULL);
 
       display_variables (vl, n, as);
 
@@ -569,7 +569,7 @@ compare_vectors_by_name (const void *a_, const void *b_)
   struct vector *a = *pa;
   struct vector *b = *pb;
   
-  return strcmp (a->name, b->name);
+  return strcasecmp (a->name, b->name);
 }
 
 /* Display a list of vectors.  If SORTED is nonzero then they are