Fix generate.pl for Perl 5.6.1.

[pspp] / src / format.c

diff --git a/src/format.c b/src/format.c
index 2adee2055d3706afeb6e6f1ed8118a44d65facea..b3070e2149f1e9c30250ccd8759896f279b55b95 100644 (file)
--- a/src/format.c
+++ b/src/format.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 "format.h"
@@ -59,7 +59,7 @@ parse_format_specifier_name (const char **cp, enum fmt_parse_flags flags)
       /* Find format. */
       for (idx = 0; idx < FMT_NUMBER_OF_FORMATS; idx++)
         if (strlen (formats[idx].name) == ep - sp
-            && !memcmp (formats[idx].name, sp, ep - sp))
+            && !mm_case_compare (formats[idx].name, sp, ep - sp))
           break;
 
       /* Check format. */