From 4ef24fc3335e1f90369500d8432eaeeb368e3e3d Mon Sep 17 00:00:00 2001
From: Vincent Riquer <vincent+gitorious@riquer.fr>
Date: Wed, 9 Oct 2013 00:56:11 +0200
Subject: [PATCH] Sanity check (perl module Text::Unidecode)

---
 atom | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/atom b/atom
index 1984bb2..d2dd2ec 100755
--- a/atom
+++ b/atom
@@ -295,6 +295,14 @@ then
 	disablevideo=1
 	(( sanitywarn++ ))
 fi
+if (( textunidecodeneeded )) && ! perl -MText::Unidecode -e 'exit;' 2>/dev/null
+then
+	echo "[WARNING] Perl module Text::Unidecode is not available
+	Renaming to ASCII-only disabled" >&2
+	unset destinationascii
+	destinationascii=0
+	(( sanitywarn++ ))
+fi
 if (( sanityfail ))
 then
 	echo "