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