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 "