#! /bin/sh
+. "${srcdir=.}/init.sh"; path_prepend_ . ../src
# Test recognition of Perl format strings.
-tmpfiles=""
-trap 'rm -fr $tmpfiles' 1 2 3 15
-
-tmpfiles="$tmpfiles f-pl-1.data"
cat <<\EOF > f-pl-1.data
# Valid: no argument
"abc%%"
while read comment; do
read string
n=`expr $n + 1`
- tmpfiles="$tmpfiles f-pl-1-$n.in f-pl-1-$n.po"
sed -e 's,\$,\\$,g' <<EOF > f-pl-1-$n.in
gettext(${string});
EOF
rm -f f-pl-1-$n.in f-pl-1-$n.po
done < f-pl-1.data
-rm -fr $tmpfiles
-
exit 0