1#!/bin/sh 2. "${srcdir=.}/init.sh"; path_prepend_ . ../src 3 4# Test Perl support: --add-comments option. 5 6cat <<\EOF > xg-pl-7.pl 7# a 8string = # b 9# c 10_( # d 11"hello " # e 12. # f 13"world" # g 14); 15EOF 16 17: ${XGETTEXT=xgettext} 18${XGETTEXT} --add-comments --omit-header --no-location --keyword=_ \ 19 -d xg-pl-7.tmp xg-pl-7.pl || Exit 1 20LC_ALL=C tr -d '\r' < xg-pl-7.tmp.po > xg-pl-7.po || Exit 1 21 22cat <<EOF > xg-pl-7.ok 23#. a 24#. b 25#. c 26#. d 27msgid "hello world" 28msgstr "" 29EOF 30 31: ${DIFF=diff} 32${DIFF} xg-pl-7.ok xg-pl-7.po 33result=$? 34 35exit $result 36