xgettext: Recognize language of files ending in .perl.

diff --git a/gettext-tools/src/ChangeLog b/gettext-tools/src/ChangeLog
index f3a5e0d2f5b34d0fffa88deabcfd681592d0b337..19aa6fda1d721786cdd43937a5cf1cccfe4f013b 100644 (file)
--- a/gettext-tools/src/ChangeLog
+++ b/gettext-tools/src/ChangeLog
@@ -1,3 +1,9 @@
+2010-06-03  Bruno Haible  <bruno@clisp.org>
+
+       xgettext: Recognize language of files ending in .perl.
+       * x-perl.h (EXTENSIONS_PERL): Recognize .perl.
+       Suggested by Ævar Arnfjörð Bjarmason <avarab@gmail.com>.
+
 2010-06-03  Bruno Haible  <bruno@clisp.org>
 
        urlget: Don't attempt to run the Java program if we don't install it.

diff --git a/gettext-tools/src/x-perl.h b/gettext-tools/src/x-perl.h
index 43ce4055e20812e5b049808b77aa4b5692a40328..0ee1703b2fb6b6bca40ffaa7622460352d1e7e50 100644 (file)
--- a/gettext-tools/src/x-perl.h
+++ b/gettext-tools/src/x-perl.h
@@ -1,5 +1,5 @@
 /* xgettext Perl backend.
-   Copyright (C) 2002-2003, 2006 Free Software Foundation, Inc.
+   Copyright (C) 2002-2003, 2006, 2010 Free Software Foundation, Inc.
    Written by Guido Flohr <guido@imperia.net>, 2002-2003
 
    This program is free software: you can redistribute it and/or modify
@@ -31,6 +31,7 @@ extern "C" {
   { "pl",    "perl"   },                                                \
   { "PL",    "perl"   },                                                \
   { "pm",    "perl"   },                                                \
+  { "perl",  "perl"   },                                                \
   { "cgi",   "perl"   },                                                \
 
 #define SCANNERS_PERL \