fr: minor fix

diff --git a/svg/fr/anonymize-svg b/svg/fr/anonymize-svg
index a261f73faaaab2d562a3d78987157978b1cd64be..3650d66cece91906ccfa1fcb5b836e0c7ca5f9c3 100755 (executable)
--- a/svg/fr/anonymize-svg
+++ b/svg/fr/anonymize-svg
@@ -28,7 +28,7 @@
 # (http://creativecommons.org/publicdomain/zero/1.0/legalcode).
 
 set -e
-EXIT () {
+close_term () {
   printf '\n%s' '*** Close the terminal window or press Return.'; read OK
   test -z "$OK" && exit $1
 }
@@ -36,9 +36,9 @@ EXIT () {
 [ -d saved-svg ] || mkdir saved-svg
 for svg in *.svg; do
   cp -b -S '.bak' "$svg" saved-svg/"$svg" 2>/dev/null \
-  || (echo "*** This directory doesn't contain any SVG."; EXIT '1')
+  || (echo "*** This directory doesn't contain any SVG."; close_term '1')
   sed -i 's,sodipodi:docname="[^"]*",sodipodi:docname="",' "$svg"
   sed -i 's,inkscape:export-filename="[^"]*",inkscape:export-filename="",' "$svg"
   echo $svg
 done
-EXIT '0'
+close_term '0'

diff --git a/svg/fr/detect-svg-leakage b/svg/fr/detect-svg-leakage
index b1803d44521e9fa264cafa1bbb5103b4c76ae4a0..664b2a9ec4c8f4efcab086b659fe0e1de9a1f637 100755 (executable)
--- a/svg/fr/detect-svg-leakage
+++ b/svg/fr/detect-svg-leakage
@@ -17,16 +17,16 @@
 # (http://creativecommons.org/publicdomain/zero/1.0/legalcode).
 
 set -e
-EXIT () {
+close_term () {
   printf '\n%s' '*** Close the terminal window or press Return.'; read OK
   test -z "$OK" && exit $1
 }
 
 for svg in *.svg; do
   test -s "$svg" \
-  || (echo "*** This directory doesn't contain any SVG."; EXIT '1')
+  || (echo "*** This directory doesn't contain any SVG."; close_term '1')
   printf '\n%s\n\n' "=== $svg"
   perl -Twe 'while (<>) { print "$1\n" if
     m/([\w\-:]+="([\/\.]+|file:).+?"|[\w:]+docname=".+")/i; }' <"$svg";
 done
-EXIT '0'
+close_term '0'